Microsoft Excel Copier et Coller avec le Format de Date

Quelqu'un peut m'aider avec la copie et le collage, mais garder le format des données à jour pour toutes les dates et les numéros de tous les numéros. Donc, pour l'exemple, j'ai l'ID de Client qui devrait être de 3 chiffres (000), et la date dans le format de date. Mais quand je fais un copier-coller, la date est devenue un étrange entier et l'ID de devenir 1 chiffre. Voici la sortie maintenant

Copier à partir de:

001 AVC BDE 130 6/23/2013

Quand je colle, il devient:

Cust Nom de l'ID de Type Quantité Date de
1 AVC BDE 130 41448

Peut aider quelqu'un?
Voici mon code

 ActiveSheet.Range("A1:F1").Copy
wkbDisplayOrder.Worksheets("Customer's Order").Select
ActiveSheet.Range("A1:F1").PasteSpecial Paste:=xlPasteValues
Pouvez-vous ajouter une autre ligne lik epaste:=xlPasteFormat de nouveau? Je suis désolé, je ne fais pas beaucoup de VBA.

OriginalL'auteur user2918241 | 2013-10-25

  1. 5

    En supposant que votre heureux avec la mise en forme qui est dans la copie de champs, alors vous pouvez simplement faire un simple coller à la place de collage spécial. Droit maintenant, votre code est seulement coller des valeurs à cause de cette ligne:

    Paste:=xlPasteValues

    Vous pouvez aussi changer ça à la place:

    Paste:=xlPasteValuesAndNumberFormats

    OriginalL'auteur Portland Runner

  2. 0

    Essayer ce code (non Testé)

       ActiveSheet.Range("A1:F1").Copy
    wkbDisplayOrder.Worksheets("Customer's Order").Select
    ActiveSheet.Range("A1").NumberFormat = "@"
    ActiveSheet.Range("E1").NumberFormat = "MM/dd/yyyy"
    ActiveSheet.Range("A1:F1").PasteSpecial Paste:=xlPasteValues

    OriginalL'auteur Santosh