TEXTBOX - CARREGAMENTO COM COMBINACAO DE ARRAYS

ASHKATCHUP 24/04/2010 18:38:32
#340133
Você está usando o VBA... o meu projeto não vai funcionar ai...

Tente zipar o projeto e anexar aqui...
THIAGOM 25/04/2010 00:26:04
#340169
Com dez textboxes até que dá pra fazer assim (link), imagina com 80...

Se vc conseguir com essas 10, vai dar para adaptar para 80 textboxes.


Pega aqui:
http://www.4shared.com/document/dNKSYVM4/Projeto.html
ASHKATCHUP 25/04/2010 10:36:03
#340182
Até que foi fácil fazer para 10... e está funcionando



Private Sub CommandButton1_Click()
    Dim iContador As Integer
    [ô]
    For iContador = 1 To 10
        Range([Ô]A[Ô] & iContador) = func_Texto_Textbox(iContador)
    Next
    [ô]
End Sub

Private Function func_Texto_Textbox(iNumero As Integer) As String
    Dim objControle As Control
    Dim sNome As String
    [ô]
    func_Texto_Textbox = [Ô][Ô]
    sNome = [Ô]Textbox[Ô] & iNumero
    [ô]
    For Each objControle In Me.Controls
        [ô]
        If UCase(objControle.Name) = UCase(sNome) Then
            func_Texto_Textbox = objControle.Text
            Exit Function
        End If
        [ô]
    Next
    [ô]
End Function

Private Sub UserForm_Initialize()
    Dim iContador As Integer
    [ô]
    For iContador = 1 To 10
        SL_Texto_Textbox iContador, Range([Ô]A[Ô] & iContador)
    Next
    [ô]
End Sub

Private Sub SL_Texto_Textbox(iNumero As Integer, sTexto As String)
    Dim objControle As Control
    Dim sNome As String
    [ô]
    sNome = [Ô]Textbox[Ô] & iNumero
    [ô]
    For Each objControle In Me.Controls
        [ô]
        If UCase(objControle.Name) = UCase(sNome) Then
            objControle.Text = sTexto
            Exit Sub
        End If
        [ô]
    Next
    [ô]

End Sub
THIAGOM 06/05/2010 10:37:34
#341089
Só pude testar Agora!!!....

Tu sabe muito hein!?...

De certa forma fácil, mas não consegui pensar nisso. Muito bom.

VALEU!!!!!!!!....
Página 3 de 3 [24 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar