Project.CurrencySymbol プロパティ (Project)

取得または通貨の値を示す文字を設定します。 読み取り/書き込みが可能な String です。

構文

式。 CurrencySymbol

式Project オブジェクトを表す変数。

注釈

プロジェクトでは、Windows のコントロール パネルの [ 地域のオプションのカスタマイズ] ダイアログ ボックスに対応する値に等しい、 CurrencySymbol プロパティを設定します。

例

次の使用例は、国または地域をユーザーが指定されている作業中のプロジェクトの通貨の値を書式設定します。

Sub FormatCurrency() 
 
    Dim CountryOrRegion As String 
 
    ' Prompt the user to enter the name of a country or region. 
    CountryOrRegion = UCase(InputBox$("Enter the name of a country or region: ", "Format Currency By Country Or Region")) 
     
    Select Case CountryOrRegion 
        Case "US", "United States", "USA", "United States of America" 
            ActiveProject.CurrencySymbol = "$" 
            ActiveProject.CurrencySymbolPosition = pjBefore 
        Case "ENGLAND" 
            ActiveProject.CurrencySymbol = Chr(163) 
            ActiveProject.CurrencySymbolPosition = pjBefore 
        Case "SWEDEN" 
            ActiveProject.CurrencySymbol = "kr" 
            ActiveProject.CurrencySymbolPosition = pjAfterWithSpace 
        ' Warn user if the currency format is not known. 
        Case Else 
            MsgBox ("The currency format for that country or region is unknown.") 
    End Select
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。