Propriété Project.CurrencySymbol (Project)

Obtient ou définit les caractères qui indiquent les valeurs monétaires. String en lecture/écriture.

Syntaxe

expression. CurrencySymbol

Expression Variable qui représente un objet Project .

Remarques

Project définit la propriété CurrencySymbol égale à la valeur correspondante dans la boîte de dialogue Personnaliser les options régionales du Panneau de configuration Windows.

Exemple

L’exemple suivant met en forme des valeurs monétaires dans le projet actif en fonction du pays ou de la région spécifié par l’utilisateur.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.