PIECE OF CAKE - Correção de Métricas - For Subscripts, Superscripts and Common Typos


Digamos que você tenha inúmeras planilhas que trabalhem com diversas métricas cujos conteúdos estejam mal-formatados ou digitados erroneamente como por exemplo doze metros cúbicos escritos assim 12 m3 ao invés de 12 m 3, ou 34 kg de C02 para 34 kgCO2 ou combinações como 100 KWh / m2 para 100 kWh / m2Se casos como esses, ou parecidos com eles permeiam suas planilhas, confie em mim,, muitas pessoas etão odiando ler seus documentos.

Esse tipo de incorreções acontecem mais em documentos do que em planilhas. Poucas pessoas parecem armazenam documentos no formato MS Excel, deixando-os no MS Word, apesar de observar os mesmos deslizes nestes docs do MS Word.

Então, se você  tiver algo neste sentido, eis a oportunidade de corrigir todas as suas planilhas.

Esse código corrige macro:
de m2 a 2
de m3 para 3
de H2O, H20 e 2 O 
de C02, CO2 a CO 2
de kWh, KWH, KWh para kWh 
de KG, kg para kg

Ele funciona em planilhas protegidas na sua pasta de trabalho, desde que eles não são protegidos por senha. 

CASO TENHA UM GRANDE VOLUME DE PLANILHAS PARA SEREM CORRIGIDAS ENTRE EM CONTATO CONOSCO PARA QUE POSSAMOS AUTOMATIZAR O SEU PROCESSO.

Sub FixFormatting()
'Exit Sub
' To fix m2, m3, CO2, kWh and kg to their proper states.
Dim c As Range
Dim StartCells As Range
Dim ws As Worksheet
Dim intPlace As Integer
Dim wsStartsProtected As Boolean

    Application.ScreenUpdating = False
    On Error GoTo errorCatch
    Set StartCells = Selection
    For Each ws In Application.Worksheets
        Let wsStartsProtected = ws.ProtectContents
        With ws
            Let .Visible = True
            .Activate
            .Unprotect
            .UsedRange.Select
        End With
        For Each c In ws.UsedRange
            With c
                .Replace What:="C02", Replacement:="CO2", LookAt:=xlPart, MatchCase:=False
                .Replace What:="H20", Replacement:="H2O", LookAt:=xlPart, MatchCase:=False
                .Replace What:="kwh", Replacement:="kWh", LookAt:=xlPart, MatchCase:=False
                .Replace What:="mwh", Replacement:="MWh", LookAt:=xlPart, MatchCase:=False
                .Replace What:="gwh", Replacement:="GWh", LookAt:=xlPart, MatchCase:=False
                .Replace What:="kg", Replacement:="kg", LookAt:=xlPart, MatchCase:=False
            End With
            Let intPlace = InStr(c.Value, "CO2")
            If intPlace > 0 Then
                If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect
                Let c.Characters(intPlace + 2, 1).Font.Subscript = True
            End If
            Let intPlace = InStr(c.Value, "H2O")
            If intPlace > 0 Then
                If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect
                Let c.Characters(intPlace + 1, 1).Font.Subscript = True
            End If
            Let intPlace = InStr(c.Value, "m2")
            If intPlace > 0 Then
                If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect
                Let c.Characters(intPlace + 1, 1).Font.Superscript = True
            End If
            Let intPlace = InStr(c.Value, "m3")
            If intPlace > 0 Then
                If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect
                Let c.Characters(intPlace + 1, 1).Font.Superscript = True
            End If
            If wsStartsProtected Then ws.Protect
        Next
    Next
    StartCells.Parent.Activate
    StartCells.Select
    Let Application.ScreenUpdating = True
    Exit Sub
errorCatch:
    If wsStartsProtected Then ws.Protect
    StartCells.Parent.Activate
    StartCells.Select
    Let Application.ScreenUpdating = True
End Sub

#A&A #CommonTypos #PIECEOFCAKE #Subscripts #Subscritos #Superescritos #Superscripts #POC #VBA


Defina a Latitude e a Longitude - Find Latitude and Longitude of any address using Google Map API and VBA


VBA Excel - Traduzindo Planilhas - MS Excel VBA Script to Translate worksheets using the Google Translate API
VBA Excel - Traduzindo Planilhas - MS Excel VBA Script to Translate worksheets using the Google Translate API

Excel - Manipule o Google Maps em sua Planilha - Put a Google Map in your Spreadsheet
Excel - Manipule o Google Maps em sua Planilha - Put a Google Map in your Spreadsheet

Convertendo Texto em Imagem - Convert Text to an Image using the VBA Windows API
Convertendo Texto em Imagem - Convert Text to an Image using the VBA Windows API

Correção de Métricas - For Subscripts, Superscripts and Common Typos
Correção de Métricas - For Subscripts, Superscripts and Common Typos

MS Access - Cinco Formas Manuais de Reparo
MS Access - Cinco Formas Manuais de Reparo

MS Access e MS Word - Técnica de Automação
MS Access e MS Word - Técnica de Automação

Microsoft Access - Removendo Prefixo das Tabelas
Microsoft Access - Removendo Prefixo das Tabelas

Sempre Use Stored Procedures - Always Use Stored Procedures
Sempre Use Stored Procedures - Always Use Stored Procedures

A&A - Dados ou Informações?
A&A - Dados ou Informações?

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 


⬛◼◾▪ CONTATO ▪

Nenhum comentário:

Postar um comentário

diHITT - Notícias