Microsoft обучениe и професионални IT консултации за всеки бизнес

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

This website uses cookies so that we can provide you with the best user experience possible. Cookie information is stored in your browser and performs functions such as recognising you when you return to our website and helping our team to understand which sections of the website you find most interesting and useful.