Code Again, for last few Posts
Code:Sub EvalutingQuotes() 'Posts from #25 http://www.excelfox.com/forum/f2/special-concatenation-2042/index3.html
'---o00o---`(_)`---o00o---
Rem 1) Basics
Dim v As Variant
Let v = "3" ' Results in a Variant variable containing a string value "3"
Let v = 3 ' Results in a Variant variable containing a Long Number 3 ( actually an Integer ? )
Range("I1").Value = Evaluate("=A1") 'Explicit Version
Range("I1").Value = Evaluate("=" & Range("A1").Address & "") 'Explicit Version
Range("I1").Value = Evaluate("" & Range("A1").Address & "") 'Implicit Default
Range("I1").Value = Evaluate(" " & Range("A1").Address & " ") '
Range("I1").Value = Evaluate(Range("A1").Address) 'Common but dangerous variation
Rem 2) Detailed code anylysis
Dim strEval As String 'String to be used in Evaluate
10 strEval = "=A1" & "&" & "A1": Debug.Print strEval 'gives =A1&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Result Gives 11 in cell I1
20 'strEval = "=A1" & "&"" & ";" & ""&" & "A1": Debug.Print strEval 'gives syntax error
'Range("I1").Value = Evaluate("" & strEval & "") 'errors
30 strEval = "=A1" & "&"";""&" & "A1": Debug.Print strEval 'gives =A1&";"&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Result Gives 1;1
40 strEval = "=A1" & "&"";""": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;
50 strEval = "=A1" & "&"";" & """": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;
60 strEval = "=A1" & "&"";""""" & """": Debug.Print strEval 'gives =A1&";" ""
Range("I1").Value = Evaluate("" & strEval & "") 'error
70 strEval = "=A1" & "&"";"";""" & """": Debug.Print strEval 'gives=A1&";";""
Range("I1").Value = Evaluate("" & strEval & "") 'error
80 strEval = "=A1" & "&"";""""" & """": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error Gives 1;" !!!!!!!!
90 strEval = "=A1" & "&"";""" & """" & """": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error Gives 1;" !!!!!!!!
Rem 3) Quotes in VBA ...........
100 strEval = "=A1" & "&"";""""""": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error Gives 1;" !!!!!!!!
110 strEval = "=A1" & "&""""""""": Debug.Print strEval 'gives =A1&""""
Range("I1").Value = Evaluate("" & strEval & "") ' Gives 1"
120 strEval = "=A1&""""""""": Debug.Print strEval 'gives =A1&""""
Range("I1").Value = Evaluate("" & strEval & "") ' Gives 1"
130 strEval = "=" & """""""""": Debug.Print strEval 'gives =""""
Range("I1").Value = Evaluate("" & strEval & "") ' Gives "
140 strEval = "=""""""""": Debug.Print strEval 'gives =""""
Range("I1").Value = Evaluate("" & strEval & "") ' Gives "
150 strEval = """""""""": Debug.Print strEval 'gives """"
Range("I1").Value = Evaluate("" & """""""""" & "") ' Gives "
Range("I1").Value = Evaluate("""""""""") ' Gives "
End Sub 'EvalutingQuotes() ---o00o---`(_)`---o00o---
