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 Subnotiț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 Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
