VBA/Excel/Access/Word/Excel/Evaluate

Материал из VB Эксперт
Версия от 12:47, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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