Appendix-Thread-Evaluate-Range-(-Codes-for-other-Threads-HTML-Tables-etc-)

[DocAElstein]

some more notes on it....


later.....

    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
    Msg = Msg & Choose(Color, "blue", "blueviolet", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Text

'Converts the specified text with the VBE Color (Black, Blue or Green) using BB code
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = "[color="
    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
    Msg = Msg & Choose(Color, "blue", "blueviolet", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Text
    Msg = Msg & ""
    BBColor = Msg
End Function[/color]

'Converts the specified text with the VBE Color (Black, Blue or Green) using BB code
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = "[color="
    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
   ' Msg = Msg & Choose(Color, "blue", "blueviolet", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Choose(Color, "blue", "darkblue", "darkgreen") & "]" ' Custom Colors Wonk  Serszud2 July 2023
    Msg = Msg & Text
    Msg = Msg & ""
    BBColor = Msg
End Function
[/color]

Option Explicit
Sub SeeIfThisWorks3() ' https://eileenslounge.com/viewtopic....309137#p309137
Dim Rng As Range
Set Rng = Worksheets.Item("Sheet1").Range("A1:F4")
Let Rng.Value = Evaluate("=IF(" & Rng.Address & "="""","""",IF(ISNUMBER(" & Rng.Address & "),1*" & Rng.Address & "," & Rng.Address & "))")
End Sub

---

Msg = Msg & Choose(Color, "blue", "darkblue", "darkgreen") & "]" ' Custom Colors Wonk Serszud2 July 2023

Option Explicit
Sub SeeIfThisWorks3()   '   https://eileenslounge.com/viewtopic.php?p=309137#p309137
Dim Rng As Range
 Set Rng = Worksheets.Item("Sheet1").Range("A1:F4")
 Let Rng.Value = Evaluate("=IF(" & Rng.Address & "="""","""",IF(ISNUMBER(" & Rng.Address & "),1*" & Rng.Address & "," & Rng.Address & "))")
End Sub