VBA/Excel/Access/Word/Excel/Evaluate

Материал из VB Эксперт
Перейти к: навигация, поиск

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