Prezados,
Estou desenvolvendo um programa no Excel 2010 utilizando o VBA.
Para este programa necessito poder criar dinamicamente uma textbox ao clique de um botão, e que as textbox posicionem-se abaixo uma das outras.
Conheço realmente muito pouco de programação e o que já construí do programa utilizei alguns tutoriais na internet.
Até onde pesquisei, usar classes me ajudaria bastante, mas não consigo entender como funciona.
Eu vou ter que aprender a usar classes ou posso executar estas ações por outros meios?
Segue o código que consegui montar:
Private Sub CommandButton1_Click()
Dim contTel As Control
Dim i As Integer
Dim nTxtTel As Control
For Each contTel In Me.Controls
If left(contTel, 3) = "tel" Then
i = i + 1
End If
Next contTel
Set nTxtTel = Me.Controls.Add("Forms.TextBox.1", "tel" & i, True)
With nTxtTel
.width = 72
.Height = 18
.top = Me.tel1.top + ((Me.tel1.Height + 20) * i)
.left = 20
.ZOrder (0)
End With
End Sub
Postado : 15/06/2016 8:47 am