Скромный бизнес-студент - ошибка msgbox - SOS

Question

Последняя строка вызывает некоторые проблемы.

MsgBox ("Book Code = " & ISBN & vbNewLine & _
        "Book Title= " & title & vbNewLine & _
        "Unit Price= " & title & vbNewLine & _
        "Quanity = " & UnitCost & vbNewLine & _
        "Quanity = " & CustomerInput & vbNewLine & _
        "Final Price = " & (Format(CustomerInput * UnitCost), Currency))

Answer 1

Переместите закрывающую скобку после UnitCost в операторе Format до конца, а Currency в операторе формата должна быть строкой (т. Е. В кавычках):

MsgBox ("Book Code = " & ISBN & vbNewLine & _
    "Book Title= " & Title & vbNewLine & _
    "Unit Price= " & Title & vbNewLine & _
    "Quanity = " & UnitCost & vbNewLine & _
    "Quanity = " & CustomerInput & vbNewLine & _
    "Final Price = " & (Format(CustomerInput * UnitCost, "Currency")))

Хотя вышеприведенное работает, вы можете опустить некоторые из скобок и, возможно, сделать код немного легче для понимания:

MsgBox "Book Code = " & ISBN & vbNewLine & _
    "Book Title= " & Title & vbNewLine & _
    "Unit Price= " & Title & vbNewLine & _
    "Quanity = " & UnitCost & vbNewLine & _
    "Quanity = " & CustomerInput & vbNewLine & _
    "Final Price = " & Format(CustomerInput * UnitCost, "Currency")