• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Null v podmínce VBA

Zaslal/a Koci 15.4.2010 9:38

Ahoj,
dělám tu jedno makro a dostal jsem se k jistému problému a nevím kudy z něj
Mám proceduru kde volám tento dotaz:
Application.WorksheetFunction.Match(Cells(4, 16), Stredisko, 0)

S tím, že proměná "Stredisko" je typu Range a má odkaz na oblast buněk s údaji. Vše funguje naprosto parádně až do chvíle, kdy hledaná hodnota v oblasti "Stredisko" není. Je sice správně zadaná na počet míst, ale neexistuje.

Snažil jsem se přijít nějak na to, jak tam dát jednoudchou podmínku If..Then..Else, ale nevím co porovnávat, pač volaná metoda vždy hodí chybu, že hodnotu nemůže najít. Někde jsem se dočetl, že by se to mohlo řešit snad dotazem na "Null", ale tam má zkušenost s VBA zatím nesehá. Můžete někdo poradit nějaký dotaz, kterým bych se VBA zeptal, zda funkce Match proběhla a vrátí hodnotu, než hodí VBA chybu, že tuto operaci nelzé provést?

Děkuji moc

Zaslat odpověď >

---

Strana:  1 2   další »

Poki(15.4.2010 9:54)#001467

Jestli to dobre chapu, tak hledana hodnota neni v zadane oblasti - pak lze použít napr. toto:

On Error Resume Next
promenna = Application.WorksheetFunction.Match(Cells(4, 16), Stredisko, 0)
If Err.Number = 1004 Then
MsgBox "Chyba - hledaná hodnota se v oblasti nenachází"
exit sub
end ifcitovat

Koci(15.4.2010 10:03)#001468

Paráda, funguje to naprosto přesně tak jak má.
Mohu ještě poprosit o vysvětlení toho zápisu:

On Error Resume Next

Z jakého důvodu se tam toto musí dopsat a jakou funkci to plní?
Děkuji za objasnění citovat

Poki(15.4.2010 10:06)#001469

On error resume next pouze zamezi tomu, aby se beh makra ukoncil pri chybe - 'při chybě pokračuj na další řádek'.
Na tom dalším řádku (podminka If) se pak provede test čísla chyby...
Pokud chyba nenastane, makro pokracuje vesele dal :)citovat

Koci(15.4.2010 10:10)#001470

Ah, vyborně další vychytávka objasněna a zapsána do chytrého sešitu
Když jsme tak u toho vysvětlování, můžu poprosit o vysvtlení tohoto?

Private Sub Worksheet_Change(ByVal Target As Range)

Použil jsi to v radě pro spuštění makra na základě změny buňky, ale jsem z toho nějakej zmatenej

Mám to dokonce i v jednom makru od tebe, které jsi mu tu poradil, ale nikde v tom nevidím nic, co by tu procedůru dělalo procedůrou když Worksheet_Change je jenom název a parametr je definice nějaké proměné, kterou už pak nikde nedefinuju nebo tam nepřiřazuju nějakej odkaz. Děkuju za vystělní pro začátečníka citovat

Poki(15.4.2010 10:15)#001471

Tohle je udalostni procedura listu - je implementovana ve VBA.
Spusti se vzdy, kdyz dojde ke zmene v nejake bunce na konkretnim listu, kde se procedura nachazi.
Target je potom bunka, kde doslo ke zmene.

Tahle procedura (stejne jako ostatni udalostni procedury listu nebo nebo sesitu) muze byt vzdy jen JEDNA (na tom konkretnim listu nebo sesitu).

Nic se tam nenastavuje, protoze vse je definovano primo ve VBA.citovat

Koci(15.4.2010 10:18)#001472

Hmm Hmm, potom tedy poslední dotaz, jak VBA pozná, které makro má spustit a při jaké změny buňky? To mi nějak nejde pořád logicky dohlavy Pač když tam těch maker mám víc, nebudou se spoustět všechny vždy, když nějaká buňka bude změněna?citovat

Poki(15.4.2010 10:27)#001473

No, tady ta '_Change' procedura musi byt umistena v modulu konkr. listu a VBA vi, ze kdyz tam je, tak pri KAZDY zmene JAKYKOLIV bunky (nebo oblasti) ji musi provest!
VBA nespusti pri zmene bunky vsechny makra - vzdy jen Private Sub Worksheet_Change(ByVal Target As Range).

Pouziva se to, kdyz chces treba spustit makro v pripade, ze se zmeni napr. bunka A1 - pak v te procedure napises:
if target.address = "$A$1" then msgbox "zpráva"
Pokud se tedy stane zmena v jine bunce nez A1, tak se zdanlive nestane nic, ale VBA overi podminku Ifcitovat

Koci(15.4.2010 10:34)#001474

Takže pro jednoduché ujasnění.
Pokud si do moduluu napíšu tuto proceduru Worksheet_change, tak pro celý list platí, že to co bude v procdůře zapsané se provede napři:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("P4") = 1
If Cells(1, 1) < 10 then
Cells(2, 2) = 8
Else
Cells(2, 2) = 5
End If
End sub

Pokud to tedy takto napíšu, tak při každé změně, kterékoliv bunky proběhne to, že do P4 se napíše 1 a dle podmínky do bunky B2 bude 8 nebo 5?, ale ostatní makra mimo procedůru Worksheet_Change se nebudou provádět na změnu? Nebo je to tak, že všechny procedůry Private se budou provádět vždy na nějakou změnu?

Promin, zda moc otravuju, ale moc by mi to pomohlo při pochopení logiky VBA, tak se ptám citovat

Poki(15.4.2010 10:41)#001475

Presne tak, pri kazde zmene na tom konrektnim listu bude P4 = 1 a B2 = 5 nebo 8.

Ostatni makra nebudou spustena.
Predstav si tyhle udalostni procedury treba tak, ze jsou prirazeny tlacitku, ktery se automaticky spusti vzdy, kdyz nastane udalost, kterou postihuji.

Vzdy ale bude provedena jen ta konkretni procedura.
Samozrejme do ni muzes vlozit spusteni jineho makra, prikazem Call Nazev_makracitovat

Koci(15.4.2010 10:46)#001476

Super, v tom případě jsi mi zase pomohl a jdu si s tím pohrát. Mám však ještě jeden dotaz na toto téma

Kdysi jsi mi poradil toto makro:

Private Sub Worksheet_Calculate()
ThisWorkbook.Names.Add "Stredisko", "=Seznam!$A$" & Range("W8") & ":$N$" & Range("W9")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Procedura Worksheet_calculate() se však provadí vždy na změnu nějaké buňky i když není volaná v procedůře Worksheet_Change a nevím ted tedy proč citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse