Hvordan opretholdes celleformatering, mens der henvises til andre arkceller?
Generelt holder cellen kun celleværdien, mens der henvises til en anden celle, men i denne artikel introducerer jeg en VBA-kode for at beholde celleværdierne og formateringen, mens der henvises til en anden celle, og celleværdierne og formateringen ændres, når referencecellen ændres som nedenfor skærmbillede vist.
Fortsæt celleformatering, mens du henviser til en anden celle med VBA
Fortsæt celleformatering, mens du henviser til en anden celle med VBA
For at håndtere dette job skal du bare køre under koden.
1. Aktivér den projektmappe, du bruger, tryk på Alt + F11 for at aktivere Microsoft Visual Basic til anvendelse vindue, og dobbeltklik på arknavnet, som du placerer referencecellen i Projekt-VBAProjekt rude for at vise et tomt script. I dette tilfælde vil jeg henvise til celle A1 i Sheet1. Se skærmbillede:
2. Indsæt nedenstående kode i scriptet, og i VBA-koden skal du angive cellehenvisningerne, som du har brug for.
VBA: Behold formatering og værdier, mens du henviser til en anden celle
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
Bemærk: A1 er referencecellen, B1 in Sheet 2 er den celle, du vil linke til referencecellen og beholde værdier og formatering med A1 i Shee1.
Når du derefter ændrer værdierne eller formateringen i celle A1 i Ark1, ændres cellen B1 i Ark2, mens du klikker på referencecellen to gange.
Tæl efter farve
|
I nogle tilfælde har du muligvis en række kalorier med flere farver, og hvad du ønsker er at tælle / summe værdier baseret på samme farve, hvordan kan du hurtigt beregne? Med Kutools til Excel's Tæl efter farve, kan du hurtigt lave mange beregninger efter farve og også kan generere en rapport over det beregnede resultat. |
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!