logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[EXCEL-VBA] Jak sprawdzić daty i przełączniki w VBA dla błędnych dat?

tohimon 29 Mar 2012 14:13 1567 4
REKLAMA
  • #1 10732535
    tohimon
    Poziom 10  
    Posty: 64
    Ocena: 2
    Jak wygenerować błąd w takiej sytuacji:
    Komórka A1 zawiera datę od
    Komórka A2 zawiera datę do

    Jak wygenerować błąd w vba, w przypadku kiedy data do jest mniejsza niż data od
    Chodzi mi o to żeby sprawdzało w momencie wpisania wartości do komórek
    (np.: Data od 2012-03-01 data do 2012-01-01)

    W vba próbowałem ze zdarzeniem change ale nadal mi to nie wychodzi.

    Chcę to też uzależnić od stanu dwóch przełączników (w sumie jest ich 9 ale przy dwóch wyświetlana jest data).
    W komóce "AN20" mam wpisaną formułę: "data do - data od"

    Kod: text
    Zaloguj się, aby zobaczyć kod


    Działa dopóki nie sprawdzam stanów przełączników
  • REKLAMA
  • #2 10734023
    adamas_nt
    VIP Zasłużony dla elektroda
    Posty: 5320
    Pomógł: 1508
    Ocena: 659
    Nie chodzi Ci przypadkiem o
    Kod: text
    Zaloguj się, aby zobaczyć kod
  • REKLAMA
  • #3 10737320
    tohimon
    Poziom 10  
    Posty: 64
    Ocena: 2
    błąd "type mismach" w linii: If Range("an20") < 0 And CheckBox1 = True Or CheckBox2 = True Then
    Co ciekawe nawet wyskakuje jak włączę inny przełącznik.

    A jak kod by wyglądał jeśli bym go umieścił w kodzie danego przełącznika w opcji "chenge"?? Czy wpływ na działanie kodu ma scalenie komórek??
  • REKLAMA
  • #4 10737745
    adamas_nt
    VIP Zasłużony dla elektroda
    Posty: 5320
    Pomógł: 1508
    Ocena: 659
    tohimon napisał:
    błąd "type mismach" w linii: If Range("an20") < 0 And CheckBox1 = True Or CheckBox2 = True Then
    Kliknij w "AN20" i sprawdź adres w polu nazwy i wartość. Wygląda na to, że nie jest to liczba (data)... Dla pewności zamiast odnosić się do komórki wynikowej sprawdzaj daty /If Range("A2")-Range("A1") < 0 itd/

    Kod (od If do End If) możesz wrzucić do modułu i wywoływać makro przy zdarzeniu arkusza i checkbox'ów...
  • #5 10742842
    tohimon
    Poziom 10  
    Posty: 64
    Ocena: 2
    A czy można za pomocą np. formuły "jeżeli" wywołać makro??
REKLAMA