Czasem możemy chcieć sprawdzić czy w danej komórce ustawiono sprawdzanie poprawności (walidację), np. aby jej nie popsuć wklejaniem
Poniżej funkcja logiczna, która to sprawdza
Function JestSprawdzaniePoprawnosci(KomSprawdzania As Range) As Boolean Dim Typ As Long On Error GoTo Obsluga Typ = KomSprawdzania.Validation.Type JestSprawdzaniePoprawnosci = True Exit Function Obsluga: JestSprawdzaniePoprawnosci = False End Function |