< návrat zpět

MS Excel

Téma: událostní procedura rss

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
avatar
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
avatar
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" 5citovat
dantroj(6.4.2009 13:06)#000452
avatar
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
avatar
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 6
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 ? 4citovat
kolokol(6.4.2009 13:59)#000454
avatar
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
avatar
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje