Note: The other languages of the website are Google-translated. Back to English

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.
doc blijf formatteren terwijl u verwijst naar 1

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 functie in het Sheet1. Zie screenshot:
doc blijf formatteren terwijl u verwijst naar 2

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

Opmerking:: 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.
doc tellen op kleur

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (8)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
hallo, ik denk dat dit precies is wat ik zoek. Ik wil dat de tekst waarnaar wordt verwezen, dezelfde kleuren en kenmerken heeft als de pagina waarnaar wordt verwezen. Het enige wat anders is aan de mijne is dat ik uit een groter bereik trek. Ik heb nog nooit VBA gebruikt, dus ik wilde het bevestigen voordat ik wijzigingen aanbracht. Ik trek van een document (blad 2) naar (blad 1) document. Ik heb IF-formules gebruikt om dit te doen, dus het retourneert een waarde uit 3 verschillende kolommen en ze staan ​​niet op een rij. De kolommen zijn F,H,J. Kun je me alsjeblieft helpen uitzoeken hoe ik dit kan laten werken?
Deze opmerking is gemaakt door de moderator op de site
Sorry, uw probleem is een beetje ingewikkeld, ik begrijp het niet duidelijk.
Deze opmerking is gemaakt door de moderator op de site
Ik ben bezig met een soortgelijk probleem. Ik heb een formule in kolom C, die waarde haalt uit dezelfde rij, kolom A. (Maar alleen ALS B3 niet x is EN A3 niet leeg is):

=ALS(B3="x";"y";IF(A3="";"z";A3))

Cellen van kolom A zien er als volgt uit: OK 2019_12_03
Maar "OK" is vetgedrukt. Dit formaat wil ik graag behouden.
Ik wil dit voor honderden cellen, dus klikken of een script schrijven voor elk ervan is ongewenst. Enig idee of een dergelijke functie bestaat? Ik zou een soort "WITHFORMAT()" -functie op prijs stellen die ik in de formule zou kunnen plaatsen, dus de volgende formule zou het originele formaat behouden:

=ALS(B3="x";"y";IF(A3="";"z";METFORMAAT(A3)))
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt voor het script. Kunt u mij vertellen of er een manier is waarop de gekoppelde cel kan worden bijgewerkt zonder dat u op de referentiecel hoeft te dubbelklikken? Dank u!
Deze opmerking is gemaakt door de moderator op de site
Bedankt om dit te delen. Is er een VBA-script waarmee naar een celbereik in één werkmap kan worden verwezen en vervolgens de waarde en het formaat van de cellen waarnaar wordt verwezen in een andere werkmap?
Deze opmerking is gemaakt door de moderator op de site
Bedankt om dit te delen. Ik heb een celbereik in WorksheetA, Sheet1, Range G3:G3000 waarnaar ik wil verwijzen in WorksheetB, Sheet1, Range G3:G3000. Ik heb WorksheetB, Sheet1, Range G3:G3000 nodig om zowel de waarde als het formaat van de cellen waarnaar wordt verwezen in WorksheetA, Sheet1, G3:G3000 weer te geven. Is er een VBA-script dat dit mogelijk maakt?
Deze opmerking is gemaakt door de moderator op de site
Geen tienes uno que sea dentro del mismo archive
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik wil graag het formaat van mijn referentiecel behouden. Maar zelfs met je VBA werkt het niet. Kan je me alsjeblieft helpen?
Ik wil dat mijn B2-cel van mijn blad 1 mijn referentiecel is voor mijn C2-cellen van blad 2,3,4,5,6,7.
Mijn document is een lijst van mensen, daarom zal ik verschillende cellen met verwijzingen hebben, niet de voortzetting.
Bij voorbaat bedankt
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL