Fråga : Resultat för Excelvbskärm av ett varable i en msgbox

Hälsningexperter,

I som är pröva som skriver en makro (se nedanfört), för att beräkna procentsatsen av avslutning. Att få för förmiddag I sammanställer fel med msgboxen fungerar förfråganhjälp med syntax. Tacka för din

Dim OpenDisc för help.

Sub InspectionCompletion () som Double
Dim PagesBOW som Double
Dim InspCom som Double
Dim TotalDisc som Double

OpenDisc = CDbl (InputBox (”skriv in, hur många öppna objekt är på PILBÅGEN: ”))
PagesBOW = CDbl (InputBox (”skriv in numrerar av PILBÅGEsidor: ”))
TotalDisc = (PagesBOW) * 8
InspCom = (((TotalDisc) - (OpenDisc)/(TotalDisp)) *)
MsgBox = ((InspCom), vbDefaultButton1, ”Percentage av kontrollavslutning är: ”,
End Sub
 för nolla) " klar "

Svar : Resultat för Excelvbskärm av ett varable i en msgbox

eller genom att använda formatera
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Sub InspectionCompletion ()

Dunkla OpenDisc som dubbelt
Dunkla PagesBOW som dubbelt
Dunkla InspCom som dubbelt
Dunkla TotalDisc som dubbelt

OpenDisc = CDbl (InputBox (”skriv in, hur många öppna objekt är på PILBÅGEN: ”))
PagesBOW = CDbl (InputBox (”skriv in numrerar av PILBÅGEsidor: ”))
TotalDisc = (PagesBOW) * 8
InspCom = (TotalDisc - OpenDisc)/TotalDisc
Den MsgBox ”procentsatsen av kontrollavslutning är: ” & formatera (InspCom, ”procent”)
Avsluta suben
Andra lösningar  
 
programming4us programming4us