Új hozzászólás Aktív témák

• #23971 Wyll őstag

  Új Válasz 2014-10-29 15:52:33 #23971

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Wyll

  őstag

  Vajon mi a baj?

  Azt akarom, hogy egy userform-on lévő toggle button akkor és csak akkor legyen benyomva (value=1), amikor bizonyos oszlopok nincsenek elrejtve (hidden = false); illetve hogy a be vagy kikapcsolása egyben rejtse is el vagy jelenítse is meg a cellákat.

  A rejtés/felfedés funkció működik is szépen, csak az inicializálás nem: ha a cellák el vannak rejtve, akkor sem lesz benyomott állapotú a userform indulásakor.

  Private Sub togbutTranslate_Click()
  If Range("b_forditocellak").EntireColumn.Hidden = True Then
  Range("b_forditocellak").EntireColumn.Hidden = False
  Else
  Range("b_forditocellak").EntireColumn.Hidden = True
  End If
  End Sub
  
  Private Sub UserForm_Initialize()
  If Range("b_forditocellak").EntireColumn.Hidden = True Then
  Me.togbutTranslate.Value = True
  End If
  Me.labVersion.Caption = "Jegyzőkönyv verziója: " & Worksheets("MAGYAR").Range("N2").Value
  End Sub

Új hozzászólás Aktív témák