MS Excel

Téma: call sub vba

Zaslal/a marcinko.jan 22.4.2010 7:58

Zdravíč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ěď >

Koci(22.4.2010 8:23)#001521

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

citovat

marcinko.jan(22.4.2010 8:27)#001522

Hmm skvělé, takle mě to nenapadlo.. Přesně todle jsem potřeboval

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

Díky moccitovat

Uživatelské menu

Nejste přihlášen(a)

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.