أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


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





الفورم لايعمل الرجاء المساعده

السلام عليكم عندى مشكله فى الفورم عند اختيار اى عنصر من الكمبوكس لا يظهر فى الليست بوكس الرجاء المساعده فى حل المشكله ..



18-07-2020 05:48 مساء
alaa1122
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 30-03-2020
رقم العضوية : 18706
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 18-11-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

السلام عليكم
عندى مشكله فى الفورم 
عند اختيار اى عنصر من الكمبوكس لا يظهر فى الليست بوكس
الرجاء المساعده فى حل المشكله
 
 
 
  Book .xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(193.542) KB


15-10-2020 09:47 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif الفورم لايعمل الرجاء المساعده

ضع هذا الكود في UserForm5
 

Private Sub CommandButton1_Click()
Dim i As Long, lr As Long, ws As Worksheet
Set ws = Sheets("Sheet1")
lr = ws.Range("X" & Rows.Count).End(xlUp).row
s = 0
For i = 1 To lr
   If ws.Range("x" & i) = Cmb_Subscription.Value Then
      LsAdAm.AddItem
      LsAdAm.ColumnCount = 8
      LsAdAm.List(s, 1) = ws.Range("b" & i)
      LsAdAm.List(s, 2) = ws.Range("c" & i)
      LsAdAm.List(s, 3) = ws.Range("f" & i)
      LsAdAm.List(s, 4) = ws.Range("l" & i)
      LsAdAm.List(s, 5) = ws.Range("m" & i)
      LsAdAm.List(s, 6) = VBA.Format(ws.Range("g" & i), "dd.mm.yyyy")
      LsAdAm.List(s, 7) = VBA.Format(ws.Range("h" & i), "dd.mm.yyyy")
      LsAdAm.List(s, 8) = ws.Range("w" & i)
            
      s = s + 1
   End If
Next i
End Sub




الكلمات الدلالية
الفورم ، لايعمل ، الرجاء ، المساعده ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:58 صباحا