نجوم المشاركات

الاخ الفاضل ابو خليل شكرا لمجهوداتك معي ربمااقول اني تحايلت على اكسس كي انفذ ما اريد وذلك بفعل التالي: اولا قمت بتحويل ماكرو الحذف الى كود vba واضفت كود الحديث الذي ارسلت الي (ومشكور جدا على الكود نفعتني احسن الله اليك) بعد ذلك انشأت ماكرو وقلت له ايتيني بالدالة (دالة الحذف المتضمنة لكود التحديث) وهكذا تم الحذف والتحديث كما كنت ارغب نعم شكرا لك وجعل مساعدتك لي في الميزان اللهم امين المنتدى ناجح برجال امثالك يا استاذ ابو خليل نفع الله بك تحياتي

السلام عليكم ورحمة الله تفضل أخي الملف وفيه الحل مع بعض الشرح للتعديلات التي أُجريت... بن علية حاجي شيت كنترول.rar

تفضل الملف اما باقى الشروط غير مفهومة او موضحة بالنسبة لى يا اهل الخير .xlsx

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

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

تم عمل معادلة محل الميلاد من الرقم القومى وهى : =IFERROR(VLOOKUP(MID(F8,8,2)*1,المحافظات!$I$4:$J$31,2,0),"") أما بالنسبة لباقى الطلبات فغير واضحة فعلى اى اساس يتم التقدير والترقية

جرب هذا الماكرو Option Explicit Option Base 1 Sub rand_date() Dim my_date Dim t Dim arr arr = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") 1: my_date = Application.Min([d3], [d5]) - 400 _ + Int(Rnd() * 400) + 1 t = Weekday(my_date) If t > 5 Then GoTo 1 End If Range("f3") = my_date Range("g3") = arr(t) Erase arr End Sub الملف 103_سليم.xlsm

بسم الله شكرا للأستاذ علي محمد على جهوده ولكن إذا سمح الأستاذ صاحب الموضوع يفضل وضع عنوان يدل على المطلوب وليس إلى أهل الخبرة أو العباقرة أو ما إلى ذلك ضع نفسك مكان المتصفح للمنتدى هل تفهم مضمون الموضوع إذا كان بمثل هذا العنوان؟؟!! وأعتقد أنك تريد معرفة اسم المحافظة من خلال الرقم القومي بالمعادلات فأنصحك بمتابعة هذا الفيديو به الحل بالكود وبالمعادلات وفقكم الله لك ما يحب ويرضى

بالطبع دالة ممتاز وموضوع مهم ومطلوب كعادتك استاذى الكريم جعله الله فى ميزان حسناتك

تفضل اخي تم تعديل على الكود من البداية حتى يتعامل مع قيم الفارغة اختر تنسيق ملف من قائمة منسدلة ثم اضغط على الزر و تابع مكان حفظ الملف ولكن قبل كل شيء قم باضافة مكتبة: هذا قي اوفيس 2010 abx.accdb

أحسنت استاذ سليم عمل رائع جعله الله فى ميزان حسناتك

الملف يعمل تمام عليك فقط ادخال الرقم القومى المكون من 14 رقم كما تلاحظ فى الملف يا اهل الخير 000000.xlsx

الحل هنا salim_book.xlsx

الاستاذ سليم تم تعديل الكود ويعمل بشكل ممتاز جزاك الله كل خير

الف شكر لك

السلام عليكم أولا طباعات البطاقات لا تختلف كثيرا عن باقي الطباعات. - عند تصميم التقرير سوف نقوم بتصميمه حسب حجم الورقة إذا كان الحجم A4 سوف نصمم التقرير بأبعاد A4. و إذا كان التقرير بطاقة (100X50) سوف نجعل أبعاد التقرير على هذا القياس .

استبدل هذا السطر Cells(i, 1) = Cells(i, 1) & Chr(46) بهذا (مع كتابة الرقم الصحبج 191) Cells(i, 1) = Cells(i, 1) &" "& Chr(46)

استبدل الرقم 46 بالرقم 63 او الرقم 191

جميعا بإذن الله أستاذ خلف للوصول إلى قناتي على يوتيوب يمكن متابعة الرابط الموجود في توقيعي أو فتح الفيديو في يوتيوب ثم الضغط على صورتي أو البحث في يوتيوب عن ostazmas وفقنا الله جميعا لكل خير

بمكن ذلك Option Explicit Sub add_point() Dim i# i = 2 Do Until Cells(i, 1) = vbNullString If Right(Cells(i, 1), 1) <> Chr(46) Then Cells(i, 1) = Cells(i, 1) & Chr(46) End If i = i + 1 Loop End Sub

إن شاء الله تجد ما تبحث عنه هنا ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ونشر هذه المعلومة فلو بخل بها غيرك ما وصلت إليك

السلام عليكم ورحمة الله أستاذي الفاضل / أ / محمد صالح لك مني جــــــــزيل الشــــكر ،،، تم التوصل للإجــــابة بارك الله لك في صحتك وعلمك وجعل ذلك في ميزان حســناتك

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

السلام عليكم ورحمة الله وبركاتة تحياتى الى كل من اعطى معلومة فى هذا القسم من لا يشكر الله لا يشكر الناس فبضل الله اولا وفضلكم احببت الاكسيس واريد فضلا منكم كود خاص **** بعد انتهاء المدة التجربية يتم فتج نموذج تفعيل البرنامج وشكرا

كل عامود في اكسل 2010 مثلاً بتجوي على اكثر من 10 مليون صف فلماذا تثقيل حجم الملف بأن نحعل البرنامج يفتش في 10 مليون العامود (C:C)صف ليجد لك جاحة بسيطة وهو عنوان صف معين او خلية معينة بهذا الكم الهائل من الصفوف بمكن ان تحفض هذا العدد 10 الاف مرة(100 صف مثلا) تجعل المعادلة كالاتي: =INDEX($C$3:$C$100,MATCH(F3&G3,$A$3:$A$100&$B$3:$B$100,0)

تفضل اخي عملت لك خلية واحدة (القير) تستطيع ان تطبق الفكرة على باقي الحقول ملاحظة لا يوجد داعي لكل هذه الجداول تستطيع ان تختصرها تقرير.accdb

هذا في اكسس 2003 . . وهذا في اكسس 2007 ، واكسس 2010