Jump to content
Fórum Script Brasil
  • 0

Criar uma Variável com textbox dinâmico


Question

pessoal, sou iniciante em VBA e tenho uma dúvida em relação a formulários, tenho 6 textbox com os nomes txtvalorsinal1 até o txtvalorsinal6,

gostaria de fazer um For (i) para rodar uma rotina para trazer os valores de cada textbox nas linhas.

criei uma variável com o nome: parcela = "txtvalorsinal" & i, dentro do txtvalorsinal1 tem o valor de 100,00, porém o retorno da variaval não tras os 100 e sim "txtvalorsinal1", como eu faço pra trazer o valor??

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Bom dia @drreis.

Você pode usar a propriedade controls do seu formulário.

Eu fiz um formulário com 7 campos de texto e um botão para retornar o valores dos sete botões de modo dinâmico.

image.thumb.png.44bac128ada733c62747c87922559da0.png

image.thumb.png.00fb55f9e4a98fc971cc757da41c282c.png

Segue abaixo o código:

Private Sub CommandButton1_Click()
Dim i As Long
Dim msg As String
For i = 1 To 7 Step 1
    msg = msg & Chr(13) & UserForm1.Controls("TextBox" & i).Value
Next i
MsgBox msg
End Sub

 

Link to post
Share on other sites
  • 0
Em 01/11/2020 em 08:46, Alyson Ronnan Martins disse:

Bom dia @drreis.

Você pode usar a propriedade controls do seu formulário.

Eu fiz um formulário com 7 campos de texto e um botão para retornar o valores dos sete botões de modo dinâmico.

image.thumb.png.44bac128ada733c62747c87922559da0.png

image.thumb.png.00fb55f9e4a98fc971cc757da41c282c.png

Segue abaixo o código:

Private Sub CommandButton1_Click()
Dim i As Long
Dim msg As String
For i = 1 To 7 Step 1
    msg = msg & Chr(13) & UserForm1.Controls("TextBox" & i).Value
Next i
MsgBox msg
End Sub

 

Deu certo, muito obrigado!!

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148875
    • Total Posts
      644917
×
×
  • Create New...