So kopieren Sie die Farbe der Zelle für die bedingte Formatierung in eine andere Excel-Datei

583
Paracsys

Auf einem Blatt habe ich Daten, die eine bedingte Formatierungsfarbe haben.

Ich möchte das kopieren und in eine andere Datei einfügen, ich konnte Werte, Spaltenbreite usw. einfügen, aber ich konnte die Farbe nicht aus der bedingten Formatierung einfügen.

Ich recherchierte und der Vorschlag war, es in Word einzufügen und dann wieder in Excel zu bringen, aber das ruiniert meine Excel-Zeilen- und -Spalten-Formatierung.

Wie geht das? Ist es möglich?

sample image

0
Öffnen Sie 2 Arbeitsmappe in derselben Instanz, und Sie können die Formatfarbe in eine andere Arbeitsmappe kopieren. Lee vor 5 Jahren 0

1 Antwort auf die Frage

1
Rajesh S

Ich möchte Ihnen zwei mögliche Methoden vorschlagen. Eins ist Nichtprogrammieren und Zweites Programmieren (VBA-Makro).

Nichtprogrammierungsmethode:

  1. Öffnen Sie beide Arbeitsmappen.
  2. Kopieren Sie eine Zelle aus dem Arbeitsblatt der ursprünglichen Arbeitsmappe (von der Sie die bedingte Formatierung kopieren möchten) an eine nicht verwendete Position im Arbeitsblatt der Zielarbeitsmappe .
  3. Öffnen Sie die Option Regeln verwalten der bedingten Formatierung .
  4. Wählen Sie Formatierungsregeln für dieses Arbeitsblatt anzeigen aus.
  5. Passen Sie die Werte für jede Regel an den gewünschten Bereich an.
  6. Klicken Sie auf die Bereichsschaltfläche rechts neben " Gilt für".
  7. Klicken Sie mit der Maus von oben links in die rechte untere Zelle.
  8. Klicken Sie auf die Schaltfläche Bereich, um zum Conditional Rules Manager zurückzukehren.
  9. Klicken Sie auf OK oder Übernehmen, um das Ergebnis zu erhalten.

Programmiermethode:

  1. Bei Quelldatei drücken Sie Alt+F11, um den VB-Editor zu öffnen.

  2. Kopieren Sie diesen Code und fügen Sie ihn als Standardmodul ein.

    Sub CopyFormat() Application.DisplayAlerts = False Dim wbSource As Workbook Set wbSource = Workbooks.Open(Filename:="source.xlsm", UpdateLinks:=3) wbSource.Sheets(1).Range("A1:H100").Copy Selection.PasteSpecial _  Paste:=xlPasteValues Selection.PasteSpecial _  xlPasteFormats  wbSource.Close Application.DisplayAlerts = True End Sub

Hinweis:

  1. Sie können den Namen des Arbeitsbuchs & Blattes nach Ihren Wünschen bearbeiten.
  2. Passen Sie die Zellreferenzen für den kopierten Bereich nach Bedarf an.
Freut mich, Ihnen zu helfen, #Ahmed ,,, fragt weiter ☺ Rajesh S vor 5 Jahren 0

Verwandte Probleme