Ir ao conteúdo
  • Cadastre-se

Acionar ChekBox no excel através de uma Checkbox no VBA?


draguiabo

Posts recomendados

Estou fazendo um Form em VBA para preenchimento em uma planilha no excel. Mas tenho essa dúvida, como eu aciono uma CheckBox no excel através de uma CheckBox no VBA?

o meu código está assim:

If Me.teste.Value = True Then

???????

End If

onde o Teste é o nome do CheckBox no Form. Quero saber o que eu coloco nos ???? para ele acionar o CheckBox na planilha em excel.

A planilha de excel não fui eu que fiz, e não sei o endereço nem o nome do CheckBox que está nela..

Podem me ajudar por favor??

Link para o comentário
Compartilhar em outros sites

Bom dia!!

Um exemplo talvez..

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight).Select
With Selection
.Caption = ""
.Value = xlOff
.LinkedCell = "C" & ToRow
.Display3DShading = False
'------------------------------------------------------
'- format
.Placement = xlFreeFloating
.PrintObject = True
'-------------------------------------------------------
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 13
.ShapeRange.Fill.Transparency = 0#
.ShapeRange.Line.Weight = 0#
.ShapeRange.Line.DashStyle = msoLineSolid
.ShapeRange.Line.Style = msoLineSingle
.ShapeRange.Line.Transparency = 0#
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.ForeColor.SchemeColor = 64
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End With
End If
End Sub

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...