Hoe kan ik de celopmaak behouden terwijl ik naar andere bladcellen verwijst?
Over het algemeen behoudt de cel alleen de celwaarde terwijl hij verwijst naar een andere cel, maar in dit artikel introduceer ik een VBA-code om de celwaarden en opmaak te behouden terwijl naar een andere cel wordt verwezen, en de celwaarden en opmaak veranderen naarmate de referentiecel verandert zoals hieronder screenshot getoond.
Blijf de celopmaak behouden terwijl u met VBA naar een andere cel verwijst
Blijf de celopmaak behouden terwijl u met VBA naar een andere cel verwijst
Om deze taak uit te voeren, hoeft u alleen de onderstaande code uit te voeren.
1. Schakel de werkmap in die u gebruikt, druk op Alt + F11 sleutel om in te schakelen Microsoft Visual Basic voor toepassing venster, en dubbelklik op de bladnaam waarin u de referentiecel wilt plaatsen Project-VBAProject paneel om een leeg script weer te geven. In dit geval wil ik verwijzen naar cel A1 in de Sheet1. Zie screenshot:
2. Plak onderstaande code in het script en geef in de VBA-code de celverwijzingen op zoals je nodig hebt.
VBA: blijf opmaak en waarden terwijl u naar een andere cel verwijst
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 is de referentiecel, B1 in 2 Sheet is de cel die u aan de referentiecel wilt koppelen en de waarden en opmaak met A1 in Shee1 wilt behouden.
Wanneer u vervolgens de waarden of opmaak in cel A1 in Sheet1 wijzigt, wordt de cel B1 in Sheet2 gewijzigd door tweemaal op de referentiecel te klikken.
Tel op kleur
|
In sommige gevallen hebt u mogelijk een reeks kleuren met meerdere kleuren, en wat u wilt is waarden tellen / optellen op basis van dezelfde kleur, hoe kunt u snel berekenen? met Kutools for Excel's Tel op kleur, kunt u snel veel berekeningen op kleur uitvoeren en kunt u ook een rapport van het berekende resultaat genereren. |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!