Cum să păstrați formatarea celulei în timp ce faceți referire la alte celule de foaie?
În general, celula păstrează valoarea celulei numai în timp ce face referire la altă celulă, dar în acest articol, introduc un cod VBA pentru a păstra valorile și formatarea celulei în timp ce faceți referire la o altă celulă, iar valorile celulei și formatarea se modifică pe măsură ce celula de referință se modifică ca mai jos. captură de ecran afișată.
Păstrați formatarea celulei în timp ce faceți referire la o altă celulă cu VBA
Păstrați formatarea celulei în timp ce faceți referire la o altă celulă cu VBA
Pentru a face față acestei lucrări, trebuie doar să rulați sub cod.
1. Activați registrul de lucru pe care îl utilizați, apăsați Alt + F11 cheie pentru activare Microsoft Visual Basic pentru aplicație fereastră și faceți dublu clic pe numele foii în care veți plasa celula de referință Proiect-VBAProject pentru a afișa un script gol. În acest caz, vreau să mă refer la celulă A1 în Sheet1. Vedeți captura de ecran:
2. Lipiți codul de mai jos în script și, în codul VBA, specificați referințele celulei după cum aveți nevoie.
VBA: Păstrați formatarea și valorile în timp ce faceți referire la o altă celulă
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
notițe: A1 este celula de referință, B1 in Indicatori din 2 este celula pe care doriți să o conectați la celula de referință și să păstrați valorile și formatarea cu A1 în Shee1.
Apoi, atunci când modificați valorile sau formatarea în celula A1 din Sheet1, celula B1 din Sheet2 va fi modificată în timp ce faceți clic de două ori pe celula de referință.
Numără după culoare
|
În unele cazuri, este posibil să aveți o gamă de calorii cu mai multe culori, iar ceea ce doriți este să numărați / să sumați valorile pe aceeași culoare, cum puteți calcula rapid? cu Kutools pentru Excel's Numără după culoare, puteți face rapid multe calcule după culoare și, de asemenea, puteți genera un raport al rezultatului calculat. |
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!