Home Excel - Downloads / Areas Restritas Excel VBA - Maiusculas Minuscula Propria

Excel VBA - Maiusculas Minuscula Propria

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba maiuscula minuscula propria com options userform vba maiuscula minuscula propria com options userform

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 23.57 KB
    Downloads: 1144

    Saberexcel - o Site das Macros
    Esses Eventos do Aplicativo Microsoft Excel VBA, inserem letras MAIÚSCULAS, minúsculas e Próprias com auxílio de objetos Options em um Userform, os options estão sensibilizados pelo Evento Duplo Click, isto é, você poderá selecionar a área de células desejadas e logo em seguida dar click duplo na opção desejada que afetará diretamente na folha de planilha na área escolhida, como também pode optar pelo
    botão Ok.

    EM UM MÓDULO COMUM INSIRA OS CÓDIGOS:

    Esses códigos referencia aos objetos Options com Evento Duplo Click (DblClick) que chamam determinada macro e fecha o Userform.

    Option Explicit

    Private Sub optMinuscula_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Minuscula 'chama a macro Sub Minuscula() ao duplo click
     Unload Me
    End Sub

    Private Sub optProprio_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Proprio 'chama a macro Sub Proprio() ao duplo click
    Unload Me
    End Sub

    Private Sub optMaiuscula_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Maiuscula 'chama a macro Sub Proprio() ao duplo click
    Unload Me
    End Sub

    'ao inicializar o Userform seleciona o objeto Options Minuscula.
    Private Sub UserForm_Initialize()
    Me.optMinuscula = True
    End Sub

    no botão Ok chama a macro que contém as tres condições (IF) da seleção dos objetos options
    Private Sub cmdOK_Click()
    Maiuscula_minuscula_proprio
    Unload Me
    End Sub

    Private Sub cmdCancel_Click()
    Unload Me
    End Sub

     

    EM UM MÓDULO COMUM (STANDARD) INSIRA AS MACROS ABAIXO

    Option Explicit
    Dim objCelula As Object

    Sub Abrir_formulario()
    frmLetras.Show
    End Sub

    Essa macro verifica o objeto option que foi selecionado e executa o macro a ele atribuido
    Sub Maiuscula_minuscula_proprio()

    If frmLetras.optMinuscula = True
    Then
    Minuscula
    ElseIf frmLetras.optMinuscula = True
    Then
    Maiuscula
    Else
    Proprio
    End If

    End Sub


    Sub Minuscula()
    For Each objCelula In Selection
    objCelula.Value = LCase(objCelula.Formula)
    Next objCelula
    End Sub

    Sub Maiuscula()
    For Each objCelula In Selection
    objCelula.Value = UCase(objCelula.Formula)
    Next
    objCelula
    End Sub

    Sub Proprio()
    For Each objCelula In Selection
    objCelula.Value = Application.Proper(objCelula.Formula)
    Next
    objCelula
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel


    Baixe o exemplo de planilha contendo os procedimentos e macros acima

    vba maiuscula minuscula propria contrario numero letras vba maiuscula minuscula propria contrario numero letras

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 42.37 KB
    Downloads: 1068

    SaberExcel - o site das macros
    Essa macro abaixo do Aplicativo Microsoft Excel VBA retorna o nome do usuário da seguinte forma.
    VOU DESCREVER A O QUE ACONTECERÁ COM A EXECUÇÃO DA MACRO ABAIXO.
    veja a imagem do resultado da execução da macro na planilha (baixe o exemplo no final da página)
    usaremos o meu nome:
    Expedito Marcondes

    Célula(F3) = [Nome tipo Expedito]
    Célula(F4) = [O total de letras que contém o Nome Expedito]
    Célula(F5] = [Retorna o nome sem o primeiro poderia ter mais Sobrenomes : Marcondes]
    Célula(F6] = [O total de letras que contém o segundo nome Marcondes]
    Célula[C7] = [Retorna o meu nome em LETRA MAIUSCULA "EXPEDITO MARCONDES"]
    Célula[C8 ]= [Retorna o meu nome em todas a letras minúsculas. "expedito marcondes"]
    Célula[C9 ]= [Retorna o meu nome usando propriedade ProperCase(nomeProprio)"Expedito Marcondes"]
    Célula[C10]=[Retorna o meu nome ao contrario "sednocraM otidepxE" (espelho) ]
    Célula[C11] =[Retorna o meu nome separado por uma virgula "Marcondes, Expedito" ]
    é isso ai... boa sorte..
    '........................'
    Sub Nome_Usuario()
    Dim vNomeUsuario As String
    Dim vPrimeiroNome As String
    Dim vUltimoNome As String
    Dim strLength As Integer
    Dim spaceLoc As Integer
    '.................'
    'Entre com o primeiro e o segundo nome
    '.................'
    On Error Resume Next
    limpar
    vNomeUsuario = InputBox("Entre com o primeiro e segundo nome", "Nome", "Excel VBA Estudos®")
    spaceLoc = InStr(1, vNomeUsuario, " ")
    vPrimeiroNome = Left(vNomeUsuario, spaceLoc - 1)
    '.................'
    'localiza os dados na planilha a ser inserido os dados
    '.................'
    Range("C3").Value = vPrimeiroNome
    strLength = Len(vPrimeiroNome)
    Range("C4").Value = strLength 'extrai o primeiro nome
    strLength = Len(vNomeUsuario)
    vUltimoNome = Mid(vNomeUsuario, spaceLoc + 1, strLength - spaceLoc)
    Range("C5").Value = vUltimoNome
    strLength = Len(vUltimoNome)
    Range("C6").Value = strLength
    Range("C7").Value = UCase(vNomeUsuario)
    Range("C8").Value = LCase(vNomeUsuario)
    Range("C9").Value = StrConv(vNomeUsuario, vbProperCase)
    Range("C10").Value = StrReverse(vNomeUsuario)
    Range("C11").Value = vUltimoNome & ", " & vPrimeiroNome
    descriminar
    End Sub

    Sub limpar()
    Range("c3:D11").ClearContents
    End Sub

    Sub Atribuir()
    Dim X As String
    X = InputBox("Digite o nome da cidade", "Entrada", "Santo André")
    ActiveCell.Value = X
    End Sub


    Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel





    vba maiuscula minusculas em todo livro exemplo checkbox caption vba maiuscula minusculas em todo livro exemplo checkbox caption

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 32.36 KB
    Downloads: 803

    Saberexcel - o site das macros
    Essas macros do Aplicativo Microsoft Excel VBA, converte todas as letras de todo objeto Workbook(Livro) em letras maiúsculas e ou minúsculas, também contém um objeto checkbox da barra de ferramentas Formulário, que muda o caption ao ser selecionada, executando a macro.



    Sub Converte_para_Maiusculas()

    Dim ws As Object
    Dim LCell As Range

    'vamos tirar a atualização de tela para aumentar a performance
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    'Movimento por cada folha na sua planilha
    For Each ws In ActiveWorkbook.Sheets
    On Error Resume Next
    ws.Activate

    'Converta todas as constantes e valores de texto ao caso 'próprio'
    For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
    LCell.Formula = UCase(LCell.Formula)
    Next
    Next ws

    'voltando as configurações da tela
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

    End Sub

    Sub Converte_para_Minusculas()

    Dim ws As Object
    Dim LCell As Range

    'vamos tirar a atualização de tela para aumentar a performance
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    'Movimento por cada folha na sua planilha
    For Each ws In ActiveWorkbook.Sheets
    On Error Resume Next
    ws.Activate

    'Converta todas as constantes e valores de texto ao caso 'próprio'
    For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
    LCell.Formula = LCase(LCell.Formula)
    Next
    Next ws

    'voltando as configurações da tela
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

    End Sub

    Sub cbclick()
    If ActiveSheet.CheckBoxes("xc").Value = 1 Then
    ActiveSheet.Shapes("xc").Select
    ActiveSheet.Shapes("xc").Select
    Selection.Characters.Text = "Maiuscula em todo workbook"
    Range("I6").Select
    Converte_para_Minusculas
    Else
    ActiveSheet.Shapes("xc").Select
    ActiveSheet.Shapes("xc").Select
    Selection.Characters.Text = "Minusculas em todo workbook"
    Range("I6").Select
    Converte_para_Maiusculas
    End If
    End Sub

    Sub Voltar()
    ActiveSheet.Previous.Select
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




    vba maiusculas ao digitar em range limitada evento change vba maiusculas ao digitar em range limitada evento change

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 220 Bytes
    Downloads: 814

    Saberexcel - o site das macros
    Esse procedimento do Aplicativo Microsoft Excel VBA, insere letras maiúsculas ao digitar em em determinado intervalo de células na folha de planilha.
    neste caso foi sensibilizado pelo Evento Change o intervalo de células ($A$1:$J$10) podendo ser expandido para adequação em algum projeto.


    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next ' no caso de precisar deletar alguma coisa
    If Not Intersect(Target, Range("A1:J10")) Is Nothing Then Target = UCase(Target)
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel




    Baixe o exemplo de planilha contendo o procedimento acima



    Publicidade:
    Compre livros na maior livraria do Brasil com garantia, segurança e preços baixos Livros - Submarino.com.br

    vba maiusculas converte todas letras em uma coluna vba maiusculas converte todas letras em uma coluna

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 26.6 KB
    Downloads: 862

    Saberexcel o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, converte as letras minusculas de determinada coluna em letras maiúsculas.

    Sub Converte_texto_selecionado_para_maiusculo()
    Dim vTexto As String
    Dim vCelulas As Range
    Dim vContaCelulas As Integer
    Range("A1").Select
    On Error Resume Next

    Set vCelulas = ActiveSheet.Range(ActiveWindow.Selection.Address)

    For vContaCelulas = 1 To vCelulas.End(xlDown).Row

    If Not vCelulas.Cells(vContaCelulas).HasFormula Then
    vTexto = vCelulas.Cells(vContaCelulas).Value
    vCelulas.Cells(vContaCelulas).Value = UCase(vTexto)
    End If

    vCelulas.Offset(1, 0).Select
    Next vContaCelulas

    [D3].Value = "LETRAS MINÚSCULAS CONVERTIDAS PARA MAIÚSCULAS "
    [d4].Value = "a linha de código no inicio Range(A1) select - determina a coluna "
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel




    Baixe o exemplo de planiha contendo a macro acima



    Publicidade
    Compre com garantia, segurança e ótimos preços nas lojas submarino

    Informática - Submarino.com.br

    Página 1 de 2

    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