Marque a caixa com macro

0

por favor, como fazer a caixa de seleção no excel fazer funcionar com "2 macros"?

Eu preciso disso, quando marcado, escondo algumas linhas e quando desmarcado, apresento novamente. Como posso fazer isso?

Eu tenho esta macro:

Sub bodnariucova_jednotlivci()
    Columns("U:EW").Hidden = True
End Sub

EDIT:Euediteiassim

Subbodnariucova_jednotlivci()DimcBoxAsCheckBoxSetcBox=ActiveSheet.CheckBoxes(LName)IfcBox.Value>0ThenColumns("U:EZ").Hidden = True

    Else
      Columns("U:EZ").Hidden = False
    End If
End Sub

Mas quando eu executo eu recebo erro de tempo de execução '1004' não é possível obter propriedades CheckBoxes de classe Worksheet (algo assim, apenas no meu idioma).

    
por Roman Žydyk 12.04.2017 / 10:38

1 resposta

0

Você não precisa de duas macros, você pode fazer isso em um. Mas tem que garantir que você use um CheckBox da barra de ferramentas do ActiveX.

Editar: Insira um novo CheckBox, clique com o botão direito e escolha "Mostrar código" (ou similar em seu idioma). A nova caixa de seleção recebe um nome como CheckBox1 e a macro mostrada é denominada CheckBox1_Click() .

Private Sub CheckBox1_Click()
   If CheckBox1.Value = True then
       Columns("U:EW").Hidden = True
   Else 
       Columns("U:EW").Hidden = False
   End If
End Sub

E com algumas lógicas booleanas, você pode simplificar essa macro:

Private Sub CheckBox1_Click()
    Columns("U:EW").Hidden = CheckBox1.Value
End Sub
    
por 12.04.2017 / 11:00