قائمة منسدلة أو Combo Box للاختيار المتعدد

[Mostafa Moawad]

السلام عليكم 

كل سنة وانتوا طيبين

المطلوب عمل قائمة منسدلة أو Combo Box للشهور أو اي اداه اخرى بحيث يمكن اختيار شهر أو عدة أشهر وبالتالي تظهر الشهور في الجدول بالأسفل في عمود الشهر بالترتيب وبدون صفوف فارغه

Combo Box.xlsx

[سليم حاصبيا]

لا أعلم اذا كان هذا المطلوب

 

MY_Months.xlsx

[Mostafa Moawad]

مشكور جدا على ردك ومجهودك لكن في توضيح لطلبي وهو اني عايز اداه زي القائمة المنسدلة مثلا ممكن اختار منها شهر او احدد على اكتر من شهر فمثلا لو اخترت منها شهر يناير يظهر في الجدول تحت شهر يناير فقط ولو اخترت يناير ومارس يظهر تحت في الجدول يناير ومارس فقط بالترتيب بدون سطور فارغه بينهم

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub Get_Month()
Dim rg As Range
Dim x%, i%
Set rg = Sheets("Monthly").Range("A7:A18")
If Application.CountA(rg) = 12 Then
rg.Value = ""
End If

For i = 0 To ListBox1.ListCount - 1
    x = Application.CountA(rg) + 1
     If x = 13 Then rg.Value = ""
        If ListBox1.Selected(i) Then
          rg.Cells(x) = ListBox1.List(i)
          x = x + 1
              If x = 13 Then Exit Sub
        End If
 Next
End
End Sub
'++++++++++++++++++++++++++++++++++++++++++
Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ' 13 Enter key
 Get_Month
End If
End Sub

الملف مرفق

MY_Months.xlsm