La funzione testo foglio converte un numero in una stringa nel formato specificato. Ad esempio, se si desidera un numero di apparire in percentuale , si potrebbe usare una dichiarazione come " formattedString = WorksheetFunction.Text ( someNumber , " 0 % " ) . " Se la variabile " someNumber " è uguale a 3 , poi " formattedString " terrà " 300 % " dopo l'esecuzione di questa funzione del testo . Il secondo argomento di questa funzione mantiene il formato che si desidera applicare al primo argomento . È possibile visualizzare un elenco di stringhe di formattazione validi cliccando la categoria "Custom" della scheda " Numero" del "Formato celle " finestra di dialogo.
Programma di esempio per WorksheetFunction Testo
Utilizzare un programma di esempio per aiutare a capire come funziona la funzione WorksheetFunction.Text . I seguenti formati di programma un numero specificato come percentuale . Eseguire il programma incollando le sue dichiarazioni in ambiente di programmazione VBA , quindi premendo il tasto " F5 ".
Public Sub TextTest ( ) per
Dim numStr As String Dim
InputNumero
InputNumero = InputBox ( " Inserire un numero in formato percentuale . " ) per
numStr = WorksheetFunction.Text ( InputNumero , " 0 % " ) per
MsgBox " Il numero formattato è "& numStr
End Sub
Panoramica commento testo funzione
la funzione testo della proprietà Comment consente di aggiungere un testo commento a una cella . Prima di utilizzare questa funzione , utilizzare il metodo AddComment per creare una proprietà commento . Si noti che nessuno dei tre argomenti di questa funzione sono obbligatori. In pratica, tuttavia , specificare una stringa per il primo valore per indicare il testo che si desidera per il commento .
Programma di esempio per Commento Testo Funzione
Scopri come utilizzare la funzione Text della proprietà commento di provare un programma di esempio . Il seguente programma aggiunge un commento alla cella selezionata nel foglio attivo , quindi utilizza la funzione di testo per inserire il testo in quel commento .
Sub AddComment ( ) per
ActiveCell.AddComment
ActiveCell.Comment.Text " Questa cella è stata calcolata con il metodo dei" minimi quadrati " . "
End Sub
Programmazione © www.354353.com