MOJAB 24

اموزش vba list box

List box یکی از اشیاء فرم در VBA است که به کاربر امکان انتخاب یک یا چند مورد از یک لیست از آیتم‌ها را می‌دهد. در اینجا یک راهنمای کوتاه برای استفاده از list box در VBA آورده شده است:

1. ابتدا یک فرم جدید در VBA ایجاد کنید.
2. از منوی "Insert" یک List Box را به فرم اضافه کنید.
3. با دوبل کلیک بر روی List Box، ویرایشگر کد VBA باز می‌شود.
4. از کد زیر برای پر کردن List Box با آیتم‌ها استفاده کنید:

Private Sub UserForm_Initialize()
    With ListBox1
        .AddItem "آیتم 1"
        .AddItem "آیتم 2"
        .AddItem "آیتم 3"
    End With
End Sub

5. حالا List Box شما با آیتم‌های مورد نظر پر شده است.
6. برای دسترسی به آیتم‌های انتخاب شده توسط کاربر، می‌توانید از کد زیر استفاده کنید:

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            MsgBox ListBox1.List(i)
        End If
    Next i
End Sub

این کد به شما امکان می‌دهد تا آیتم‌های انتخاب شده در List Box را در یک پیام باکس نمایش دهید.

با این روش، شما می‌توانید List Box را به صورت دلخواه پر کرده و از انتخاب کاربر استفاده کنید.