Results 1 to 6 of 6

Thread: CODE TAG Code Test

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. 09-16-2015, 04:39 PM #5
    DocAElstein
    DocAElstein is online now
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    10,457
    Rep Power
    10
    Kyle Extension test: Alt A

    Sub EvalutingQuotes()
    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("=" & 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


    Dim strEval As String '
    strEval = "=A1" & "&" & "A1": Debug.Print strEval 'gives =A1&A1
    Range("I1").Value = Evaluate("" & strEval & "") 'Gives 11


    strEval = "=A1" & "&"";""&" & "A1": Debug.Print strEval 'gives =A1&";"&A1
    Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;1


    strEval = "=A1" & "&"";""": Debug.Print strEval 'gives =A1&";"
    Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;


    strEval = "=A1" & "&"";" & """": Debug.Print strEval 'gives =A1&";"
    Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;


    strEval = "=A1" & "&"";""""" & """": Debug.Print strEval 'gives =A1&";" ""
    Range("I1").Value = Evaluate("" & strEval & "") 'error
    strEval = "=A1" & "&"";"";""" & """": Debug.Print strEval 'gives=A1&";";""
    Range("I1").Value = Evaluate("" & strEval & "") 'error


    strEval = "=A1" & "&"";""" & """" & """": Debug.Print strEval 'gives =A1&";"""
    Range("I1").Value = Evaluate("" & strEval & "") 'Did not error Gives 1;" !!!!!!!!


    strEval = "=A1" & "&"";""""""": Debug.Print strEval 'gives =A1&";"""
    Range("I1").Value = Evaluate("" & strEval & "") 'Did not error Gives 1;" !!!!!!!!


    ' strEval = "=A1" & "&"";""""": Debug.Print strEval 'gives =A1&";""
    ' Range("I1").Value = Evaluate("" & strEval & "") 'error


    End Sub

    Not working today??

    ...................................

    Normal Code Tags

    Code:
    Sub EvalutingQuotes()
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("=" & 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


Dim strEval As String '
strEval = "=A1" & "&" & "A1": Debug.Print strEval 'gives =A1&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 11


strEval = "=A1" & "&"";""&" & "A1": Debug.Print strEval 'gives =A1&";"&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;1


strEval = "=A1" & "&"";""": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;


strEval = "=A1" & "&"";" & """": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;


strEval = "=A1" & "&"";""""" & """": Debug.Print strEval 'gives =A1&";" ""
Range("I1").Value = Evaluate("" & strEval & "") 'error
strEval = "=A1" & "&"";"";""" & """": Debug.Print strEval 'gives=A1&";";""
Range("I1").Value = Evaluate("" & strEval & "") 'error


strEval = "=A1" & "&"";""" & """" & """": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error  Gives 1;"  !!!!!!!! :)


strEval = "=A1" & "&"";""""""": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error  Gives 1;"  !!!!!!!! :)


        '    strEval = "=A1" & "&"";""""": Debug.Print strEval 'gives =A1&";""
        '    Range("I1").Value = Evaluate("" & strEval & "") 'error


End Sub

    ...........................

    Old Alan Methd


    Code:
    Sub EvalutingQuotes()
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("=" & 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
 
Dim strEval As String '
strEval = "=A1" & "&" & "A1": Debug.Print strEval 'gives =A1&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 11
 
strEval = "=A1" & "&"";""&" & "A1": Debug.Print strEval 'gives =A1&";"&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;1
 
strEval = "=A1" & "&"";""": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;
 
strEval = "=A1" & "&"";" & """": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;
 
strEval = "=A1" & "&"";""""" & """": Debug.Print strEval 'gives =A1&";" ""
Range("I1").Value = Evaluate("" & strEval & "") 'error
strEval = "=A1" & "&"";"";""" & """": Debug.Print strEval 'gives=A1&";";""
Range("I1").Value = Evaluate("" & strEval & "") 'error
 
strEval = "=A1" & "&"";""" & """" & """": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error  Gives 1;"  !!!!!!!! :)
 
strEval = "=A1" & "&"";""""""": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error  Gives 1;"  !!!!!!!! :)
 
        '    strEval = "=A1" & "&"";""""": Debug.Print strEval 'gives =A1&";""
        '    Range("I1").Value = Evaluate("" & strEval & "") 'error
 
End Sub
    ............................
    EDIT : Try again...

    change my default
    From:

    General Settings
    Message Editor Interface
    Enhanced Interface - Full WYSIWYG Editing

    To:

    General Settings
    Message Editor Interface
    Standard Editor - Extra formatting controls

    Alt A

    Code:
    Sub EvalutingQuotes()
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("=" & 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


Dim strEval As String '
strEval = "=A1" & "&" & "A1": Debug.Print strEval 'gives =A1&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 11


strEval = "=A1" & "&"";""&" & "A1": Debug.Print strEval 'gives =A1&";"&A1
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;1


strEval = "=A1" & "&"";""": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;


strEval = "=A1" & "&"";" & """": Debug.Print strEval 'gives =A1&";"
Range("I1").Value = Evaluate("" & strEval & "") 'Gives 1;


strEval = "=A1" & "&"";""""" & """": Debug.Print strEval 'gives =A1&";" ""
Range("I1").Value = Evaluate("" & strEval & "") 'error
strEval = "=A1" & "&"";"";""" & """": Debug.Print strEval 'gives=A1&";";""
Range("I1").Value = Evaluate("" & strEval & "") 'error


strEval = "=A1" & "&"";""" & """" & """": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error  Gives 1;"  !!!!!!!!


strEval = "=A1" & "&"";""""""": Debug.Print strEval 'gives =A1&";"""
Range("I1").Value = Evaluate("" & strEval & "") 'Did not error  Gives 1;"  !!!!!!!!


        '    strEval = "=A1" & "&"";""""": Debug.Print strEval 'gives =A1&";""
        '    Range("I1").Value = Evaluate("" & strEval & "") 'error


End Sub
    Last edited by DocAElstein; 09-16-2015 at 06:06 PM.
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. Testing. Rough Notes Excel and Sannce 1080N and Computer CMS Software Sannce1
    By DocAElstein in forum Test Area
    Replies: 5
    Last Post: 06-10-2019, 10:14 PM
  2. HTML Code Test --post8798
    By DocAElstein in forum Test Area
    Replies: 19
    Last Post: 06-17-2018, 03:02 PM
  3. VBA code help - several actions in one code + declaring and using a variable
    By Anthrax in forum Excel Help
    Replies: 1
    Last Post: 08-23-2013, 06:33 PM
  4. Shorten VBA Code By Removing Redundant Superfluous Code
    By paul_pearson in forum Excel Help
    Replies: 2
    Last Post: 08-15-2013, 09:09 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules