< návrat zpět

MS Excel


Téma: userform.commandbutton(i).enabled rss

Zaslal/a icon 15.8.2012 0:06

€Ł мσşqμΐτσAhoj všem.
Potřeboval bych pomoct s tímto příkazem tak aby fungoval. viz níže


Sub ZakazTlacitko()
Dim i As Integer
Dim cmd As Variant

i = 2
cmd = "UserForm1.CommandButton" & i
cmd.Enabled = False
End Sub


Mám userform s více tlačítkama kde pokaždé potřebuji zakázat jiné.
předem děkuji

stop Uzamčeno - nelze přidávat nové příspěvky.

icon icon#009240
Poki
Mozna by to slo takto, ale netestoval jsem to:

Dim CMB As Control, i As Long
i = 2
For Each CMB In Me.Controls
If CMB.Name = "CommandButton" & i Then
CMB.Enabled = False
End If
Next CMB
citovat
icon#009258
€Ł мσşqμΐτσ
jj funguje perfektně, děkuji.

A nešlo by to bez cyklování??

"For Each" nahradit něčím jiným.citovat
icon#009259
avatar
Zkus:

Dim cmd as String
cmd = "CommandButton" & i
UserForm1.Controls.Item(cmd).Enabled = False

a nebo ještě

Dim Fcmd As String
Dim cmd As String
Fcmd = "UserForm1"
cmd = "CommandButton" & i
UserForms.Add(Fcmd).Controls.Item(cmd).Enabled = False
citovat
icon#009271
€Ł мσşqμΐτσ
Super díky, tohle jsem potřeboval.
Díky vám oběma. 5citovat

Uživatelské menu

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

Menu

On-line nástroje

Novinky

Formulář Faktura III

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

Aktivní diskuse

Vyhledat hodnotu poslední buňky s hodnotou

pepča • 20.11. 23:07

Vyhledat hodnotu poslední buňky s hodnotou

pepča • 20.11. 22:51

Vyhledat hodnotu poslední buňky s hodnotou

Stalker • 20.11. 21:20

Vylepšení funkce VLOOKUP

mike-biker • 20.11. 21:07

Vylepšení funkce VLOOKUP

marjankaj • 20.11. 20:43

Vyhledat hodnotu poslední buňky s hodnotou

pepča • 20.11. 20:26

Vylepšení funkce VLOOKUP

mike-biker • 20.11. 18:46