Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako ohraniti oblikovanje celic med referencami drugih listnih celic?

Na splošno celica ohranja celično vrednost, medtem ko se sklicuje na drugo celico, vendar v tem članku uvajam kodo VBA, da ohranim vrednosti in oblikovanje celic med referenco na drugo celico, vrednosti celic in oblikovanje pa se spreminjajo, ko se referenčna celica spremeni, kot je spodaj prikazan je bil zaslon.
doc obdrži oblikovanje pri sklicevanju na 1

Ohrani celično oblikovanje, medtem ko se sklicuje na drugo celico z VBA


Ohrani celično oblikovanje, medtem ko se sklicuje na drugo celico z VBA


Če želite opraviti to delo, morate samo zagnati pod kodo.

1. Omogočite delovni zvezek, ki ga uporabljate, pritisnite Alt + F11 ključ za omogočitev Microsoft Visual Basic za aplikacijo okno in dvokliknite na ime lista, v katero boste vnesli referenčno celico Projekt-VBAProjekt podokno, da prikažete prazen skript. V tem primeru se želim sklicevati na celico A1 v Sheet1. Prikaz slike:
doc obdrži oblikovanje pri sklicevanju na 2

2. Prilepite koda pod kodo in v kodo VBA določite reference celic, kot jih potrebujete.

VBA: hranite oblikovanje in vrednosti, medtem ko se sklicujete na drugo celico

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

Opombe: A1 je referenčna celica, B1 in 2 Sheet je celica, ki jo želite povezati z referenčno celico, in hranite vrednosti in oblikovanje z A1 v Shee1.

Potem ko spremenite vrednosti ali oblikovanje v celici A1 v Sheet1, se bo celica B1 v Sheet2 spremenila, medtem ko dvakrat kliknete na referenčno celico.


Count by Color

V nekaterih primerih imate morda raznovrstne količine z več barvami, in kaj želite, da se štejejo / seštevajo vrednosti, ki temeljijo na isti barvi, kako hitro lahko izračunate?
z Kutools za Excel's Count by Color, lahko hitro izvedete številne izračune po barvi in ​​lahko tudi ustvarite poročilo o izračunanem rezultatu.
doc šteje po barvi

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 16 days ago
    No tienes uno que sea dentro del mismo archivo
  • To post as a guest, your comment is unpublished.
    Dustin · 5 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 · 5 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 · 5 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 · 8 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 · 7 months ago
      Sorry, your problem is a bit complex, I do not understand clearly.