Wie kann die Zellenformatierung beibehalten werden, während auf andere Blattzellen verwiesen wird?
Im Allgemeinen behält die Zelle nur den Zellenwert bei, während sie auf eine andere Zelle verweist. In diesem Artikel stelle ich jedoch einen VBA-Code vor, um die Zellenwerte und die Formatierung beim Verweisen auf eine andere Zelle beizubehalten. Die Zellenwerte und die Formatierung ändern sich, wenn sich die Referenzzelle wie folgt ändert Screenshot gezeigt.
Behalten Sie die Zellenformatierung bei, während Sie mit VBA auf eine andere Zelle verweisen
Behalten Sie die Zellenformatierung bei, während Sie mit VBA auf eine andere Zelle verweisen
Um diesen Job zu erledigen, müssen Sie nur den folgenden Code ausführen.
1. Aktivieren Sie die von Ihnen verwendete Arbeitsmappe und drücken Sie Alt + F11 Schlüssel zum Aktivieren Microsoft Visual Basic für Anwendung Fenster und doppelklicken Sie auf den Blattnamen, in dem Sie die Referenzzelle platzieren Projekt-VBAProject Bereich, um ein leeres Skript anzuzeigen. In diesem Fall möchte ich auf Zelle verweisen A1 der Sheet1. Siehe Screenshot:
2. Fügen Sie den folgenden Code in das Skript ein und geben Sie im VBA-Code die gewünschten Zellreferenzen an.
VBA: Formatierung und Werte beibehalten, während auf eine andere Zelle verwiesen wird
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End Sub
Note: A1 ist die Referenzzelle, B1 in Blatt 2 ist die Zelle, die Sie mit der Referenzzelle verknüpfen und Werte und Formatierungen mit A1 in Shee1 beibehalten möchten.
Wenn Sie dann die Werte oder die Formatierung in Zelle A1 in Blatt1 ändern, wird die Zelle B1 in Blatt2 geändert, während Sie zweimal auf die Referenzzelle klicken.
Nach Farbe zählen
|
In einigen Fällen haben Sie möglicherweise eine Reihe von Werten mit mehreren Farben. Sie möchten Werte basierend auf derselben Farbe zählen / summieren. Wie können Sie schnell rechnen? Mit der Kutools for Excel's Nach Farbe zählenSie können schnell viele Berechnungen nach Farbe durchführen und einen Bericht über das berechnete Ergebnis erstellen. |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!