VBA/Excel/Access/Word/Excel/Evaluate
Версия от 16:33, 26 мая 2010; (обсуждение)
Test for empty cell
Sub IsActiveCellEmpty()
Dim stFunctionName As String
Dim stCellReference As String
stFunctionName = "ISBLANK"
stCellReference = ActiveCell.Address
MsgBox Evaluate(stFunctionName & "(" & stCellReference & ")")
End Sub
Use Evaluate function to execuate function
Public Sub ConcatenateExample1()
Dim X As String, Y As String
X = "Jack "
Y = "Smith"
MsgBox Evaluate("CONCATENATE(""" & X & """,""" & Y & """)")
End Sub