Ինչպե՞ս արագ տեղափոխել իրերը Excel- ի երկու ցուցակների տուփերի միջև:

Երբևէ փորձե՞լ եք տեղափոխել տարրերը ցուցակների մեկ տուփից մյուսը ցուցակների մեկ այլ տուփեր, ինչպես ձեզ հարկավոր է, ինչպես ցույց է տրված ստորև նկարված նկարը Այստեղ ես կխոսեմ այս գործողության մասին Excel- ում:

Նյութերը տեղափոխեք ցուցակների տուփերի միջև

Նյութերը տեղափոխեք ցուցակների տուփերի միջև

Զարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel-ում, ինչպիսիք են Chrome-ը, Edge-ը, Firefox-ը և Safari-ն:
Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Չկա ներկառուցված գործառույթ, որը կարող է օգնել ձեզ ավարտել աշխատանքը, բայց ես ունեմ VBA կոդ, որը կարող է լավություն բերել:

1. Նախևառաջ, դուք պետք է ստեղծեք տվյալների ցուցակ, որոնք կցուցադրվեն որպես ցուցակ տուփերի տարրեր նոր թերթում, որը կոչվում է Ադմինիստրատորների ցուցակներ.

2. Դրանից հետո ընտրեք այս տվյալները և անցեք այն Անուն տուփ ՝ նրանց անուն տալու համար Նյութերի ցուցակ, Տեսեք,

3. Ապա մի թերթիկում, որը պարունակում է երկու ցուցակների տուփեր, կտտացրեք Երեվակիչ > Տեղադրել > Ցուցակի տուփ (ակտիվ X կառավարման), և նկարիր ցուցակների երկու տուփ: Տեսեք,

Եթե Երեվակիչ էջանիշը թաքնված է ձեր ժապավենը, Ինչպե՞ս ցույց տալ / ցուցադրել մշակողի ներդիրը Excel 2007/2010/2013 ժապավենում: այս հոդվածը ձեզ կասի, թե ինչպես ցույց տալ այն:

4. Այնուհետեւ կտտացրեք Երեվակիչ > Տեղադրել > Հրամանի կոճակ (Active X Control), և նկարիր չորս կոճակ երկու ցուցակների տուփերի միջև: Տեսեք,

Այժմ հրամանի չորս կոճակները նոր անուններով վերանվանելու համար:

5. Ընտրեք առաջին հրամանի կոճակը, կտտացրեք Հատկություններ, եւ Հատկություններ պատուհան, անուն տվեք BTN_moveAllRight դրան և մուտքագրել >> մեջ գտնվող տեքստային տուփի մեջ Ձերբակալություն, Տեսեք,

6. Կրկնեք 5-րդ քայլը `վերջին երեք հրամանների կոճակը վերանվանելու համար ստորև նշված անուններով, ինչպես նաև մուտքագրեք տարբեր սլաքը վերնագրերի մեջ: Տեսեք,

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

7. Աջ կտտացրեք թերթիկի անվան վրա, որը պարունակում է ցուցակների վանդակները և հրամանի կոճակները, և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

8. Պատճենեք և տեղադրեք մակրո կոդի տակ ներքևում Մոդուլներ սցենարը այնուհետև պահեք կոդը և փակեք այն Microsoft Visual Basic հավելվածների համար պատուհան Տեսեք նկարը

VBA. Տեղափոխեք իրերը երկու ցուցակների տուփերի միջև

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. Դրանից հետո անցեք մեկ այլ թերթ, ապա հետ գնացեք թերթիկ, որը պարունակում է ցուցակների տուփեր, այժմ դուք կարող եք տեսնել, որ ցուցակի տվյալները ցուցակվել են առաջին մեկ ցուցակի վանդակում: Եվ կտտացրեք հրամանի կոճակներին ՝ կետերը երկու ցուցակների տուփերի միջև տեղափոխելու համար:

Տեղափոխել ընտրությունը

Տեղափոխել բոլորը

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...