-
Code in HTML direct
<font <font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> TestEvaluateVBA3_n1n2n3()<br><SPAN style="color:#00007F">Dim</SPAN> RangeH3H4 <SPAN style="color:#00007F">As</SPAN> Range, RangeB3B4 <SPAN style="color:#00007F">As</SPAN> Range, RangeC3C4 <SPAN style="color:#00007F">As</SPAN> Range, RangeD3D4 <SPAN style="color:#00007F">As</SPAN> Range<br><SPAN style="color:#00007F">Set</SPAN> RangeH3H4 = Range("H3:H4")<br><SPAN style="color:#00007F">Set</SPAN> RangeB3B4 = Range("B3:B4")<br><SPAN style="color:#00007F">Set</SPAN> RangeC3C4 = Range("C3:C4")<br><SPAN style="color:#00007F">Set</SPAN> RangeD3D4 = Range("D3:D4")<br>RangeH3H4 = Evaluate(" " & RangeB3B4.Address & " " & "&"" ""&" & " " & RangeC3C4.Address & "" & "&"" ""&" & "" & RangeD3D4.Address & "")<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>face=Calibri><SPAN style="color:#00007F">Sub</SPAN> TestEvaluateVBA3_n1n2n3()<br><SPAN style="color:#00007F">Dim</SPAN> RangeH3H4 <SPAN style="color:#00007F">As</SPAN> Range, RangeB3B4 <SPAN style="color:#00007F">As</SPAN> Range, RangeC3C4 <SPAN style="color:#00007F">As</SPAN> Range, RangeD3D4 <SPAN style="color:#00007F">As</SPAN> Range<br><SPAN style="color:#00007F">Set</SPAN> RangeH3H4 = Range("H3:H4")<br><SPAN style="color:#00007F">Set</SPAN> RangeB3B4 = Range("B3:B4")<br><SPAN style="color:#00007F">Set</SPAN> RangeC3C4 = Range("C3:C4")<br><SPAN style="color:#00007F">Set</SPAN> RangeD3D4 = Range("D3:D4")<br>RangeH3H4 = Evaluate(" " & RangeB3B4.Address & " " & "&"" ""&" & " " & RangeC3C4.Address & "" & "&"" ""&" & "" & RangeD3D4.Address & "")<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
<font face=Courier New>Stop<br><SPAN style="color:#007F00">' ************************************************** *********************</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> Barn <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> <SPAN style="color:#007F00">' To put this years harvest in: Just a long string with variable values in it</SPAN><br> <SPAN style="color:#00007F">Let</SPAN> Barn = "slProjectNameName is " & slProjectNameName & vbCrLf & _<br> "slModuleName is " & slModuleName & vbCrLf & _<br> "slProcedureName is " & slProcedureName & vbCrLf & _<br> "lnglCurrentModuleLine is " & lnglCurrentModuleLine & vbCrLf & _<br> "lnglModuleProcStartLine is " & lnglModuleProcStartLine & vbCrLf & _<br> "lnglProcCountLines is " & lnglProcCountLines & vbCrLf & _<br> "lnglModuleProcEndLine is " & lnglModuleProc<SPAN style="color:#00007F">End</SPAN>Line<br> MsgBox Title:="Harvesting stuff", Prompt:="I harvested this stuff. Its in my Barn:" & vbCrLf & vbCrLf & Barn<br>End <SPAN style="color:#00007F">Sub</SPAN></FONT>
<font face=Courier New><br><SPAN style="color:#00007F">Dim</SPAN> Barn <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> <SPAN style="color:#007F00">' To put this years harvest in: Just a long string with variable values in it</SPAN><br> <SPAN style="color:#00007F">Let</SPAN> Barn = "slProjectNameName is " & slProjectNameName & vbCrLf & "slModuleName is " & slModuleName & vbCrLf & "slProcedureName is " & slProcedureName & vbCrLf & "lnglCurrentModuleLine is " & lnglCurrentModuleLine & vbCrLf & "lnglModuleProcStartLine is " & lnglModuleProcStartLine & vbCrLf & "lnglProcCountLines is " & lnglProcCountLines & vbCrLf & "lnglModuleProcEndLine is " & lnglModuleProc<SPAN style="color:#00007F">End</SPAN>Line<br>Debug.Print "I harvested this stuff. Its in my Barn:" & vbCrLf & vbCrLf & Barn<br>Stop<br><SPAN style="color:#007F00">' ************************************************** *********************</SPAN><br> MsgBox Title:="Harvesting stuff", Prompt:="I harvested this stuff. Its in my Barn:" & vbCrLf & vbCrLf & Barn<br>End <SPAN style="color:#00007F">Sub</SPAN></FONT>
