MsgBox e Formato numero

Hai un problema con Excel?

Nuova discussione

MsgBox e Formato numero
di kipudda (utente non iscritto) data: 10/01/2015 08:34:39
Buongiorno,

Ho un problema a gestire una msgbox sul mio foglio excel.
La msgbox, che si attiva con il pulsante (controllo modulo) inserito sul foglio excel, dovrebbe darmi una serie di informazioni, tra cui un numero scritto sottoforma di frazione. L’istruzione che ho scritto è la seguente:

La funzione scritta sull’editor dovrebbe “leggere” il numero in questione da un altro foglio (“Riferimenti”), in cui risulta scritto in forma di frazione nella cella k127 e riprodurmelo all'interno della MsgBox sempre in forma di frazione (1/8); mi riferisco in particolare alla parte dell’istruzione contrassegnata con il punto 1.

Non riesco però ad imporre al sistema il formato frazione, e di conseguenza VBA me lo riproduce sempre come numero decimale all’interno della msgbox.

Come posso fare? Grazie mille per l’aiuto!

Sub Pulsante114_Click()

A = MsgBox( "Dati sulla riduzione applicata:" & vbLf & vbLf & _

                      "1.  Percentuale di riduzione applicata dal programma (frazione):  " & (Worksheets("Riferimenti").Range("k127")) & vbLf & vbLf & _ 

	         “2.  Termine per l’applicazione della riduzione applicata dal programma:     “ & (Worksheets("Riferimenti").Range("n128”)) _ 
vbInformation, "Dati riepilogativi (Rigo n. 1)") 
                     
End Sub

di lepat (utente non iscritto) data: 10/01/2015 10:35:19
prova così

Sub Pulsante114_Click()
A = MsgBox( "Dati sulla riduzione applicata:" & vbLf & vbLf & _
                      "1.  Percentuale di riduzione applicata dal programma (frazione):  " & Application.WorksheetFunction.Tex(Worksheets("Riferimenti").Range("k127"), "# ?/?") & vbLf & vbLf & _ 
	         “2.  Termine per l’applicazione della riduzione applicata dal programma:     “ & (Worksheets("Riferimenti").Range("n128”)) _ 
vbInformation, "Dati riepilogativi (Rigo n. 1)") 
End Sub

di lepat (utente non iscritto) data: 10/01/2015 10:43:25
il tuo codice ha qualcosa che non va, comunque per rappresentare il contenuto della cella A1 in formato frazione
Sub Example() MsgBox Application.WorksheetFunction.Text(Range("A1"), "# ?/?") End Sub
di kipudda (utente non iscritto) data: 12/01/2015 11:47:31
la tua istruzione funziona alla perfezione!! Grazie mille per l'aiuto!

Vuoi Approfondire?