funkciju definēšana Excel

Datori un internets » Cits

Nesaprotu, kur es kļūdos pierakstot funkciju definīcijas? Otrajā un trešajā definētajā funkcija nestrādā.
Jau iepriekš paldies.

Dim decimals As Boolean
Dim tiirs As Boolean

Public Function CheckDecimal(current)
decimals = False
If current < 0 Then
MsgBox "Negative Value. Try again", vbExclamation
Else
If current > ActiveCell.Offset(-1, 2).Range("A1") Then
MsgBox "Too large value. Try again", vbExclamation
Else
decimals = True
End If
End If
End Function

Public Function Tuksh()
tiirs = False
If ISBLANK = (ActiveCell.Offset(0, 1).Range("A1")) Then
tiirs = True
Else
MsgBox "Kljuuda, jau aizpildīts tekošā ieraksta ienākumu lauks, veido jaunu ierakstu!", vbExclamation
End If
End Function

Public Function datums_tiirs()
tiirs = True
If ISBLANK(ActiveCell.Offset(0, -1).Range("A1")) Then
tiirs = False
MsgBox "Kljuuda, nav aizpildīts tekošā ieraksta datums", vbExclamation
End If
End Function

• Labs jautājums?
  
• Jā
•  
• Nē

Pirms 14 gadiem

• Tweet