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

الفصل الأخير سأخصص هذا الفصل في القراءة التحليلية للكود، وخير من شرح هذا الموضوع صاحب هذا الموقع في دراسة تحليلية للغة php ، إلا أننا استفدنا منها في تحويلها إلى لغة vba. المثال الأول: ما هو الكود الذي يحقق النتيجة التالية: التحليل: الإجابة في هذا الكود: For i = 1 To 5 For j = 1 To i Cells(i, j) = j Next j Next i

Private Sub Form_Open(Cancel As Integer) cmd_a.Enabled = Not IsDate(DLookup("HolidayDate", "tbl_Holidays", "HolidayDate=date()")) End Sub

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

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

الف شكر لحضرتك فعلا البرنامج اشتغل وتمام جداااااااااااااا مشكور جدااااااا جزاك الله خير

اعتقد المشكله من نسخة الويندوز نفسها اخى الحبيب او من فقر امكانيات الجهاز من مساحة الهارد ديسك والرامات وكذلك نوع معالج البيانات انا فى الشغل اعمل على اكثر من جهاز بأكثر من نظام تشغيل win xp , win 7 , win 8 , win 10 ولم اعانى من اى مشكله مما ذكرتها حضرتك الى الاجهزة القديمة التى تفتقر الى الامكانيات مادية

عسى ان ينال الاعجاب Allah_Akbar.rar

شكرا استاذ ياسر هذا الكود هو ما اريده بالضبط الف شكر

السلام عليكم ورحمة الله تفضل اخى الكريم قطع غيار بعد الخصم.rar

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

استاذى العزيز اشكر حضرتك جدا جدا الملف مفيد وسهل عليا كتييييييييييرجدا وشكرا لحضرتك

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

واختصاراً للوقت هذا مرفق لأمثلة أخرى : loops example.rar وترقبوا سؤالنا التالي.

ههههههه فعلا كلام حضرتك صح اوقات الواحد وهو شغال راسه بتوقف عند فكرة واحدة بس جزاكم الله خيرا على تنبيهى لذلك وكده تمام التمام اسال الله تعالى ان يزيدكم علما وينفعكم بما علمكم غفر الله لكم ولوالديكم وبصراحة انا فىى بادئ الامر لم اكن اريد ادراج قائمة الققيم فى النموذج وفكرت فى دالة DLookup ولكن وقفت امامى مشكلة كيف اربط التاريخ الحالى بتاريخ الاجازة وسبحان الله تعالى حضرتك من تلقاء نفسك تذع الحل وفيت وكفيت استاذى الحبيب غفر الله لك ولوالديك ولمن تحب ان شاء الله اسال الله تعالى ان يبارك لك فى علمك وعملك وان يزيدكم من فضله وان يجعل كل اعمالكم خالصة لوجهه تعالى الاستاذ صالح حمادى اخى الحبيب اعجبنى جدا جدا جدا استخدام For i شكرا اخى الحبيب على حضوركم الرائع ومشاركتكم الرائعة اسال الله تعالى ان يغفر لكم والديكم ولمن تحبون واسال الله تعالى ان يزيدكم علما ويرزقكم البركة وينفعكم بما علمكم ويجعل كل اعمالكم خالصة لوجهه الكريم جزاكـــــــــــــــــــم الله خيــــــــــــــــــــــــــرا

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

السلام عليكم و رحمة الله تعالى و بركاته بعد إذنك أستاذنا الكريم رمهان لقد أضفت حقل التاريخ للنموذج frm_prinr2 و قمت بوضع هذا الكود في حدث عند التحميل للنموذج و الحمد لله تم تنفيذ البرنامج بنجاح: Dim i As Integer For i = 1 To DCount("*", "tbl_Holidays") If Me.d1 = Me.day_date Then Me.cmd_a.Enabled = False Me.cmd_b.Enabled = True End If DoCmd.GoToRecord , , acNext Next i TEST.rar

وجرب Private Sub Form_Open(Cancel As Integer) cmd_a.Enabled = HolidayDate_list.ListCount = 0 End Sub

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

تم معالحة الامر تقسيم تلقائى for print salim.rar

أخي الكريم أحمد تفضل الملف التالي فيه إنشاء 50 ورقة عمل .. وكيفية إعادة تسمية أوراق العمل كما طلبت يمكنك التعديل بسهولة في الكود ليناسب طلبك حمل الملف من هنا

الهدف الاول تحديد اول خلية في الجدول و ذلك يتم بواسطة هذا الكود Sub first_cell() For i = 1 To ActiveSheet.Columns.Count On Error Resume Next Set My_rg = Columns(i).SpecialCells(xlCellTypeConstants).Cells(1) If Not IsEmpty(My_rg) Then Err.Clear Exit For End If Next r = My_rg.Row: c = My_rg.Column '====================================== ' من هنا يمكن متابعة الكود 'بعد ان عرفنا اول خلية في الجدول '======================================= End Sub

جميل لكن الأخ الزباري يريد استعمال الدالة loop و إلا فالطرق كثيرة للحصول على النتيجة

جميل ما الذي يحدث لو كانت إحدي الخلايا فارغة في العمود A جرب مسح الخلية A4 مثلا

الإجابة في هذا الكود: Range("a1").Select ActiveCell.Offset(1, 0).Select Do Until ActiveCell.Value = "" If ActiveCell.Offset(0, 1).Value = "student" Then Range(ActiveCell, ActiveCell.End(xlToRight)).Interior.ColorIndex = 20 End If ActiveCell.Offset(1, 0).Select Loop المرفق: loop_shaddow.rar

السلام عليكم بالنسبة لسؤال أخي سلم Sub tlween1() Range("a1").CurrentRegion.Interior.ColorIndex = xlNone Cells(1, 1).Activate Do While ActiveCell <> "" If Trim(LCase(ActiveCell.Offset(0, 1).Value)) = Trim(LCase("student")) Then _ ActiveCell.Resize(1, 3).Interior.ColorIndex = 4 End If ActiveCell.Offset(1, 0).Activate Loop End Sub و هناك كود آخر يعمل نفس العمل Sub Text2() Dim c As Range For Each c In ActiveSheet.UsedRange If Trim(LCase(c.Value)) = Trim(LCase("student")) Then Range(Cells(c.Row, 1), Cells(c.Row, 3)).Interior.ColorIndex = 4 Next End Sub

وعليكم السلام أخي الكريم جرب الكود التالي لاختبار شرط التاريخ مطابق لتاريخ اليوم Sub Test() If DateSerial(Year(Date), 10, 27) = Date Then MsgBox "OK. Do It", 64 Else MsgBox "Not Required Date", vbExclamation End If End Sub قم بتغيير الأرقام 10 إلى 12 (شهر ديسمبر) ، وغير اليوم 27 إلى 30 أو 31 آخر يوم في ديسمبر .. هذا مجرد نموذج يمكنك التعديل عليه ليناسب احتياحاتك .. المهم في الكود أن تتعلم كيف تضع شرط لتطابق تاريخ مع تاريخ اليوم

اخى الفاضل الزبارى شرح جميل ووافى بارك الله فيك

تحياتى لك و اعمالك الرائعه و المحترمه و جارى تجديد المدونه

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

السلام عليكم في مملكة البحرين يتكون الرقم الشخصي من 9 ارقام وفي الغالب يعتمد على اخر رقمين لتحديد العمر ومن هذا المنطلق قمت بعمل هذه الدالة المعرفة لحساب العمر وتندرج طريقة الحساب الى الاتي 1. اذا كان اخر رقمين اقل من 12 (اخر رقمين في السنة الحالية) يتم حساب سنة الميلاد بذلك الرقمين على اساس انها بعد 2000 مثال 011234567 يعتبر هذا من مواليد 2001 051234567 يعتبر هذا من مواليد 2005 2. اذا كان اخر رقمين اكبرمن 12 (اخر رقمين في السنة الحالية) يتم حساب سنة الميلاد بذلك الرقمين على اساس انها بعد قبل 2000 مثال 841234567 يعتبر من موليد 1984 331234567 يعتبر من موليد 1933 991234567 يعتبر من موليد 1999 وهكذا تتكون الدالة من متغير واحد هو خانة الرقم الشخصي Function Age(T As Variant) As String If T = "" Or Len(T) <> 9 Then Exit Function Select Case Mid(T, 1, 2) Case Is > Mid(Year(Now()), 3, 2): Abdulla = Int((Date - DateSerial("19" & Mid(T, 1, 2), Month(Now()), Day(Now()))) / 365) Age = Abdulla Case Is <= Mid(Year(Now()), 3, 2): Abdulla1 = Int((Date - DateSerial("20" & Mid(T, 1, 2), Month(Now()), Day(Now()))) / 365) Age = Abdulla1 Case Else: Age = "" End Select End Function شكل الدالة سيكون هكذا =Age(A1) بفرض ان A1 هي خلية الرقم الشخصي ارجو ان تكون الدالة فيها الفائدة لمن يستخدمها