MS Excel

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

Zaslal/a €Ł мσşqμΐτσ 15.8.2012 0:06

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

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

Poki(15.8.2012 10:38)#009240

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 CMBcitovat

€Ł мσşqμΐτσ(16.8.2012 17:58)#009258

jj funguje perfektně, děkuji.

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

"For Each" nahradit něčím jiným.citovat

kp57(16.8.2012 21:18)#009259

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 = Falsecitovat

€Ł мσşqμΐτσ(17.8.2012 15:50)#009271

Super díky, tohle jsem potřeboval.
Díky vám oběma.

citovat

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.