NAO CONSIGO INDEXAR UM TEXTBOX NO VBA DO EXCEL
Cara estou utilizando o Excel 2003, estou com um formulário e não consigo ver a indexação de uma controle, mais precisamente da caixa de texto!
Preciso apresentar um projeto inicial e não consigo habilitar esta opção.
Preciso apresentar um projeto inicial e não consigo habilitar esta opção.
Tente deste modo:
[txt-color=#0000f0]Private Sub[/txt-color] CommandButton1_Click()
[txt-color=#0000f0]Dim[/txt-color] a(1) [txt-color=#0000f0]As Variant[/txt-color]
[txt-color=#0000f0]Set[/txt-color] a(0) = TextBox1
[txt-color=#0000f0]Set[/txt-color] a(1) = TextBox2
[txt-color=#0000f0]For[/txt-color] i = 0 [txt-color=#0000f0]To UBound[/txt-color](a)
a(i).Text = [Ô]Teste [Ô] & i
[txt-color=#0000f0]Next[/txt-color] i
a(0).BackColor = 255
a(0).ForeColor = &H8000000F
[txt-color=#0000f0]End Sub[/txt-color]
Atenciosamente,
Fabio Araujo Damascena
[txt-color=#0000f0]Private Sub[/txt-color] CommandButton1_Click()
[txt-color=#0000f0]Dim[/txt-color] a(1) [txt-color=#0000f0]As Variant[/txt-color]
[txt-color=#0000f0]Set[/txt-color] a(0) = TextBox1
[txt-color=#0000f0]Set[/txt-color] a(1) = TextBox2
[txt-color=#0000f0]For[/txt-color] i = 0 [txt-color=#0000f0]To UBound[/txt-color](a)
a(i).Text = [Ô]Teste [Ô] & i
[txt-color=#0000f0]Next[/txt-color] i
a(0).BackColor = 255
a(0).ForeColor = &H8000000F
[txt-color=#0000f0]End Sub[/txt-color]
Atenciosamente,
Fabio Araujo Damascena
Está é uma boa solução. Mas preciso fazer em 150 caixas de texto. Então entendemos, que no VBA não existe a indexação de controles?
Tópico encerrado , respostas não são mais permitidas