Как лесно да проверим типа на клетка в Excel с помощта на няколко реда код на VBA

Много често ми се налага да знам как Excel чете данните в определена клетка.  В зависимост от това какъв тип са тези данни (текст, дата, числа, формула), то могат да бъдат изпълнени различни действия. Ето няколко въвеждащи стъпки във VBA.

Sub име на процедурата ()

If Application.IsText(ActiveCell) = True Then	‘проверява дали текущата клетка съдържа текст
MsgBox „Text“	‘извежда съобщение „текст”. Този ред може да замените с ваша процедура.
Else
If ActiveCell = “ “ Then	‘проверява дали текущата клетка е празна
MsgBox „Blank cell“	‘извежда съобщение „празна клетка”. Този ред може да замените с ваша процедура.
Else
End If
If ActiveCell.HasFormula Then	‘проверява дали текущата клетка съдържа формула
MsgBox „formula“	‘извежда съобщение „формула”. Този ред може да замените с ваша процедура
Else
End If
If IsDate(ActiveCell.Value) = True Then	‘проверява дали текущата клетка съдържа дата
MsgBox „date“	‘извежда съобщение „дата”. Този ред може да замените с ваша процедура
Else
End If
End If
End Sub

Tова е само една малка част от знанията и уменията,  които ще придобиете от обученията за Excel 2003/2007 – VBA (Visual Basic for Applications) в учебния център на New Horizons Bulgaria.