< návrat zpět

MS Excel


Téma: call sub vba rss

Zaslal/a 22.4.2010 7:58

marcinko.janZdravíčko, hledal jsem, ale nenašel následující problém..

Mám proměnnou ii, která nabývá hodnot 1 až 10. Pokud bude ii = 1 zavolej sub1, pokud ii = 2 zavolej sub2, atd.. až ii = 10 then call sub 10

Chtěl jsem to udělat následovně:
if ii = 1 then call sub & 1

ale to me nešlo, nedá se nějak volat script podle mých požadavků? aby pořadové číslo bylo ii

Díky moc

Zaslat odpověď >

#001521
avatar
Ahoj, lze to vyřešit takto:

Private Sub VolaniPoProcedure()
If ii = 1 Then
Procedura = "Makro_" & "" & ii
Application.Run Procedura
End If
End Sub

Dle rozhodujícího bolku se do proměné Procedura uloží string Makro_ii a spustí ji.

Doporučuji nepoužívat název sub jako název procedůry, mohlo by to zlobit, pač SUB je přikaz pro začátek prcedůry samotné.

Snad jsem pomohl 4citovat
#001522
marcinko.jan
Hmm skvělé, takle mě to nenapadlo.. Přesně todle jsem potřeboval

BTW: sub jako název byl jen příklad.. 5

Díky moccitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21