İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də iki siyahı qutuları arasında maddələrin sürətlə hərəkət etməsi necədir?

Aşağıdakı ekran görüntüsü kimi sizə lazım olan maddələrə bir siyahı qutusundan başqa bir siyahı qutusuna hərəkət etmək üçün cəhd etdiniz mi? Burada Excel-də bu əməliyyat haqqında danışacağam.

1 siyahı qutusu arasında doc hərəkət elementləri doc arrow sağ 2 siyahı qutusu arasında doc hərəkət elementləri

Öğeleri siyahı qutuları arasında keçir


Öğeleri siyahı qutuları arasında keçir


Daxili funksiya işi bitirməyə kömək edə bilər, amma VBA kodu bir xeyir verə bilər.

1. Birincisi, siyahıdakı qutulardakı maddələr kimi səslənəcək yeni bir hesabatda göstəriləcək olan məlumatların siyahısını yaratmalısınız Admin_Lists.
3 siyahı qutusu arasında doc hərəkət elementləri

2. Daha sonra bu məlumatları seçin və gedin ad onlara bir ad verin ItemList. Ekran görüntüsünə baxın:
4 siyahı qutusu arasında doc hərəkət elementləri

3. Sonra iki siyahı qutu içərisində olan bir hesabatda basın Developer > Taxmaq > Siyahı qutusu (Active X Control)və iki siyahı qutuları çəkin. Ekran görüntüsünə baxın:

5 siyahı qutusu arasında doc hərəkət elementləri doc arrow sağ 6 siyahı qutusu arasında doc hərəkət elementləri

Əgər Developer nişan lentinizi gizlədir, Excel 2007 / 2010 / 2013 Ribbon-da geliştirici sekmesini göstərmək / göstərmək üçün necə? bu yazıda bunu necə göstərəcəyini izah edəcəyik.

4. Sonra basın Developer > Taxmaq > Command Button (Active X Control)və iki siyahı qutuları arasında dörd düyməni çəkin. Ekran görüntüsünə baxın:

7 siyahı qutusu arasında doc hərəkət elementləri doc arrow sağ 8 siyahı qutusu arasında doc hərəkət elementləri

Dörd komanda düyməsini yeni adlarla yenidən adlandırın.

5. İlk komanda düyməsini seçin, basın Properties, və Properties pane, bir ad verin BTN_moveAllRight ona və növü >> yanındakı mətn qutusuna daxil edin Başlıq. Ekran görüntüsünə baxın:
9 siyahı qutusu arasında doc hərəkət elementləri

6. Son üç komanda düyməsini aşağıda adları dəyişmək üçün 5 addımını təkrarlayın və ayrıca yazıları müxtəlif oxu yazın. Ekran görüntüsünə baxın:

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

10 siyahı qutusu arasında doc hərəkət elementləri 11 siyahı qutusu arasında doc hərəkət elementləri 12 siyahı qutusu arasında doc hərəkət elementləri

7. Siyahı qutularını və əmr düymələrini ehtiva edən hesabat adına sağ basın və seçin Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:
13 siyahı qutusu arasında doc hərəkət elementləri

8. Makro kodunun altına kopyala və yapışdırın Modules script sonra kodu saxlamaq və bağlayın Proqramlar üçün Microsoft Visual Basic pəncərə. Ekran görüntüsünə baxın

VBA: İki siyahı qutu arasında maddələr keçin

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 siyahı qutusu arasında doc hərəkət elementləri

9. Daha sonra başqa bir hesabata gedin, sonra da siyahıya geri qayıtmaq üçün siyahı qutularını ehtiva edirsiniz, indi siyahıdakı məlumatlar ilk siyahıdakı bir siyahıdakı siyahıdan görünə bilər. Və elementləri iki siyahı qutuları arasında hərəkət etmək üçün komanda düymələrinə vurun.
15 siyahı qutusu arasında doc hərəkət elementləri

Seçimi keçin

16 siyahı qutusu arasında doc hərəkət elementləri doc arrow sağ 17 siyahı qutusu arasında doc hərəkət elementləri

Hamısını daşıyın

18 siyahı qutusu arasında doc hərəkət elementləri doc arrow sağ 19 siyahı qutusu arasında doc hərəkət elementləri


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Pius · 5 months ago
    My excel becomes unresponsive after running this code. what could be the problem?