Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z funkcyjką
bogdan57




Typ: neutral
Postów: 2
Zarejestrowany: Feb 2004
Problem z funkcyjką

Witam
i zaczynam od prośby o pomoc
Wypociłem funkcję sprawdzającą poprawność numeru NIP:

Function NIP1(numer) As String

Dim suma, i As Integer
Dim waga(9), kod, Tnip As String
kod = Mid(numer, 1, 9)
waga(1) = 6
waga(2) = 5
waga(3) = 7
waga(4) = 2
waga(5) = 3
waga(6) = 4
waga(7) = 5
waga(8) = 6
waga(9) = 7
suma = 0
If Len(numer) = 10 Then
    For i = 1 To 9
        suma = (waga(i) * (Mid(kod, (i), 1))) + suma
    Next i
    Tnip = kod & (suma Mod 11)
        If Tnip = numer Then 'jeżeli tak
                NIP1 = "PRAWDA"' lub "T"
                a = 3
            Else
                NIP1 = "FAŁSZ" ' lub "N"
                a = 5
        End If
Else
    NIP1 = "niewłaściwa ilość cyfr"
End If
Selection.Font.ColorIndex = a ' to nie działa
Selection.Font.Bold = True ' to nie działa
End Function


1. Mój problem zaczyna się przy formatowaniu komórki. Format czcionki pozostaje bez zmian.
Jak to przeskoczyć?
2. Application.Volatile (True)'czy to jest niezbędne i kiedy ma zastosowanie?


_____________________________________________
bogdan57

23-02-2004 23:57
Pokaż profil bogdan57  Wyślij email do bogdan57   
Wszystkich odpowiedzi: 0 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1