Hoe kunt u de celopmaak behouden terwijl u cellen van een ander werkblad raadpleegt?
Over het algemeen behoudt de cel alleen de celwaarde bij het raadplegen van een andere cel, maar in dit artikel introduceer ik een VBA-code om zowel de celwaarden als de opmaak te behouden bij het raadplegen van een andere cel. De celwaarden en opmaak veranderen mee met de referentiecel, zoals te zien is in de onderstaande schermafbeelding.
Behoud celopmaak bij het raadplegen van een andere cel met VBA
Behoud celopmaak bij het raadplegen van een andere cel met VBA
Om deze taak uit te voeren, hoeft u alleen de onderstaande code uit te voeren.
1. Open het werkboek dat u gebruikt en druk op Alt + F11 om te activeren Microsoft Visual Basic for Applications venster, en dubbelklik op de naam van het werkblad waarin u de referentiecel wilt plaatsen in Project-VBAProject paneel om een leeg script weer te geven. In dit geval wil ik verwijzen naar cel A1 in het Werkblad1. Zie screenshot:
2. Plak de volgende code in het script en specificeer in de VBA-code de celverwijzingen zoals u nodig hebt.
VBA: Behoud opmaak en waarden bij het raadplegen van een andere cel
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 SubOpmerking: A1 is de referentiecel, B1 in Werkblad 2 is de cel waarmee u verbinding wilt maken met de referentiecel en waarmee u waarden en opmaak wilt behouden met A1 in Werkblad1.
Wanneer u vervolgens de waarden of de opmaak in cel A1 in Werkblad1 wijzigt, zal cel B1 in Werkblad2 ook veranderen wanneer u tweemaal op de referentiecel klikt.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen