Macro Excel pour Modifier le Format de Cellule à Monnaie

J'ai un fichier où une colonne est pleine de chiffres, et la deuxième colonne est la devise de chaque numéro. J'ai USD, EUR, CHF, and GBP.

Je souhaite créer une macro qui permet de mettre en forme le numéro de la colonne du numéro de la monnaie, et ensuite appliquer la devise de la deuxième colonne.

Le truc c'est que je veux le numéro de la colonne à avoir encore des numéros, comme dans le numéro peut être ajouté ou soustrait. Donc, je ne veux pas d'une simple jointure des deux colonnes parce que ce serait rendre les champs de texte, et ne pourra pas être utilisé dans les équations mathématiques.

S'il vous plaît aider si vous savez comment.

Merci!

  • Ne pouvez-vous pas juste le format de la colonne de cellules en tant que "monnaie" et définissez le type de devise?
  • Je peux, mais le problème est que j'ai BEAUCOUP de lignes, et en passant par chacun et de la sélection de la bonne monnaie (comme il y a 4 monnaies au choix) va prendre un certain temps. C'est pourquoi je veux écrire une macro pour le faire pour moi... si je peux
  • Avez-vous essayé l'enregistrement d'une macro pendant le réglage de l'un de vos formats personnalisés? Vous devriez être en mesure de l'utiliser pour obtenir commencé.
  • Il va aider à obtenir commencé, mais je veux que l'ordinateur de reconnaître la monnaie et de le mettre de cette façon. Si j'écris la macro pour définir le format de la monnaie, il sera par défaut à l'USD, et j'ai 3 autres devises, et pas seulement USD.
InformationsquelleAutor Irina | 2012-11-14
  1. 3

    Je ne suis pas sûr de comprendre votre question, mais cela va prendre toutes les valeurs dans la Colonne A et les mettre en forme en tant que monnaie dans la Colonne C en se basant sur la valeur de la monnaie dans la Colonne B:

    Sub Macro1()

Dim cl As Range

For Each cl In Intersect(ActiveSheet.Range("A:A"), ActiveSheet.UsedRange)
   cl.Offset(0, 2).Value = cl.Value
   Select Case cl.Offset(0, 1).Value
      Case "USD"
         cl.Offset(0, 2).NumberFormat = "$#,##0.00"
      Case "EUR"
         cl.Offset(0, 2).NumberFormat = "[$€-2] #,##0.00"
      Case "GBP"
         cl.Offset(0, 2).NumberFormat = "[$£-809]#,##0.00"
      Case "CHF"
         cl.Offset(0, 2).NumberFormat = "[$CHF] #,##0.00"
   End Select

Next cl

End Sub

    Si vous souhaitez modifier les types de devises, enregistrement d'une macro lorsque vous définissez une cellule à la bonne monnaie puis copiez et collez ce numéro format si nécessaire.

    • John... génie. J'ai été avoir à y penser il. Merci!!!!!!
    • Il maintient à l'aide d'Euros et Européennes numberformat pour moi (je suis en néerlandais) Alors que mon code certainement hits cl.Offset(0, 2).NumberFormat = "$#,##0.00"
    • Le problème semble être que cela peut être différent selon les paramètres régionaux de votre système. Pour de la viande qui est dans l'euro, afin de changer cela en dollars est dû changer de cl.NumberFormat = "[$$-409]#,##0.00" Autres que j'ai le problème que je ne peux pas semblent changer $12.000,00 (Qui est le néerlandais virgule et point décimal) à $12,000.00 quelqu'un Peut m'aider à comprendre cela.
    InformationsquelleAutor John Bustos