La función de texto hoja convierte un número en una cadena con el formato especificado. Por ejemplo, si usted quiere un número que aparezca en forma de porcentaje , se puede utilizar una declaración como " formattedString = WorksheetFunction.Text ( someNumber , " 0 % ") . " Si el " someNumber « variable es igual a 3 , luego " formattedString " celebrará " 300 % " después de ejecutar esta función del texto . El segundo argumento de esta función tiene el formato que desea aplicar al primer argumento . Puede ver una lista de cadenas de formato válidos pulsando la categoría "Personal" de la pestaña " Número" del cuadro de diálogo .
Programa de ejemplo " Formato de celdas " para WorksheetFunction Texto Fotos
Utilice un programa de ejemplo para ayudar a entender cómo funciona la función WorksheetFunction.Text . Los siguientes formatos de programas un número que especifica como un porcentaje. Ejecute el programa pegando sus declaraciones en el entorno de programación VBA , a continuación pulsar "F5 ".
Public Sub Texttest ()
numStr Dim As String Dim
inputNumber
inputNumber = InputBox ("Escriba un número a formato como un porcentaje. " )
numStr = WorksheetFunction.Text ( inputNumber , " 0 %")
MsgBox " El número formateado es " y numStr
End Sub
Panorámica de comentario de texto función
la función de texto de la propiedad Comment te permite añadir un texto comentarios a una celda. Antes de utilizar esta función , utilice el método AddComment para crear una propiedad Comentario. Tenga en cuenta que ninguno de los tres argumentos de esta función son obligatorios. En la práctica , sin embargo , especificar una cadena para el primer valor para indicar el texto que desee para el comentario.
Programa de ejemplo para el Comentario de texto Función
Aprenda a utilizar la función de texto de la propiedad comentario de probar un programa de ejemplo. El siguiente programa añade un comentario a la celda seleccionada en la hoja de cálculo activa, entonces se utiliza la función de texto para insertar texto en el comentario.
Sub AddComment ()
ActiveCell.AddComment
ActiveCell.Comment.Text " Esta celda se calculó con el método de los« mínimos cuadrados ». "
End Sub