Excel VBA - Texto

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba celula propriedade WrapTexto retorna texto Excel vba celula propriedade WrapTexto retorna texto

    popular!
    Adicionado em: 28/04/2013
    Modificado em: 28/04/2013
    Tamanho: 52.87 KB
    Downloads: 428

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

    Esse macro do Aplicativo MS Excel VBA(Visual Basic Application) - usando a Propriedade.Range 'WrapText',
    retorna um determinado texto em célula na folha de planilha com quebra de linhas de acordo com o tamanho da célula.

    Sub wrap_texto()
    Worksheets("Plan1").Range("B7").Value = _
    "Aprenda Microsoft Excel VBA com Produtos Didáticos Saberexcel."
    Worksheets("Plan1").Range("B7").WrapText = True
    End Sub

    Sub consulta_wrapText()
    ActiveSheet.Shapes.Range(Array("iWrap")).Select
    Selection.Verb Verb:=xlPrimary
    Range("H22").Select
    End Sub

    Sub limpar()
    [b7].ClearContents
    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 texto macro insere sobrescrito ultima letra celula ativa vba texto macro insere sobrescrito ultima letra celula ativa

    popular!
    Adicionado em: 28/11/2010
    Modificado em: 28/11/2010
    Tamanho: 16.06 KB
    Downloads: 758

    SaberExcel - o site das macros

    Sobrescrever a última letra da palavra.
    Essa macro do Aplicativo Microsoft Excel VBA, sobrescreve última letra de uma palavra em uma determinada célula, mas nesse caso fica sensibilizada a célula ativa.

    Sub Sobrescrever_ultima_letra()
    vBusca = Len(ActiveCell.Value)
    ActiveCell.Characters(Start:=vBusca, Length:=1).Font.Superscript = True
    End Sub

     Aplicativo Microsoft Excel VBA --(( SaberExcel ))--




     

     

    vba texto principais funcoes texto retorna maiuscula minuscula outras vba texto principais funcoes texto retorna maiuscula minuscula outras

    popular!
    Adicionado em: 28/11/2010
    Modificado em: 28/11/2010
    Tamanho: 23.94 KB
    Downloads: 766

    Saberexcel - o site das macros
    Macros do Aplicativo Microsoft Excel VBA, contém as principais função texto do vba, retorna mensagem de determinado nome digitado na caixa de entrada(inputbox) e também retorna valores em determinadas células na folha de planilha.

    Sub Principais_funcoes_texto()
    Dim titulo As String
    Dim id As Variant

    titulo = "Saberexcel - o Site das Macros"
    id = vbInformation

    Dim StrNome As String
    Application.ScreenUpdating = True
    [C3:E10].ClearContents
    Range("C3").Select
    StrNome = InputBox("Digite o seu nome", , "Saberexcel - O site das Macros")

    MsgBox ("A primeira letra do seu nome é: [ ") & Left(StrNome 1) & " ]", id, titulo
    ActiveCell.Value = Left(StrNome , 1): ActiveCell.Offset(0, 2).Value = "A primeira Letra do seu nome"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("A Ultima letra do seu nome é:[ ") & Right(StrNome , 1) & " ]", id, titulo
    ActiveCell.Value = Right(StrNome , 1): ActiveCell.Offset(0, 2).Value = "A última letra do seu nome"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("A quinta letra do seu nome é:[ ") & Mid(StrNome 5, 1) & " ]", id, titulo
    ActiveCell.Value = Mid(StrNome , 5, 1): ActiveCell.Offset(0, 2).Value = "A quinta letra do seu nome"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("A Sétima letra do seu nome é:[ ") & Mid(StrNome , 7, 1) & " ]", id, titulo
    ActiveCell.Value = Mid(StrNome , 7, 1): ActiveCell.Offset(0, 2).Value = "A Sétima letra do seu nome"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("Seu nome contém [ " & Len(StrNome )) & " ] caracteres", id, titulo
    ActiveCell.Value = Len(StrNome ): ActiveCell.Offset(0, 2).Value = "Numeros de caracteres do seu nome"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("Seu nome em letras Maiúsculas [ ") & UCase(StrNome ) & " ]", id, titulo
    ActiveCell.Value = UCase(StrNome ): ActiveCell.Offset(0, 2).Value = "Seu nome em letras maiúsculas"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("Seu nome em Letras Próprias [ ") & StrConv(StrNome, vbProperCase) & " ]", id, titulo '
    ActiveCell.Value = StrConv(StrNome , vbProperCase): ActiveCell.Offset(0, 2).Value = "Seu nome em Letras Próprias"

    ActiveCell.Offset(1, 0).Select
    MsgBox ("Seu nome em Letras Minúsculas [ ") & LCase(StrNome ) & " ]", id, titulo
    ActiveCell.Value = LCase(StrNome ): ActiveCell.Offset(0, 2).Value = "Seu nome em Letras Minúsculas"
    Application.ScreenUpdating = True
    End Sub

    Sub retorna_cinco_letras_da_Esquerda()
    Dim icont As String
    strTexto = "Saberexcel - site das macros"
    vContador = 5
    sbx = "Retorna cinco letras da palavra [Saberexcel Declarações]: " & "[ " & Left(strTexto, vContador) & " ]"
    MsgBox sbx
    End Sub

    Sub retorna_sete_letras_da_direita()
    Dim icont As String
    strTexto = "Saberexcel Declarações"
    vContador = 7
    sbx = "Retorna sete letras da direita [Saberexcel Declarações]: " & "[ " & Right(strTexto, vContador) & " ]"
    MsgBox sbx
    End Sub

    Sub retorna_oito_letras_a_partir_da_setima()
    Dim icont As String
    strTexto = "Saberexcel Declarações"
    vContador = 7
    icont = 8
    sbx = "Retorna oito letras a partir da sétima [Saberexcel Declarações]: " & "[ " & Mid(strTexto, vContador, icont) & " ]"
    MsgBox sbx
    End Sub

    Sub limpar_teste()
    [C3:E10].ClearContents
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel




    Baixe o exemplo de planilha das macros acima




    Publicidade
    Compre com segurança, garantia, ótimos preços, nas lojas SubMarino
    Utilidades Domésticas - Submarino.com.br

    vba texto verifica inconsistencia numero de caracteres digitados vba texto verifica inconsistencia numero de caracteres digitados

    popular!
    Adicionado em: 28/11/2010
    Modificado em: 28/11/2010
    Tamanho: 20.87 KB
    Downloads: 501

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, verifica inconsistência de digitação do total de caracteres em determinada celula, se form maior ao número permitido, retorna uma mensagem de erro, mostrando o total correto que contém o valor digitado.

    Sub verifica_quantidade_de_caracteres()
    If Len(ActiveCell.Value) >= 9 Then
    MsgBox "Este numero [ " & ActiveCell.Value _
    & " ] contem mais de nove caracteres , contém [ " _
    & Len(ActiveCell) & " ] caracteres", vbCritical, "Saberexcel - o site das macros"
    'ActiveCell.Value = "" 'limpa os valores da célula ativa
    'ActiveCell.Activate 'retorna o foco para digitação ativando a célula
    End If
    End Sub

    Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel


    vba textos deleta todos os textos preservando datas numeros vba textos deleta todos os textos preservando datas numeros

    popular!
    Adicionado em: 28/11/2010
    Modificado em: 28/11/2010
    Tamanho: 21.4 KB
    Downloads: 480

    Saberexcel - o site das macros
    Elimina textos e mantêm valores numéricos

    Essa macro do Aplicativo Microsoft Excel VBA, elimina textos da folha de planilha mantendo as datas e demais números (valores numéricos)

    Sub Eliminando_textos_planilha()
    Worksheets("Plan1").Select
    On Error GoTo fim
    With Columns
    .SpecialCells(xlTextValues, xlConstants).ClearContents
    End With
    fim:
    Exit Sub
    End Sub

     

    Aprenda Microsoft Excel VBA (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