• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




13-01-2018 07:57 مساء
مشاهدة مشاركة منفردة [2]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 52
الجنس : ذكر
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 492
الاعجاب : 83
 offline 
look/images/icons/i1.gif حل مشكلة ظهور التاريخ ارقام في قائمة منسدلة في اليوزفورم
السلام عليكم ورحمة الله
يمكنك ايتخدام الكود التالى
Private Sub UserForm_Initialize()
Dim Arr As Variant, i As Long
  ' يمكنك استبدال الفقرة التالية بنطاق التاريخ لديك
Arr = Range("C1:C10").Value
For i = LBound(Arr, 1) To UBound(Arr, 1)
Me.ComboBox1.AddItem Arr(i, 1)
Next
End Sub




الساعة الآن 12:32 صباحا