Notifications
Clear all

Ajuda na adicionar textbox dinâmicas

3 Posts
3 Usuários
0 Reactions
705 Visualizações
(@sr-anonimo)
Posts: 1
New Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se entendi, a rotina abaixo cria 03 textbox no UserForm1, um abaixo do outro.

Private Sub CommandButton2_Click()

   Dim chb As MSForms.TextBox
   
   'criar os TextBox
   For sTxt = 1 To 3
      
      Set chb = UserForm1.Controls.Add("forms.textBox.1")
      
      With chb
         .Top = iTop
         .Left = 5
         .Width = 100
         .Value = "Textbox " & sTxt
      End With
      
      iTop = iTop + 20
      
   Next
   
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/06/2016 10:44 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Sr.Anônimo,

Boa tarde!

Segue pequeno exemplo que cria, dinâmicamente em tempo de execução, 3 controles caixa de tetxo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 15/06/2016 11:53 am