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

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

من الجيد الاحتراز بفحص المدخلات والمتغيرات ولكن نحتاج أن نوظفها التوظيف الصحيح وأن نختصرها أحيانا لتقليل كتابتها في الإجراءات والدوال. فمثلا يمكن اختصار فحص الحقول/الصناديق التي قد تحتوي على قيمة Null كالتالي: من: IsNull([txtBox]) Or [txtBox] = "" Or Len([txtBox]) = 0 إلى: Trim(Nz([txtBox],"")) = "" أما استخدام Empty و Missing فتحتاج إلى عناية أكبر في معرفتها ومتى استخدامها، وهنا إجراء لفحص هذين النوعين كالتالي: Sub EmptyAndMissing(A As Byte, Optional D As String, Optional E As Variant) Dim B, C 'B not used C = 5 Debug.Print "IsEmpty", IsEmpty(B), IsEmpty(C), IsEmpty(D), IsEmpty(E) Debug.Print "IsMissing", IsMissing(B), IsMissing(C), IsMissing(D), IsMissing(E) Debug.Print "-------------------------------------------------------------" End Sub وهذا اجراء لمناداة الإجراء أعلاه: Sub EmptyAndMissingTest() Debug.Print , "B", "C", "D(Op)", "E(Op)" Debug.Print "-------------------------------------------------------------" Debug.Print "EmptyAndMissing(5):" Call EmptyAndMissing(5) Debug.Print "EmptyAndMissing(5, '5'):" Call EmptyAndMissing(5, "5") Debug.Print "EmptyAndMissing(5, , 5):" Call EmptyAndMissing(5, , 5) End Sub وهذه نتائج الاختبار: B C D(Op) E(Op) ------------------------------------------------------------- EmptyAndMissing(5): IsEmpty True False False False IsMissing False False False True ------------------------------------------------------------- EmptyAndMissing(5, '5'): IsEmpty True False False False IsMissing False False False True ------------------------------------------------------------- EmptyAndMissing(5, , 5): IsEmpty True False False False IsMissing False False False False ------------------------------------------------------------- موفقين.

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

ومبروك عليكم الفوز 🙂

إذا كنت تريد عدم الطباعة يمكن كتابة احد الصيغ التالية وبجوار End sub نكتب 30 On Error Resume Next ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True أو If Range("a1") = 0 Then GoTo 30 ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If واذا كنت تريد طباعة نسخة على الاقل يمكنك كتابة التالي If Range("a1") = 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=True Else ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If

جزاكم الله خير هذا هو المطلوب

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

وعليكم السلام أخي الكريم تفضل: في الخلية B1 قم بكتابة المعادلة التالية =IF(OR(A1="راسب";A1="غائب");0;IF(A1="ناجح";10;"")) بالتوفيق إن شاء الله

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

مرحبتين راعي بلادي 🙂 1 - هذي ما تستوي في الجدول لذلك سويتلك استعلام اسمه Byanat_AlAdaa_Q .. والسبب عدم وجود دالة DateAdd اللي تضيف عدد المدة بالأشهر في الحقل المحسوب بالجدول . 2 - تم الربط وإضافة حقل ID لجدول البيانات الشهرية من باب التنظيم. 3- تم عمله بجعل الفورمات يساوي -0 . 4- النموذج مبني بطريقة غير صحيحة .. المفروض جدول البيانات الشهرية يكون نموذج فرعي لنموذج بيانات الأعضاء .. والبحث يكون في بيانات الأعضاء .. سويته لك بذي الطريقة : ملاحظة أخيرة صاحبي : حاول تسمية جميع الكائنات ( الجداول- الاستعلامات - النماذج _ ووووووو) بالانجليزي دائما .. 🙂 بيانات الأعضاء.accdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Private Sub Worksheet_Activate() Set ws = Sheet1 StartRow = 7 'اول صف EndRow = 34 ' اخر صف ColNum = 2 'رقم عمود الشرط Application.ScreenUpdating = False 'بما انني لاحظت انك واضع حماية للشيت قمنا باضافة فك الحماية لتنفيد الكود ثم ارجاعها Sheet2.Unprotect ' في حالة قمت بالغاءها قم بالغاء تفعيل هدا السطر For i = StartRow To EndRow If ws.Cells(i, ColNum).Value = "" Then Cells(i, ColNum).EntireRow.Hidden = True Else Cells(i, ColNum).EntireRow.Hidden = False End If Next i Sheet2.Protect ' وهنا Application.ScreenUpdating = True End Sub بكج الافراد.xlsm

جرب بعد تعديل a1 بالخليه الى محتاج تحط فيها الرقم النسخ بتاعك ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True

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

تفضل اخي Sheet_name.xlsb

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