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 / m2. Se 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 m 2
de m3 para m 3
de H2O, H20 e H 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.
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
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
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
Correção de Métricas - For Subscripts, Superscripts and Common Typos
MS Access - Cinco Formas Manuais de Reparo
MS Access e MS Word - Técnica de Automação
Microsoft Access - Removendo Prefixo das Tabelas
Sempre Use Stored Procedures - Always Use Stored Procedures
A&A - Dados ou Informações?
#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
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
Correção de Métricas - For Subscripts, Superscripts and Common Typos
MS Access - Cinco Formas Manuais de Reparo
MS Access e MS Word - Técnica de Automação
Microsoft Access - Removendo Prefixo das Tabelas
Sempre Use Stored Procedures - Always Use Stored Procedures
A&A - Dados ou Informações?
Consulte-nos
⬛◼◾▪ CONTATO ▪◾◼⬛
Nenhum comentário:
Postar um comentário