Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Procedura chovající se jako funkce?

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Procedura chovající se jako funkce?

Autor: JiriValerian

19:34:16 24.03.2011

[color=#008000]Trainzak Napsal:
-------------------------------------------------------
> Mám ve VBA v samostatném modulu jednoduchou
> proceduru na smazání daného řádku:
>
> Sub SmazatRadek(List As Worksheet, Radek As
> Integer)
> List.Range(Radek & ":" & Radek).Delete
> End Sub
>
>
> Pak ji volám kliknutím na tlačítko:
>
> Private Sub CommandButton1_Click()
> SmazatRadek(ActiveWorkbook.Worksheets("List1"),
> 5)
> End Sub
>
>
> Problém je v tom, že kompilátor toto nepřeloží a
> hlásí syntax error v tomto řádku:
> SmazatRadek(ActiveWorkbook.Worksheets("List1"),
> 5)
>
>
> V čem může být problém? Kompilátor také občas
> hlásí, že očekává =[/color]

Problém by mohl být v tom, že se snažíš volat proceduru jako funkci tj. s vnějšími závorkami, a to ve VBA vadí.

Zkus to bez vnějších závorek takto:

[code][color=#000080]Private Sub CommandButton1_Click()
SmazatRadek ActiveWorkbook.Worksheets("List1"), 5
End Sub[/color][/code]

[b]PS:[/b]
Do budoucna s dotazem, který se týká VB nebo VBA choď do konference viz odkaz.

http://forum.builder.cz/list.php?19

Citovat příspěvek

 

Re: Procedura chovající se jako funkce?

Autor: Farao

12:24:02 16.03.2011

>> Mám ve VBA

A co má VBA (visual basic for applications) společného s Visual C++? Nespletl jsi si fórum?

Citovat příspěvek

 

Procedura chovající se jako funkce?

Autor: Trainzak

17:44:18 15.03.2011

Mám ve VBA v samostatném modulu jednoduchou proceduru na smazání daného řádku:

Sub SmazatRadek(List As Worksheet, Radek As Integer)
List.Range(Radek & ":" & Radek).Delete
End Sub


Pak ji volám kliknutím na tlačítko:

Private Sub CommandButton1_Click()
SmazatRadek(ActiveWorkbook.Worksheets("List1"), 5)
End Sub


Problém je v tom, že kompilátor toto nepřeloží a hlásí syntax error v tomto řádku:
SmazatRadek(ActiveWorkbook.Worksheets("List1"), 5)


V čem může být problém? Kompilátor také občas hlásí, že očekává =

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: