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

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

طباعة مدى محدد من الشرائح Private Sub CommandButton1_Click() ActivePresentation.PrintOut From:=1, To:=10 End Sub طباعة كافة الشرائح فى العرض التقديمى Private Sub CommandButton2_Click() ActivePresentation.PrintOut End Sub

أخي جواد تفضل المطلوب عند الضغط علي الزر في ورقة مسح سيتم مسح الخلايا من A2:B17 في الورقة اسماء العاملين وسيتم مسح الخلايا من A3:B18 في الورقة الحضور اليومي مسح نطاقين.rar

السلام عليكم جرب المرفق على السريع ارجو التجربه اذا به اي ملاحظات اطرحها ولن اتأخر ان شاء الله تم تعديل المرفق برنامج_مقهى_1.rar

السلام عليكم أرجو أن يكون هذا هو المطلوب أخي الكريم برنامج تسعيرة.rar

لو سمحتوا عندي برنامج بسيط عايز مساعدة فيه عندي البيان يكون بيأخذ سطور كثيرة مثل Format and insall windows Install system Install Anvtivirus Clean Old Data Install system Test Database لما بأختار البيان في الفاتورة بيعطي لي خطأ مش عارف إزاي أخلي الحقل في الفتورة يظهر فيه البيان كامل بدون خطأ وفي الفاتورة عايز أعمل السعر الإفرادي و الكمية و الإجمالي البرنامج في المرفقات و لكم مني جزيل الشكر مقدما Service.rar

بالاضافة الي فكرة أخي الحبيب أبونصار هذه فكرة اخري لاضافة عناصر سند الصرف khaledkhaleel-V3.rar

السلام عليكم بعد اذن اخي الحبيب ضاحي المرفق به ماتريد أولاً إملاء عمود "O" من بعد السطر الأول بالإختصارات المرغوب إستخدامها ومن ثم إفتح الفورم وعند تحديد مربع "وذلك عن " = TxDescription إضغط زر "F11" ويليه مباشرة "F12" لعمل كومبوكس وبه الإختصارات المدرجة سابقاً في عمود "O" + فتح القائمة ( "F12" أو كليك على الكموبكس ) لـ فتح القائمة ( كـاإختصار ) بعدها إنقر على البيان المراد من الليسته ينضاف ديركت في مربع "وذلك عن " أرجو ان يفي بالغرض khaledkhaleel_1.rar

تفضل أخى جرب هذا الكود فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, cl As Range, cll As Range LR = [A1000].End(xlUp).Row '========================================================== If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Or Target = "" Then Exit Sub For Each cl In Range("A2:A" & LR) If Application.WorksheetFunction.CountIf(Range(Cells(cl.Row, 1), Cells(LR, 1)), cl) > 1 Then For Each cll In Range("A2:A" & LR - 1) If Target = cll Then arr = arr & cll.Address & "," End If Next m = MsgBox("هذا الاسم مكرر فى الخلية" & Chr(10) & arr & Chr(10) & "هل تريد السماح بتكرار هذا الاسم", vbYesNo, "اسم مكرر") If m = vbYes Then Exit Sub Target = "": Target.Select: Exit Sub End If Next End Sub منع تكرار الاسم.rar

السلام عليكم أتمنى من الإخوة من يريد أن يشكر صاحب مشاركة أو شرح أو توضيح يضغط على زر أعجبني الموجود أسفل يسار المشاركة ولا يفرد مشاركة جديدة لكلمة شكرا == تم تنقيح الموضوع (حذف المشاركات التي لا تتعلق بالشروحات) الشكر لجميع الاخوة المشاركين والمتفاعلين ابواحمد

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

بسم الله الرحمن الرحيم الجزء العملي من الفصل الرابع (الكائنات objects ) ويبقى جزء بسيط قريباً إن شاء الله ولا ينقصني سوى دعاؤكم