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

Anhygoel! Defnyddio Tabiau Effeithlon yn Excel Fel Chrome, Edge, Firefox a Safari!
Arbedwch 50% o'ch amser, a lleihau miloedd o gliciau llygoden i chi bob dydd!

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_MoveSelectedRight

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

	Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
	Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
	Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
	Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
	Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
	15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...

Read More ... Lawrlwythiad Am Ddim...

---

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!

Read More ... Lawrlwythiad Am Ddim...