Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 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 elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mato · 2 years ago
    No tienes uno que sea dentro del mismo archivo
  • To post as a guest, your comment is unpublished.
    Dustin · 2 years ago
    Thanks for sharing this. I have a range of cells in WorksheetA, Sheet1, Range G3:G3000 that I want to reference in WorksheetB, Sheet1, Range G3:G3000. I need WorksheetB, Sheet1, Range G3:G3000 to display both the value and the format of the referenced cells in WorksheetA, Sheet1, G3:G3000. Is there a VBA script that will allow for this?
  • To post as a guest, your comment is unpublished.
    Dustin · 2 years ago
    Thanks for sharing this. Is there a VBA script that allows for referencing a range of cells in one workbook and then displaying the value and format of the referenced cells in a different workbook?
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    Thank you so much for the script. Can you tell me if there is a way for the linked cell to update without having to double click on the reference cell? Thank you!
  • To post as a guest, your comment is unpublished.
    revampdcouture@gmail.com · 3 years ago
    hello, I believe this may be just what I am looking for. I need the referenced text to have the same colors and features from the referenced page. The only thing different about mine is that I am pulling from a larger range. I have never used VBA before so I wanted to confirm before I did changes. I am pulling from a document (sheet 2) onto (sheet 1) document. I have used IF formulas to do this, so it returns a value from 3 different columns and they are not in a row. The columns are F,H,J. Could you please help me figure out how I can make this work?
    • To post as a guest, your comment is unpublished.
      ono · 1 years ago
      I am dealing with similar issue. I have a formula in column C, which takes value from the same row, column A. (But only IF B3 is not x AND A3 is not empty):

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

      Cells of column A look like this: OK 2019_12_03
      But "OK" is in bold format. I would like to keep this format.
      I want this for hundreds of cells, so clicking or writing a script for each one of them is undesirable. Any ideas if such feature exists? I'd appreciate some kind of "WITHFORMAT()" function that I could put in the formula, so the following formula would keep the original format:

      =IF(B3="x";"y";IF(A3="";"z";WITHFORMAT(A3)))
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Sorry, your problem is a bit complex, I do not understand clearly.