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

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


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





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

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



23-03-2020 07:44 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام عليكم 
احتاج  الى التعديل  في الكود  حيث ان صيغة التاريخ التي تظهر في الليست بوكس  ليس كورقة العمل  الرجاء الاطلاع على الملف 
 
 
 
  listbox‬.xls   تحميل xls مرات التحميل :(5)
الحجم :(47.616) KB


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


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


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



 
 
 


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

25-03-2020 01:16 مساء
مشاهدة مشاركة منفردة [5]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 12
قوة السمعة : 957
عدد الإجابات: 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]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 12
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل
 
 
  listbox_ (1).xls   تحميل xls مرات التحميل :(2)
الحجم :(55.808) KB





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


 










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

الساعة الآن 09:40 صباحا