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

تفضل اخي الكريم يوجد في المرفق وحدة نمطية تتضمن كودين الكود الاول لحساب الحقول الفارغة ويتم استدعاؤه بهذا الشكل : MyNullCountFunction("A07_Data") الكود الثاني لحساب التكرار ويتم استدعاؤه بهذا الشكل : MyRepeatFunction("A07_Data", 1) A07_data يمثل اسم الجدول 1 تمثل رقم العمود الذي تريد حساب التكرار فيه بمعنى آخر انت لديك في الجدول السابق 7 اعمدة ( الاسم و الكود الخ ) الترقيم لهذه الاعمدة يبدا من الصفر اي ان عمود الاسم رقمه 0 وعمود الكود رقمه 1 وعمود التخصص رقمه 2 وهكذا نتائج التكرار تجدها في الجدول tbl1 قاعدة بيانات1.rar

اسم الفيديو فلترة النموذج الفرعى من النموذج الرئيسى الوصف فيديو يشرح طريقة فلترة النموذج الفرعى من النموذج الرئيسى فى أكسيس وطريقة إلغاء هذه الفلترة رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfZHQzRDk0NUJXTTQ/view?usp=sharing كود الفلترة Private Sub mym_Change() Me.subf.SetFocus Me.subf.Form.Filter = "[smonth]=" & Me.mym Me.subf.Form.FilterOn = True End Sub كود إلغاء الفلترة Private Sub أمر15_Click() Me.subf.Form.FilterOn = False End Sub رابط الفيديو https://www.youtube.com/watch?v=AOeQTh1r7xM&feature=youtu.be شكرا لك

المرفق به التطبيق Delete duplicate items.rar

السلام عليكم اسمحوا لي بالمشاركة واترخص بالأخص من الاستاذ محمد نجار لان الحل شبيه بحل الاستاذ الا انه عملي اكثر حسب ما اعتقد 1111.rar

السلام عليكم ورحمة الله وبركاته، أحببت في هذه الصفحة أن أعرض لكم الفرق بين وظيفة كل من The For Loop The Do Until Loop The Do While Loop وذلك عن طريق طرح بعض الأمثلة العملية في ذلك، وقد نستعين من بعض الخبراء لإثراء الموضوع لجعله أكثر حيوية.. تابعونا إن كان الموضوع مجدي.

السلام عليكم ورحمة الله وبركاتة هذا الموضوع يتناول عدم القدرة على الكتابة على ورقة العمل الا من خلال الفورم 1-يكتب الكود المتعلق بالترحيل بشكل عادي 2-في بداية كود الترحيل يكتب هذا السطر( ActiveSheet.Unprotect(123 3- الرقم 123 هو باسورد الحماية على ورقة العمل طبعا تستطيع كتابة اي باسورد تريدة 4- وفي نهاية كود الترحيل يكتب هذا الكود( ActiveSheet.Protect(123 book2.rar

طبعا و بدون ادنى شك

طبعا يا استاذ ابو نادر

تجربة بسيطة احفظ الصورة في جهازك ثم انقلها للسيرفر ( طبعا عن طريق الفانكشن و ليس يدويا )

ممكن المرفق يا استاذ ابو نادر

جزاك الله كل خير اخ محمد

اخي واستاذي العزيز ( طلعت محمد حسن ) صدقا والله لا يوجد لدي كلام يوفيك حقكك فأنت من اعظم واحسن الشخصيات واهنيك علي انجاز المطلوب الاول بإمتياز واكثر مما كنت اتوقع . وانا متوقع ان العمل هذا عندما يكمل سيصبح مرجع لكل من يعمل بشؤون الموظفين والرواتب . باراك الله فيك وحفظك وزادك تواضعا واحتراما وحبا وجعل كل دقيقة تعمل فيها هذا العمل بمثابة جبل من الحسنات.

نسخة من المصنف3.rar

السلام عليكم اخي محمد ممتاز شاهد المطلوب الاول من العمل واخبرني عن رايك اقبل تحياتي واحترامي شؤون الموظفين بند 1 محمد ممتاز.rar

السلام عليكم ورحمة الله اكتب هذا الكود فى موديول وخصص له زر Sub Statement_Acc() m = 6 For R = 2 To 30 If Cells(R, 1) >= Range("N2") And Cells(R, 1) <= Range("N2") And Cells(R, 2) = Range("N1") Then m = m + 1 Range("J" & m) = Cells(R, 1) Range("K" & m) = Cells(R, 3) Range("L" & m) = Cells(R, 4) Range("M" & m) = Cells(R, 5) Range("N" & m) = Cells(R, 6) End If Next End Sub

السلام عليكم هذا جميل وجميل جداُ أععني التكنيك الجديد أخيرا بدأنا نستخدم هكذا تقنيات بارك الله بك وبجهودك LIKE

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

الافاضل :- الاستاذ ابو عبد الباري الاستاذ ابو عبد الرحمن حلول رائعة باركالله فيكم الاستاذ ياسر خليل ما من مرفق الا ونجده حاضرا(يقدم حل او معلقا او مرشدا ) بارك الله فيك

السلام عليكم ...... ::: هل هذا ما طلبت اخي الكريم ... مع التقدير للاخ محمد ايمن .. 9999_up.rar

مثال.1.rar السلام عليكم ورحمة الله وبركاتة تحية طيبة مرفق الملف

تفضل اخي الكريم Test.rar

الكود المطلوب Private Sub Worksheet_Activate() 'اكتب الكود هنا End Sub

جرب هذا الماكرو يعمل فقط في العامود 5 والخلايا ابتداء من الخلية الرابعة (E$4 $ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 And Target.Row >= 4 _ And Target.Offset(0, -1) <> "" And Target.Count = 1 Then Application.EnableEvents = False Select Case Target.Offset(0, -1) Case "كيلو" Target.NumberFormat = "0.000" Case Else Target.NumberFormat = "general" End Select End If Application.EnableEvents = True End Sub )

جرب الملف التالي رابط الملف من هنا

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة شرح لهذه الدالة Find_Range مجمعه من _ أ / طارق محمود تم ارفاق الموضوعات من الفاضل _ أ / أبو تامر_عمر الحسينى دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم دالة ( VLOOKAnyCol ) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر دالة VLOOK2ALL لإستخراج كل حالات البحث دالة VLOOKON بلا حدود تبحث فى عدة جداول دالة تجزئة الاسماء و الارقام دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب ادوات ذكية استرجاع اعدادات الاكسل الاصلية التخلص من علامات خطأ المعادلات نسخ الاكواد من ملف الى ملف أداة تحويل صيغ المعادلات الى اكواد مصباح علاء الدين للبحث اقوى دالة بحث الحلول الذكية و شريط الادوات الذكية التحكم بأشرطة الادوات والقوائم المنبثقة تلوين السطور الفردية أو الزوجية إكسيل كاميرا برامج واكواد كيفية الحصول على سريال نمبر الهارد ديسك الباحث الشامل اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) إنشاء قوائم منسدلة مرتبطة متعددة المستويات تصدير مدى محدد الى الوورد حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية إستخراج النتائج بشرطين صيغة ظريفة سلسلة كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة منع حفظ الملف بأسم آخر زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 كشـف تـوزيـع فئـات النقـديـة كشـف صـرف النقـديـة بالفئـات المتـاحـة إستيراد وتصدير جدول إكسيل من وإلى الأكسيس صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة كود الدوائر الحمراء والاحرف الخاصة لدرجات الطلاب نموذج طباعة الشهادات المدرسية مع دوائر الارقام برنامج طباعة الشهادات للمرحلة الابتدائية_1 برنامج طباعة الشهادات للمرحلة الابتدائية_2 برنامج طباعة نماذج الشهادات للمرحلة الاعدادية قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة برنامج حفظ بيانات الشيكات والبحت عنها اكواد و اوامر ( VBA ) مفيدة القائمة المنسدلة المرتبطة بقوائم متعددة المدى او النطاق ( ثابت / ديناميكى ) الارقام العشوائية بدون تكرار البوم للصور والمعروضات, بدون حدود و لا تنسونا من صالح الدعاء

السلام عليكم ورحمة الله كود لترقيم 5 اعمدة متتالية من 1 الى 500 كل عمود مائة رقم Sub Serials() For R = 1 To 100 For S = 6 To 10 Cells(R, S) = R + ((S - 6) * 100) Next Next End Sub

بدأ ب بسم الله 1- الدالة For loop: الغرض من ذلك هو تكرار مجموعة معينة من البيانات لعدد معين من المرات لو طُلب منك أن تكتب الأرقام من 1 إلى 5 في العمود الأول في الإكسل لكتبت التالي: Cells(1, 1).Value = 1 Cells(2, 1).Value = 2 Cells(3, 1).Value = 3 Cells(4, 1).Value = 4 Cells(5, 1).Value = 5 لكن لو طُلب منك أن تكتب الأرقام من 1 إلى 100 فستحتاج إلى 100 سطر لكتابة الكود!! وهذا يعتبر أمر شاق للمبرمج وهنا أتت هذه الدالة لتختصر الوقت والجهد، وسيكون الكود كالتالي: Dim i As Integer For i = 1 To 100 Cells(i, 1).Value = i Next i جميل جداً.. طيب لو أردنا أن نطبق الكود ليطبع الأرقام على عمودين متجاورين فماذا نفعل؟!

تفضل اخي الكريم طلبك Serch_Yasser.rar