Много често ми се е налагало да знам как 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

Още публикации по темата:

• Изтриване на празни редове (0)
• Как да търсим и отпечатаме запис чрез VBA for Microsoft Excel? (2)
• Създайте лесно форми в Excel с помощта на VBA (0)
• VBA for Microsoft Excel – електронна книга на Боряна Петрова (2)
• VBA for Microsoft Excel (0)