web-dev-qa-db-fra.com

VBA Comment copier le contenu d'une cellule sans .Select

J'écris une méthode qui peut prendre le Target et coller la cellule exactement dans une autre cellule. La cellule est une étiquette d'expédition avec un certain format fantaisie. Existe-t-il un moyen de le faire?

À l'origine, j'ai ceci:

Worksheets("Label").Range("A1").Value = Worksheets("Get Address").Range("A28").Value

Cela a fonctionné pour le texte brut. Cependant j'ai perdu le style que j'ai créé, ils sont différents car après la première ligne, le style est différent:

enter image description here

J'ai également essayé d'utiliser Macro Recorder et j'ai obtenu une solution en utilisant .Select, et je lire cette question ne pas l'utiliser autant que possible. Que puis-je faire?

' Created by the Macro Recorder
Range("A28:A33").Select
Range("A33").Activate
Selection.Copy
Sheets("Label").Select
Range("A1").Select
ActiveSheet.Paste
excelexcel-vbaexcel-2003vba
12
George
Worksheets("Get Address").Range("A33").Copy _
       Destination := Worksheets("Label").Range("A1")
20
Tim Williams

pour copier et coller des valeurs uniquement, puis utilisez ce qui suit

Worksheets("Label").Range("A1").value = _
   Worksheets("Get Address").Range("A33").value

cette déclaration n'utilisera pas de presse-papiers

7
sai baba