Como incorporar el símbolo de grados " º " utilizando Visual Basic

0

 

Te traemos dos métodos para obtener el resultado en función de si queremos que la celda resultado se conserve como numérica o se convierta a celda de texto.


Celda Numérica

Sub SimboloGradoNumero()
    Dim rng As Range    
    For Each rng In Selection
        If IsNumeric(rng.Value) And rng.Value <> "" Then
            rng.NumberFormat = "0°"
        End If
    Next rng
End Sub
 


Celda de Texto

Sub SimboloGradoTexto()
    Dim rng As Range    
    For Each rng In Selection
        If rng.Value <> "" Then
            If IsNumeric(rng.Value) Then
                rng.Value = rng.Value & "°"
            End If
        End If
    Next rng
End Sub


⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.


Entradas que pueden interesarte

Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel