VBA/Excel/Access/Word/Excel/Evaluate — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 12:47, 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