Sut i symud eitemau yn gyflym rhwng dau flwch rhestr yn Excel?
A ydych erioed wedi ceisio symud yr eitemau o un blwch rhestr i flychau un rhestr arall fel y mae eu hangen arnoch isod. Yma, byddaf yn siarad am y llawdriniaeth hon yn Excel.
 |
 |
 |
Symud eitemau rhwng blychau rhestr
Symud eitemau rhwng blychau rhestr
Nid oes unrhyw swyddogaeth adeiledig a all eich helpu i orffen y swydd, ond mae gen i god VBA a all wneud ffafr.
1. Yn gyntaf, mae angen i chi greu rhestr o ddata a fydd yn cael ei dangos fel yr eitemau mewn blychau rhestr mewn dalen newydd a oedd yn galw Rhestrau_Gweinyddol.
2. Yna dewiswch y data hyn ac ewch i'r Enw blwch i roi enw iddyn nhw Rhestr Eitem. Gweler y screenshot:
3. Yna mewn dalen a fydd yn cynnwys y ddau flwch rhestr, cliciwch Datblygwr > Mewnosod > Blwch Rhestr (Rheoli X Gweithredol), a thynnu dau flwch rhestr. Gweler y screenshot:
 |
|
 |
Os yw'r Datblygwr tab wedi'i guddio'ch rhuban, Sut i ddangos / arddangos tab datblygwr yn Excel 2007/2010/2013 Rhuban? bydd yr erthygl hon yn dweud wrthych sut i'w ddangos.
4. Yna cliciwch Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli X Gweithredol), a thynnu pedwar botwm rhwng dau flwch rhestr. Gweler y screenshot:
 |
|
 |
Nawr i ailenwi'r pedwar botwm gorchymyn gydag enwau newydd.
5. Dewiswch y botwm gorchymyn cyntaf, cliciwch Eiddo, ac yn y Eiddo cwarel, rhowch enw BTN_moveAllRight iddo, a theipiwch >> i mewn i'r blwch testun wrth ymyl Geiriad. Gweler y screenshot:
6. Ailadroddwch gam 5 i ailenwi'r tri botwm gorchymyn olaf gydag enwau isod, a theipio'r saeth wahanol i'r penawdau hefyd. Gweler y screenshot:
BTN_MoveSelected Right
BTN_moveAllLeft
BTN_MoveSelectedLeft
 |
 |
 |
7. Cliciwch ar y dde ar enw'r ddalen sy'n cynnwys y blychau rhestr a'r botymau gorchymyn, a dewiswch Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:
8. Copïo a gludo islaw'r cod macro i'r Modiwlau sgript yna arbedwch y cod a chau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Gweler y screenshot
VBA: Symudwch eitemau rhwng dau flwch rhestr
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
Dim xCell As Range
Dim xRg As Range
Set xRg = Sheets("Admin_Lists").Range("ItemList")
Me.ListBox1.Clear
Me.ListBox2.Clear
With Me.ListBox1
.LinkedCell = ""
.ListFillRange = ""
For Each xCell In xRg
If xCell <> "" Then
.AddItem xCell.Value
End If
Next xCell
End With
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub BTN_MoveSelectedLeft_Click()
Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_MoveSelectedRight_Click()
Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub
Private Sub BTN_moveAllLeft_Click()
Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_moveAllRight_Click()
Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub
Sub moveAll(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
xListBox2.AddItem xListBox1.List(I)
Next I
xListBox1.Clear
End Sub
Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
If I = xListBox1.ListCount Then Exit Sub
If xListBox1.Selected(I) = True Then
xListBox2.AddItem xListBox1.List(I)
xListBox1.RemoveItem I
I = I - 1
End If
Next
End Sub 
9. Yna ewch i ddalen arall yna ewch yn ôl i'r ddalen sy'n cynnwys y blychau rhestr, nawr gallwch weld bod data'r rhestr wedi'i restru ym mlwch un rhestr gyntaf. A chliciwch ar y botymau gorchymyn i symud yr eitemau rhwng dau flwch rhestr.
Symud dewis
 |
|
 |
Symud popeth
 |
|
 |
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!
