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

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

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

փաստաթղթերը տեղափոխել ցուցակները 1 ցուցակի տուփի միջև doc սլաք աջ փաստաթղթերը տեղափոխել ցուցակները 2 ցուցակի տուփի միջև

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


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

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

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

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

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

փաստաթղթերը տեղափոխել ցուցակները 5 ցուցակի տուփի միջև doc սլաք աջ փաստաթղթերը տեղափոխել ցուցակները 6 ցուցակի տուփի միջև

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

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

փաստաթղթերը տեղափոխել ցուցակները 7 ցուցակի տուփի միջև doc սլաք աջ փաստաթղթերը տեղափոխել ցուցակները 8 ցուցակի տուփի միջև

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

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

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

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

փաստաթղթերը տեղափոխել ցուցակները 10 ցուցակի տուփի միջև փաստաթղթերը տեղափոխել ցուցակները 11 ցուցակի տուփի միջև փաստաթղթերը տեղափոխել ցուցակները 12 ցուցակի տուփի միջև

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

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

 փաստաթղթերը տեղափոխել ցուցակները 14 ցուցակի տուփի միջև

9. Դրանից հետո անցեք մեկ այլ թերթ, ապա հետ գնացեք թերթիկ, որը պարունակում է ցուցակների տուփեր, այժմ դուք կարող եք տեսնել, որ ցուցակի տվյալները ցուցակվել են առաջին մեկ ցուցակի վանդակում: Եվ կտտացրեք հրամանի կոճակներին ՝ կետերը երկու ցուցակների տուփերի միջև տեղափոխելու համար:
փաստաթղթերը տեղափոխել ցուցակները 15 ցուցակի տուփի միջև

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

փաստաթղթերը տեղափոխել ցուցակները 16 ցուցակի տուփի միջև doc սլաք աջ փաստաթղթերը տեղափոխել ցուցակները 17 ցուցակի տուփի միջև

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

փաստաթղթերը տեղափոխել ցուցակները 18 ցուցակի տուփի միջև doc սլաք աջ փաստաթղթերը տեղափոխել ցուցակները 19 ցուցակի տուփի միջև

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (1)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը գործարկելուց հետո իմ excel-ը չի արձագանքում: ինչ կարող է լինել խնդիրը
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից