Sut i gysoni cwymplenni mewn taflenni gwaith lluosog yn Excel?
Tybiwch fod gennych chi gwymplenni ar sawl taflen waith mewn llyfr gwaith sy'n cynnwys yr un eitemau cwymplen yn union. Nawr rydych chi am gydamseru'r cwymplenni ar draws taflenni gwaith fel bod y rhestrau cwympo mewn taflenni gwaith eraill yn cael eu cydamseru'n awtomatig ar ôl i chi ddewis eitem o gwymplen mewn un daflen waith. Mae'r erthygl hon yn darparu cod VBA i'ch helpu i ddatrys y broblem hon.
Cydamseru cwymplenni mewn taflenni gwaith lluosog gyda chod VBA
Cydamseru cwymplenni mewn taflenni gwaith lluosog gyda chod VBA
Er enghraifft, mae'r cwymplenni mewn pum taflen waith a enwir dalen 1, dalen 2, ..., Taflen 5, i gydamseru'r cwymplenni mewn taflenni gwaith eraill yn ôl y cwymplen yn Nhaflen 1, cymhwyswch y cod VBA canlynol i'w wneud.
1. Agorwch Sheet1, de-gliciwch ar y tab taflen a dewiswch Gweld y Cod o'r ddewislen cywir ar y dde.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, gludwch y cod VBA canlynol i mewn i'r Dalen 1 (Cod) ffenestr.
Cod VBA: Cydamseru'r gwymplen mewn taflenni gwaith lluosog
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Nodiadau:
3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, pan fyddwch chi'n dewis eitem o'r gwymplen i mewn Taflen 1, bydd y cwymplenni yn y taflenni gwaith penodedig yn cael eu cysoni'n awtomatig i gael yr un dewis. Gweler y demo isod.
Demo: Cydamseru Rhestrau Gollwng Mewn Taflenni Gwaith Lluosog Yn Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!