افزودن به کمبوباکس

**ali.b** · 2020/02/09, 08:40

upp

**M_ExceL** · 2020/02/10, 01:28

نوشته اصلی توسط ali.b

سلام
خدمت دوستان عزیز

ی برنامه ای با هدف امار و کنترل پرسنل با vb اکسل درست کردم الان برای افزودن اسامی پرسنل به کمبوباکس که شیفت کاری اونها مشخص شده مشکل دارم

طبق فایل نمونه زمانی که شیفت تعیین میشه میخوام وقتی ص (صبح) و بعد 17 (مثلا روز 17) و درجه دو رو انتخاب کردم اسامی مربوطه به اون داده ها به کمبو باکس اضافه شه

هرکدی زدم نشد یا فقط ی بخش رو درست انجام میده

ممنون میشم راهنماییی کنید

سلام،
فایل پیوست را بررسی بفرمایید.

کد:

Private Sub CommandButton1_Click()
ComboBox1.Clear
For s = 5 To 34
    If Cells(1, s).Text = TextBox2.Text Then
        d = 0
        For r = 2 To 5
            If Cells(r, s) = TextBox1.Text And Cells(r, 4).Text = TextBox3.Text Then
                ComboBox1.AddItem
                ComboBox1.List(d, 0) = Cells(r, 2).Text
                d = d + 1
            End If
        Next
    End If
Next
If d > 0 Then MsgBox "ok"
End Sub

فایل های پیوست شده