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

Sut i gadw fformatio celloedd wrth gyfeirio at gelloedd dalen eraill?

Yn gyffredinol, dim ond wrth gyfeirio at gell arall y mae'r gell yn cadw gwerth y gell, ond yn yr erthygl hon, rwy'n cyflwyno cod VBA i gadw gwerthoedd a fformat y gell wrth gyfeirio at gell arall, ac mae gwerthoedd a fformat y gell yn newid wrth i'r gell gyfeirio newid fel isod screenshot wedi'i ddangos.
doc cadw fformatio wrth gyfeirio 1

Cadwch fformatio celloedd wrth gyfeirio at gell arall gyda VBA


Cadwch fformatio celloedd wrth gyfeirio at gell arall gyda VBA

I drin y swydd hon, does ond angen i chi redeg o dan y cod.

1. Galluogi'r llyfr gwaith rydych chi'n ei ddefnyddio, pwyswch Alt + F11 allwedd i'w galluogi Microsoft Visual Basic ar gyfer Cymhwyso ffenestr, a chliciwch ddwywaith ar enw'r ddalen y byddwch chi'n gosod y gell gyfeirio ynddi Prosiect-VBAProject cwarel i ddangos sgript wag. Yn yr achos hwn, rwyf am gyfeirio at gell A1 yn y Sheet1. Gweler y screenshot:
doc cadw fformatio wrth gyfeirio 2

2. Gludwch y cod isod i'r sgript, ac yn y cod VBA, nodwch y cyfeiriadau celloedd yn ôl yr angen.

VBA: Cadwch fformatio a gwerthoedd wrth gyfeirio at gell arall

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

Nodyn: A1 yw'r gell gyfeirio, B1 in Taflen 2 yw'r gell rydych chi am ei chysylltu â'r gell gyfeirio a chadw gwerthoedd a fformatio gydag A1 yn Shee1.

Yna pan fyddwch chi'n newid y gwerthoedd neu'r fformatio yng nghell A1 yn Nhaflen 1, bydd y gell B1 yn Sheet2 yn cael ei newid wrth glicio yn y gell gyfeirio ddwywaith.


Cyfrif yn ôl Lliw

Mewn rhai achosion, efallai bod gennych chi ystod o galwadau gyda lliwiau lluosog, a'r hyn rydych chi ei eisiau yw cyfrif / symio gwerthoedd yn seiliedig ar yr un lliw, sut allwch chi gyfrifo'n gyflym?
gyda Kutools ar gyfer Excel's Cyfrif yn ôl Lliw, gallwch chi wneud llawer o gyfrifiadau yn gyflym yn ôl lliw, a hefyd gallwch gynhyrchu adroddiad o'r canlyniad a gyfrifwyd.
cyfrif doc yn ôl lliw

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo, rwy'n credu efallai mai dyma'r union beth rydw i'n edrych amdano. Mae angen i'r testun y cyfeiriwyd ato gael yr un lliwiau a nodweddion o'r dudalen y cyfeiriwyd ati. Yr unig beth sy'n wahanol am fy un i yw fy mod yn tynnu o ystod fwy. Nid wyf erioed wedi defnyddio VBA o'r blaen felly roeddwn am gadarnhau cyn i mi wneud newidiadau. Rwy'n tynnu o ddogfen (taflen 2) i ddogfen (taflen 1). Rwyf wedi defnyddio fformiwlâu IF i wneud hyn, felly mae'n dychwelyd gwerth o 3 colofn wahanol ac nid ydynt mewn rhes. Y colofnau yw F,H,J. A fyddech cystal â fy helpu i ddarganfod sut y gallaf wneud i hyn weithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, mae eich problem ychydig yn gymhleth, nid wyf yn deall yn glir.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr wyf yn ymdrin â mater tebyg. Mae gen i fformiwla yng ngholofn C, sy'n cymryd gwerth o'r un rhes, colofn A. (Ond dim ond OS nad yw B3 yn x AC nad yw A3 yn wag):

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

Mae celloedd colofn A yn edrych fel hyn: Iawn 2019_12_03
Ond mae "OK" mewn fformat trwm. Hoffwn gadw'r fformat hwn.
Rydw i eisiau hwn ar gyfer cannoedd o gelloedd, felly mae clicio neu ysgrifennu sgript ar gyfer pob un ohonyn nhw yn annymunol. Unrhyw syniadau os oes nodwedd o'r fath yn bodoli? Byddwn yn gwerthfawrogi rhyw fath o swyddogaeth "WITHFORMAT()" y gallwn ei roi yn y fformiwla, felly byddai'r fformiwla ganlynol yn cadw'r fformat gwreiddiol:

=IF(B3="x";"y"; IF(A3="";"z";WITHFORMAT(A3)))
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am y sgript. A allwch chi ddweud wrthyf a oes ffordd i'r gell gysylltiedig ddiweddaru heb orfod clicio ddwywaith ar y gell gyfeirio? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am rannu hwn. A oes sgript VBA sy'n caniatáu cyfeirio at ystod o gelloedd mewn un llyfr gwaith ac yna'n dangos gwerth a fformat y celloedd y cyfeirir atynt mewn llyfr gwaith gwahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am rannu hwn. Mae gennyf ystod o gelloedd yn Nhaflen Waith A, Taflen 1, Ystod G3:G3000 yr wyf am gyfeirio atynt yn Nhaflen WaithB, Taflen 1, Ystod G3:G3000. Dwi angen Taflen WaithB, Taflen 1, Ystod G3:G3000 i ddangos gwerth a fformat y celloedd y cyfeirir atynt yn Nhaflen WaithA, Taflen 1, G3:G3000. A oes sgript VBA a fydd yn caniatáu ar gyfer hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim tienes uno que sea dentro del mismo archivo
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hoffwn gadw fformat fy nghell gyfeirio. Fodd bynnag, hyd yn oed gyda'ch VBA nid yw'n gweithio. Allwch chi fy helpu os gwelwch yn dda?
Hoffwn i'm cell B2 o fy nhaflen 1 fod yn gell gyfeiriol ar gyfer fy nghelloedd C2 o ddalennau 2,3,4,5,6,7.
Rhestr o bobl yw fy nogfen, felly bydd gennyf sawl cell o gyfeiriadau nid y parhad.
Diolch ymlaen llaw
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir