Project.CurrencySymbol property (Project)

Ruft ab oder legt die Zeichen, die Währungsangaben bezeichnen. Zeichenfolge mit Lese-/Schreibzugriff.

Syntax

Ausdruck. CurrencySymbol

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Hinweise

Project legt CurrencySymbol -Eigenschaft auf den entsprechenden Wert im Dialogfeld Regionale Einstellungen anpassen der Windows-Systemsteuerungsoption fest.

Beispiel

Das folgende Beispiel formatiert Währungswerte im aktiven Projekt nach Land oder Region, die vom Benutzer angegebene.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.