Excel VBA - wywolywanie procedury z parametrem

[Andy]

Mam taka mala zagadke, z ktora sobie nie moge poradzic.

(ponizszy kod dla obiektu CommandBar)

With .Controls.Add (Type:=msoControlButton, ID:=2950, Before:=3)
.Caption = "Dzieñ"
.OnAction = "sel_stat"
.FaceId = 1
.BeginGroup = True
End With

Problem w tym, ze przerobilem procedure sel_stat i jej dzialanie jest
teraz uzaleznione od przekazanego parametru. Oczywiscie
.OnAction = "sel_stat (1)" nie zadziala wiec pytanie jak sobie z tym
poradzic ... a moze po prostu OnAction nie obsluguje wywolania
procedury z parametrem?

Pozdrawiam
Andy

[Tajan]

Post by Andy
Mam taka mala zagadke, z ktora sobie nie moge poradzic.
(ponizszy kod dla obiektu CommandBar)
With .Controls.Add (Type:=msoControlButton, ID:=2950, Before:=3)
.Caption = "Dzień"
.OnAction = "sel_stat"
.FaceId = 1
.BeginGroup = True
End With
Problem w tym, ze przerobilem procedure sel_stat i jej dzialanie jest
teraz uzaleznione od przekazanego parametru. Oczywiscie
.OnAction = "sel_stat (1)" nie zadziala wiec pytanie jak sobie z tym
poradzic ... a moze po prostu OnAction nie obsluguje wywolania
procedury z parametrem?

Ujmij dodatkowo nazwą procedury i parametr w apostrofy:

.OnAction = " 'sel_stat 1' "

Oczywiście spacje między cudzysłowem i apostrofem sa zbędne. Zostały dodane
w celu lepszego zobrazowania rozwiązania.

Pozdrawiam
Tajan

[Andy]

Post by Tajan
.OnAction = " 'sel_stat 1' "
Oczywi¶cie spacje miêdzy cudzys³owem i apostrofem sa zbêdne. Zosta³y
dodane w celu lepszego zobrazowania rozwi±zania.

Wielkie dzieki - uprosci mi to znacznie prace. Doczytalem co prawda,
ze mozna to zrobic takze poprzez tagi ale metoda, ktora podales znacznie
bardziej mi odpowiada :)

Pozdrawiam
Andy