Olá
Este código incrementa um laço for e coloca dentro dele a funcionalidade de transformar o conteúdo de cada célula em maiúsculo. Não podemos esquecer que quando queremos comparar dois valores é muito importante que os valores tenham o mesmo formato, não posso comparar minúscula com maiúscula ou vice-versa. Portanto segue um código bem interessante.
Sub maiuscula()
'
Dim a, b As Integer
Dim c As String
For a = 1 To 10 '10 é o número de colunas que você quer percorrer
For b = 1 To 2000 '2000 é o numero de linhas que você quer percorrer
c = Cells(a, b).Value ' c=variável que armazena o valor da célula
'b e c são respectivamente o endereço da célula, b=coluna e c=linha
If c <> "" Then 'se valor de a for diferente de vazio
c = UCase(c)' o ucase converte em maiúscula
End If
Next
Next
End Sub
Este código incrementa um laço for e coloca dentro dele a funcionalidade de transformar o conteúdo de cada célula em maiúsculo. Não podemos esquecer que quando queremos comparar dois valores é muito importante que os valores tenham o mesmo formato, não posso comparar minúscula com maiúscula ou vice-versa. Portanto segue um código bem interessante.
Sub maiuscula()
'
Dim a, b As Integer
Dim c As String
For a = 1 To 10 '10 é o número de colunas que você quer percorrer
For b = 1 To 2000 '2000 é o numero de linhas que você quer percorrer
c = Cells(a, b).Value ' c=variável que armazena o valor da célula
'b e c são respectivamente o endereço da célula, b=coluna e c=linha
If c <> "" Then 'se valor de a for diferente de vazio
c = UCase(c)' o ucase converte em maiúscula
End If
Next
Next
End Sub
Comentários
Postar um comentário