Pytanie : Przodować vb pokaz rezultat varable w msgbox

Cześć Ekspert,

I macro (widzieć ukończenie) the odsetek ukończenie. I dostawać kompilować błąd z the msgbox funkcja prośba pomoc z składnia. Dziękować dla twój help.

Sub InspectionCompletion ()

Dim OpenDisc Jako Double
Dim PagesBOW Jako Double
Dim InspCom Jako Double
Dim TotalDisc Jako Double

OpenDisc = CDbl (InputBox ("Wchodzić Do ile otwarty rzecz być na the ŁĘK: "))
PagesBOW = CDbl (InputBox ("Wchodzić Do liczba ŁĘK strona: "))
TotalDisc = (PagesBOW) * 8
InspCom = (((TotalDisc) - (OpenDisc)/(TotalDisp)) * 100)
MsgBox = ((InspCom), vbDefaultButton1, "Percentage Wizytacyjny Ukończenie być: ", o)
End Sub

Odpowiedź : Przodować vb pokaz rezultat varable w msgbox

lub używać Format
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Okręt podwodny InspectionCompletion ()

Ciemnawy OpenDisc Kopia
Ciemnawy PagesBOW Kopia
Ciemnawy InspCom Kopia
Ciemnawy TotalDisc Kopia

OpenDisc = CDbl (InputBox ("Wchodzić Do ile otwarty rzecz być na the ŁĘK: "))
PagesBOW = CDbl (InputBox ("Wchodzić Do liczba ŁĘK strona: "))
TotalDisc = (PagesBOW) * 8
InspCom = (TotalDisc - OpenDisc)/TotalDisc
MsgBox "Odsetek Wizytacyjny Ukończenie być: " & Format (InspCom, "procent")
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us