VBA/Excel/Access/Word/Excel/Evaluate — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
Test for empty cell
<source lang="vb">
Sub IsActiveCellEmpty()
Dim stFunctionName As String Dim stCellReference As String stFunctionName = "ISBLANK" stCellReference = ActiveCell.Address MsgBox Evaluate(stFunctionName & "(" & stCellReference & ")")
End Sub
</source>
Use Evaluate function to execuate function
<source lang="vb">
Public Sub ConcatenateExample1()
Dim X As String, Y As String X = "Jack " Y = "Smith" MsgBox Evaluate("CONCATENATE(""" & X & """,""" & Y & """)")
End Sub
</source>