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

MS Excel

Téma: událostní procedura

Zaslal/a dantroj 5.4.2009 19:13

Ahoj.Mohu zadat na jeden list více událostních procedur jednoho typu(Change)?(jestli ano,tak jak na to.když zkouším zadat vše do jedné procedury potřebuji tam mít více podmínek ,ale to mi potom hází samou chybu...:(

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim h5 As Range
Dim f13 As Range
Set h5 = Range("h5")
Set f13 = Range("f13")
If h5 <= f13 Then
Call mmm
End If
End Sub

v podstatě potřebuji na jednom listu porovnávat vždy 2 bunky a po splnění podmínky vyvolat makro .pro každou variantu jiné...

Zaslat odpověď >

---

kolokol(6.4.2009 10:40)#000449

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h5 As Range, f13 As Range
Set h5 = Range("h5")
Set f13 = Range("f13")
If h5 <= f13 Then
Call mmm
Else
Call nnn
End If
End Subcitovat

kolokol(6.4.2009 10:44)#000450

Vyzkoušel jsem to větvení a funguje mi zcela bezkonfliktně podle tvých požadavků. Jestli ti náhodou kolizi nezpůsobojí volaná makra. Já použil na testování jednoduché msgbox "mmm", respektive msgbox "nnn" citovat

dantroj(6.4.2009 13:06)#000452

No jasně .asi jsem se špatně vyjádřil.tohle makro funguje bez problémů , ale potřebuju ,abych měl na jednom listu tyhle makra 4x a to nevím jak mám udělat.potřebuju hlídat 4 bunky na jednom listu a tohle makro je pouze na jednu bunku z těch 4....citovat

kolokol(6.4.2009 13:58)#000453

Nevím, jestli jsem tě teď dobře pochopil. Zkusil jsem následující kód pro dvě porovnávané dvojice buněk a opět funguje podle požadavků. Žádnou chybu mi to "neháže". A bude to jistě fungovat pro další a další dvojice buněk
Ale možná to má vyvolávat makro jen v případě změny vztahu některé ze sledovaných dvojic buněk a na jiné změny nereagovat. TAk je to míněno ? citovat

kolokol(6.4.2009 13:59)#000454

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a1 As Range, b1 As Range, c1 As Range, d1 As Range
Set a1 = Range("a1")
Set b1 = Range("b1")
Set c1 = Range("c1")
Set d1 = Range("d1")
If a1 <= b1 Then
Call mmm
End If
If c1 <= d1 Then
Call nnn
End If
End Subcitovat

dantroj(6.4.2009 14:16)#000456

tahle si to představuju a jsem to i zkoušel a to mi házelo chyby.zkusím to ještě jednou až se dostanu domu .napíšu jak to dopadlo a dám vědět.zatím děkuji za odezvu.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse