Вопрос : Результат индикации vb Эксел varable в msgbox

Здравствулте! специалисты,

I пытаясь написать макрос (см. ниже) для того чтобы высчитать процент завершения. Я получаю составляю ошибки с помощью запроса функции msgbox с синтаксисом. Возблагодарите для вашего

Dim OpenDisc help.

Sub InspectionCompletion () как Double
Dim PagesBOW как Double
Dim InspCom как Double
Dim TotalDisc как Double

OpenDisc = CDbl (InputBox («впишите сколько открытые детали находятся на СМЫЧКЕ: "))
PagesBOW = CDbl (InputBox («войдите количество страниц СМЫЧКА: "))
TotalDisc = (PagesBOW) * 8
InspCom = (((TotalDisc) -) (OpenDisc/(TotalDisp)) *)
MsgBox = ((InspCom), vbDefaultButton1, «Percentage завершения осмотра является следующим: »,
End Sub
o) class=

Ответ : Результат индикации vb Эксел varable в msgbox

или использующ форму

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

Sub InspectionCompletion () Тусклое OpenDisc как двойник Тусклое PagesBOW как двойник Тусклое InspCom как двойник Тусклое TotalDisc как двойник OpenDisc = CDbl (InputBox («впишите сколько открытые детали находятся на СМЫЧКЕ: ")) PagesBOW = CDbl (InputBox («войдите количество страниц СМЫЧКА: ")) TotalDisc = (PagesBOW) * 8 InspCom = () TotalDisc - OpenDisc/TotalDisc Процент MsgBox «завершения осмотра является следующим: » & форма (InspCom, «процент») Подводная лодка конца