MS Excel

Zdravím všechny hezké Vánoce. Resim jeden problem ktery neumim vyresit. Potreboval bych v UserForm vybirat ktere sloupce nechat odkryte a ktere schovat (ne klasicky skryt ale potreboval bych aby se jen zestihlovaly a vracely do dane sirky dle vyberu neco jako

Selection.ColumnWidth = 0.01.
Selection.ColumnWidth = 10

Děkuji za pomoc

Zaslat odpověď >

Merlin99(14.12.2018 19:54)#042114

*PS v UserForm jsem v příloze pouzi spatne tlacitka k vyberu chtel jsem vybrat ty druhe aby slo klasicky ve vsech tlacitkach volit zapnout vypnout. DÍKYcitovat

elninoslov(15.12.2018 1:22)#042120

Tak malú šírku to považuje za 0.
Dim DisableEvents As Boolean
Const SIRKA_MALA = 0.01
Const SIRKA_VELKA = 10

Private Sub ckbSloupec2_Click()
ZmenaSirky ckbSloupec2
End Sub

Private Sub ckbSloupec3_Click()
ZmenaSirky ckbSloupec3
End Sub

Private Sub ckbSloupec4_Click()
ZmenaSirky ckbSloupec4
End Sub

Private Sub UserForm_Initialize()
DisableEvents = True
ckbSloupec2.Value = List1.Columns(2).ColumnWidth <= SIRKA_MALA
ckbSloupec3.Value = List1.Columns(3).ColumnWidth <= SIRKA_MALA
ckbSloupec4.Value = List1.Columns(4).ColumnWidth <= SIRKA_MALA
DisableEvents = False
End Sub

Sub ZmenaSirky(ckb As MSForms.CheckBox)
If DisableEvents Then Exit Sub
Select Case ckb.Value
Case True: List1.Columns(CByte(ckb.Tag)).ColumnWidth = SIRKA_MALA
Case False: List1.Columns(CByte(ckb.Tag)).ColumnWidth = SIRKA_VELKA
End Select
End Sub

Příloha: zip

42120_skrryti.zip (18kB, staženo 22x)

citovat

Merlin99(15.12.2018 10:57)#042122

elninoslov: TAk to je bomba presne jak jsem potreboval DÍKY moc za pomoc.

citovat

Amor007(15.12.2018 11:04)#042123

Měl bych dotaz zadal jsem tam Sloupec E a když dám zakliknout udělá to hlášku, že je něco špatně a znázorní to žlutě: List1.Columns(CByte(ckb.Tag)).ColumnWidth = SIRKA_MALA

Posílám obrázek

A nevím co mám špatně.
Děkuji

Příloha: jpg