Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Pętla dla prawidłowego formatu daty i zysku

suszi1 13 Gru 2015 22:17 588 7
  • #1 13 Gru 2015 22:17
    suszi1
    Poziom 2  

    Mam stworzyć pętle, która nie wypuści użytkownika póki nie poda prawidłowej wartości/formatu Daty i Zysku

    Napisałem i nawet działa, tylko niestety w przypadku nieprawidłowego formatu daty makro kończy działanie

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    Jak to zapętlić?

    0 7
  • #2 13 Gru 2015 22:32
    JRV
    Specjalista - VBA, Excel

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 13 Gru 2015 22:43
    suszi1
    Poziom 2  

    Niestety po wpisaniu niepoprawnej daty makro kończy działanie

    0
  • Pomocny post
    #4 13 Gru 2015 22:48
    JRV
    Specjalista - VBA, Excel

    'Exit Sub ' u mnia to nie bylo
    Prawdopodobnie nie usunuto w Ciebie

    0
  • #5 13 Gru 2015 22:53
    suszi1
    Poziom 2  

    Działa... Dziękuję, ale to proste :)

    Jak napisać sprawdzenie poprawnego formatu liczbowego dla pytania o zysk.

    Format 0 000,00 - bez znaku waluty. Zwykłe formatowanie liczbowe

    0
  • Pomocny post
    #6 13 Gru 2015 22:55
    JRV
    Specjalista - VBA, Excel

    suszi1 napisał:
    Dim Zysk As Integer
    Znasz, co to jest 'Integer'?

    0
  • #7 13 Gru 2015 23:01
    suszi1
    Poziom 2  

    Jasne, dziękuję za 2 szybkie odpowiedzi

    0
  • Pomocny post
    #8 13 Gru 2015 23:04
    JRV
    Specjalista - VBA, Excel

    Formatowanie użyj już w komorce, inaczej spacja w liczbie - to będzie 'String'

    Dodano po 2 [minuty]:

    If IsNumeric(Zysk) And Int(Zysk * 100) = (Zysk * 100) Then
    ' Liczba 2 po precinku

    0