Home Excel - Downloads / Areas Restritas Excel VBA - Decompoe Palavras

Excel VBA - Decompoe Palavras

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba decompor itens separados ponto virgula Excel planilha vba decompor itens separados ponto virgula

    popular!
    Adicionado em: 30/03/2011
    Modificado em: 17/07/2015
    Tamanho: 70.56 KB
    Downloads: 801

    Saberexcel - o site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe palavras disposta em linha(horizontal) separada por vírgula, ponto vírgula ou outro caracter, decompõe em determinada Coluna(Vertical). Atente para o caracter separador e modifique no Macro.
    Espero que o exemplo possam lhe ser útil. Fiquem com Deus. Bons Estudos.


    Sub Decompoe_dados_celula()
    [E5].Select
    vTexto = Selection.Value
    For i = 1 To Len(vTexto)
    If Mid(vTexto, i, 1) = ";" Then Z = Z + 1
    Next i
    ReDim Y(Z + 1)

    For i = 1 To Len(vTexto)
    If Mid(vTexto, i, 1) <> ";" Then
    X = X & Mid(vTexto, i, 1)
    End If

    If Mid(vTexto, i, 1) = ";" Then
    Y(c) = X
    c = c + 1
    X = ""
    End If
    Next i

    Y(Z) = X

    For i = 0 To UBound(Y)
    Selection.Offset(i + 1, 0).Value = Y(i)
    Next i

    End Sub


    Sub limpar_teste()
    [E6:E1000].ClearContents
    End Sub





    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





    Excel vba decompor numeros evento selection change Excel vba decompor numeros evento selection change

    popular!
    Adicionado em: 22/02/2012
    Modificado em: 22/02/2012
    Tamanho: 90.42 KB
    Downloads: 631

    Escola Saberexcel VBA Macros® - Treinamento com Macros, Fórmulas e Funções

    Estes macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompoe números em linha, separados por espaços,
    usando o Evento de Planilha (Worksheets) SelectionChange(ao selecionar), decompõe os números nas células de colunas adjacentes.
    Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
    '- - - - - - - - - - - - - - - - - - - - - - -'

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
    On Error Resume Next
    If Target.Offset(0, -2) = "A Contabilizar" Then decompor_numeros
    End If
    End Sub

    '- - - - - - - - - - - - - - - - - - - - - - -'
    Sub decompor_numeros()
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, OtherChar _
    :="(", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
    1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
    TrailingMinusNumbers:=True
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - -'
    Sub copiar()
    [b2].Select
    [a].Copy [b] 'aqui fiz uma copia a partir de um range nomeado.(duas planilhas)
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - -'
    'Treinamentos Saberexcel(nao deixe de ler sobre nosso trabalho com as Instruções Loops)
    Sub Loop_I()
    Dim i As Integer
    For i = 1 To 8
    If Cells(i, 1).Value = "A Contabilizar" Then
    Application.Run ("decompor_numeros")
    End If
    Next i
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - -'
    'Treinamentos Saberexcel(nao deixe de ler sobre nosso trabalho com as Instruções Loops)
    Sub Loop_II()
    Dim i As Integer
    For i = 1 To 8
    If Cells(i, 1).Value = "A Contabilizar" Then
    Cells(i, 1).Offset(0, 2).Select
    Application.Run ("decompor_numeros")
    End If
    Next i
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - -'
    'nao deixe de ler sobre nosso trabalho (Tudo sobre Celulas e Range's)
    Sub Macro_I() 'treinamentos saberexcel
    Range("C3:C" & [C65536].End(xlUp).Row).TextToColumns Range("C3"), xlDelimited, , , , , , True
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - -'


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





    Excel vba planilha decompor palavras Excel vba planilha decompor palavras

    popular!
    Adicionado em: 08/07/2012
    Modificado em: 08/07/2012
    Tamanho: 28.78 KB
    Downloads: 596

    Escola Saberexcel VBA Estudos - O Site de quem precisa aprender macros microsoft excel VBA

    Essa macro do aplicativo Microsoft Excel VBA(Visual Basic Application) decompõe palavras separadas por vírgula, digitadas na Célula(A1),
    a decomposição ocorrerá na própria coluna(A).

    '- - - - - - - - - - - - -
    'Escola SaberExcel VBA Estudos®
    'Treinamento com Macros Fórmulas e Funções
    '- - - - - - - - - - - - -

    Sub sbx_decompor_palavras()
    Dim vTabela As Variant
    Dim i As Integer
    Dim v As String

    v = Range("A1").Value
    vTabela = Split(v, ";")

    For i = 0 To UBound(vTabela)
    Range("A1").Offset(i + 1, 0).Select

    With Selection
    Selection.Value = vTabela(i)
    End With

    Next i

    'Range("A1").EntireRow.Delete
    Range("A1").Value = "TAREFA EXECUTADA"
    [c12].Value = "Tarefa executada com sucesso, palavras separadas por ';' foram decomposta!!!"
    ActiveSheet.Name = "Palavras Decompostas"
    [B1].Select
    End Sub
    '- - - - - - - - - - - - - - -
    Sub sbx_copiar_teste()
    Plan1.[a1:a100].ClearContents
    [a].Copy [Plan1].[a1]
    ActiveSheet.Name = "Decompor Palavras"
    [c12].Value = "Execute o macro para decompor as palavras separadas por ';'"
    End Sub


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




    vba decompor e numerar letras numero caracteres vba decompor e numerar letras numero caracteres

    popular!
    Adicionado em: 20/02/2011
    Modificado em: 20/02/2011
    Tamanho: 28.38 KB
    Downloads: 785

    Saberexcel - site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe determinadas frases em células na vertical, contando o nùmero de carateres e os númerando, usamos a Propriedade Offset(DESLOC) para isso. Espero que o exemplo possa lhe ser útil.
    Fique com Deus, Expedito Marcondes


    Sub sb_decompor_e_numerar_letras()
    Dim sbChave() As Variant
    [C4:C200].ClearContents

    Cells(3, 3).Activate
    vTexto = ActiveCell.Value
    vNumeroCaracteres = Len(vTexto)

    ReDim sbChave(vNumeroCaracteres - 1)

    For i = 0 To vNumeroCaracteres - 1
    sbChave(i) = Mid(vTexto, i + 1, 1)
    ActiveCell.Offset(1, 0).Value = "[" & i + 1 & "ª.Letra ]..............: " & " " & sbChave(i) & " "
    ActiveCell.Offset(1, 0).Select 'offset(funcao desloc) desloca dados nas células
    Next i

    Columns("C").AutoFit
    [C3].Select
    End Sub



    Essas macros são auxiliares para auxiliar no teste.
    Sub sb_visualizar_macros_vbe()
    Dim Resposta As String

    Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
    If Resposta = 6 Then ' 6 é igual a vbyes
    Application.Goto reference:="decompor_e_numerar_letras"
    Else
    Saber1.Shapes("sb").Visible = True
    End If
    End Sub

    Sub sb_oc()
    Saber1.Shapes("sb").Visible = False
    End Sub




    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

     

    vba decompor palavras de uma frase aleatoriamente vba decompor palavras de uma frase aleatoriamente

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: 22.44 KB
    Downloads: 605

    Esta macro e função do Aplicativo Microsoft Excel VBA, retorna uma palavras aleatórias de uma determinada frase, previamente escolhida. como mostra na macro "Frase_desordenada" abaixo, observe que o macro é auxliado por uma Função com argumentos

    Sub Frase_desordenada()
    [A2:A10].ClearContents
    Range("A1").Select

    Sb = "Aprenda Microsoft Excel VBA com qualidade Saberexcel"
    Arr = Application.Transpose(FraseDesordenada(Sb))

    For i = LBound(Arr) To UBound(Arr)

    [A65000].End(xlUp).Offset(1, 0).Select
    ActiveCell.Value = Arr(i)
    x = ActiveCell.Offset(0, 1).Value
    MsgBox "Palavra : [ " & Arr(i) & " ] posição original :[ " & x & " posição" & " ]"
    Next
    [A65000].End(xlUp).Offset(1, 0).Select
    End Sub

    Function FraseDesordenada(Sb)
    Dim Arr, i&, b&, j&, k&, tmp
    'decompondo a frase e retornando de forma aleatória.

    Arr = Split(Sb, " ")

    Randomize: j = UBound(Arr)


    For i = LBound(Arr) To UBound(Arr)
    k = Rnd() * j + 1
    tmp = Arr(j)
    Arr(j) = Arr(k)
    Arr(k) = tmp
    j = j - 1

    Next
    'retorna resultado coluna
    FraseDesordenada = Application.Transpose(Arr)

    End Function

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel








    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA