Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe houd je celopmaak bij terwijl je naar andere bladcellen verwijst?

Over het algemeen behoudt de cel alleen de celwaarde terwijl naar andere cellen wordt verwezen, 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 opmaakwijzigingen wanneer de referentiecel verandert zoals hieronder screenshot getoond.
doc blijft opmaken terwijl er naar 1 wordt verwezen

Houd celopmaak terwijl u verwijst naar een andere cel met VBA


Houd celopmaak terwijl u verwijst naar een andere cel met VBA


Om deze taak af te handelen, hoeft u alleen maar onder de code te lopen.

1. Schakel de werkmap in die u gebruikt, druk op Alt + F11 toets om in te schakelen Microsoft Visual Basic voor toepassing venster en dubbelklik op de bladnaam waarin u de referentiecel wilt plaatsen Project-VBAProject deelvenster om een ​​leeg script weer te geven. In dit geval wil ik naar cel verwijzen A1 in de Sheet1. Zie screenshot:
doc blijft opmaken terwijl er naar 2 wordt verwezen

2. Plak onderstaande code bij het script en geef in de VBA-code de celverwijzingen op zoals u 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

Notes: A1 is de referentiecel, B1 in 2 Sheet is de cel die u wilt koppelen aan de referentiecel en waarden en opmaak wilt behouden met A1 in Shee1.

Wanneer u vervolgens de waarden of opmaak in cel A1 in Sheet1 wijzigt, wordt de cel B1 in Sheet2 gewijzigd terwijl u tweemaal op de referentiecel klikt.


Count by Color

In sommige gevallen kunt u een reeks calues ​​met meerdere kleuren hebben en wat u wilt is om waarden te tellen / optellen op basis van dezelfde kleur, hoe kunt u snel berekenen?
Doordat uw bureau Kutools for Excel's Count by Color, u kunt snel veel berekeningen op kleur uitvoeren en ook een rapport van het berekende resultaat genereren.
doc tel op kleur


Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: 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 verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 1 months ago
    No tienes uno que sea dentro del mismo archivo
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months 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 · 6 months 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 · 7 months 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.
    Amy Napier · 9 months 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.
      Sunny · 8 months ago
      Sorry, your problem is a bit complex, I do not understand clearly.