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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل

السلام عليكم احتاج الى التعديل في الكود حيث ان صيغة التاريخ التي تظهر في الليست بوكس ليس كورقة العمل الرجاء الاطلا ..



23-03-2020 07:44 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
قوة السمعة : 193
الاعجاب : 11
 offline 
السلام عليكم 
احتاج  الى التعديل  في الكود  حيث ان صيغة التاريخ التي تظهر في الليست بوكس  ليس كورقة العمل  الرجاء الاطلاع على الملف 
 
 
 
  listbox‬.xls   تحميل xls مرات التحميل :(4)
الحجم :(47.616) KB





24-03-2020 12:00 صباحا
مشاهدة مشاركة منفردة [1]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 406
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
قوة السمعة : 646
الاعجاب : 7
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
وعليكم السلام-من فضلك اخى الكريم تأكد من فحص مشكلتك اولا قبل رفع المشاركة ... فلا أرى اى مشكلة تذكر بالملف كما بينت سابقاً كما ترى بالصورة والواضح فقط من الصورة عدم ترتيب بيانات البحث بالليست بوكس كما بورقة العمل وطبعا هذا امر غير ضرورى بالمرة طالما البيانات الظاهرة صحيحة جدا ومطابقة لبند البحث
بارك الله فيك
9hHqi_1
 
 


أثارت هذه المشاركة إعجاب: ali mohamed ali،



24-03-2020 06:10 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
قوة السمعة : 193
الاعجاب : 11
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
هذا  ما يظهر عندي  لذلك رفعت مشاركتي 
C:UsersalhagagDesktopll
 
  ll.jpg   تحميل jpg ll.jpg مرات التحميل :(0)
الحجم :(57.391) KB
 





24-03-2020 10:33 صباحا
مشاهدة مشاركة منفردة [3]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 423
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
iY3hC_cdateغير الكود كما  الجزء المحاط بلاحمر في الصورة 
غير هذا السطر في الكود كومبوبوكس
.List(.ListCount - 1, 2) = CDate(sh.Range("C" & f.Row)) 'Data from Col C



 
 
 


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali،



24-03-2020 12:10 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
قوة السمعة : 193
الاعجاب : 11
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
شكرا اخي حسين  لكن لم يتغير شيء




25-03-2020 01:16 مساء
مشاهدة مشاركة منفردة [5]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 423
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
جرب هذا التعديل 
Private Sub ComboBox1_Change()
  Dim f As Range, r As Range, cell As String
  
  ListBox1.Clear
  If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then Exit Sub
  
  Set r = sh.Range("G2:G" & sh.Range("G" & Rows.Count).End(xlUp).Row)
  Set f = r.Find(ComboBox1.Value, , xlValues, xlWhole)
  If Not f Is Nothing Then
    cell = f.Address
    Do
      With ListBox1
        .AddItem sh.Range("A" & f.Row).Value
        .List(.ListCount - 1, 1) = sh.Range("B" & f.Row).Value 'Data from Col B
'        .List(.ListCount - 1, 2) = CDate(sh.Range("C" & f.Row)) 'Data from Col C
        .List(.ListCount - 1, 2) = Format(sh.Range("C" & f.Row), "dd/mm/yyyy")
        .List(.ListCount - 1, 3) = sh.Range("D" & f.Row).Value   'Data from Col D
        .List(.ListCount - 1, 4) = sh.Range("E" & f.Row).Value 'Data from Col E
        .List(.ListCount - 1, 5) = sh.Range("F" & f.Row).Value 'Data from Col f
        .List(.ListCount - 1, 6) = sh.Range("G" & f.Row).Value 'Data from Col g
        .List(.ListCount - 1, 7) = sh.Range("H" & f.Row).Value 'Data from Col H
      End With
      Set f = r.FindNext(f)
    Loop While Not f Is Nothing And f.Address <> cell
  End If
End Sub
 
  test2.png   تحميل png test2.png مرات التحميل :(0)
الحجم :(239.731) KB
 


أثارت هذه المشاركة إعجاب: المبتدأ،



25-03-2020 01:19 مساء
مشاهدة مشاركة منفردة [6]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 423
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
 
 
  listbox_ (1).xls   تحميل xls مرات التحميل :(0)
الحجم :(55.808) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil،



25-03-2020 02:13 مساء
مشاهدة مشاركة منفردة [7]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
قوة السمعة : 193
الاعجاب : 11
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
شكرا  اخي حسين الان شغال 100%

أثارت هذه المشاركة إعجاب: YasserKhalil، حسين مامون،






الكلمات الدلالية
مساعدة ، اظهار ، صيغة ، التاريخ ، بالليست ، بوكس ،


 







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

الساعة الآن 10:15 صباحا

أعلن هنا
أعلن هنا
أعلن هنا