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

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

أستاذنا الحبيب "صقر المنتدى " الذي لا يزال يجود بوقته كما هم بقية الأخوة ليعلمنا طرق العمل بالنماذج "الفورم": السلام عليكم ورحمة الله وبركاته هدية متواضعة أقدمها بين يديكم تعبيراً عن مدى سعادتنا بكم وبدروسكم عبارة عن ملف Word و PDF لآخر عمل قدمته منذ لحظات راجياً أن تنال إعجابكم والسلام عليكم هدية للصقر2.rar هدية للصقر1.rar

السلام عليكم الاخ الحبيب سعد عابد اسعد الله مساك شاهد المرفق هل هكذا تقصد جديد_111.rar

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

السلام عليكم الاخ الفاضل صالح احمد ابو يوسف افتح موضوع جديد لطلبك ولن يقصر معك الجميع كلن حسب وقته اخي ياسر خليل شاهد المرفق تقويم خاص لاادري لمن هو من ضمن الارشيف عدلنا عليه ان شاء الله يعمل معك عمل معي مع 64 بت اوفيس 2013 البحث بين تاريخين_A3.rar

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

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

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

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

بارك الله فيك اخي الغالي لا بأس ان يكون لنا جانب من مجهودنا بس ياريت حط نسخة ديمو كدا ولا تجريبية ولا خايف نقلبها منك

بالامكان على مااضن بهذي الطريقه Private Const Dat_On As String = "2015/12/28" '' التاريخ الاولي الذي يبداء العد من بعده Private Function Pass_My() As String Dim Vl1 As Date Dim Vl2 As Date Dim Vl3 As Date Dim Ch_Date As Date Dim Dt_on As Date '********************************* Dt_on = Dat_On Vl1 = VBA.DateAdd("d", 3, Dt_on) Vl2 = VBA.DateAdd("d", 6, Dt_on) Vl3 = VBA.DateAdd("d", 9, Dt_on) Ch_Date = DateSerial(Year(Date), Month(Date), Day(Date)) If Ch_Date = Vl1 Then Pass_My = "الحمد لله" ElseIf Ch_Date = Vl2 Then Pass_My = "الله اكبر" ElseIf Ch_Date = Vl3 Then Pass_My = "سبحان الله" End If '********************************* End Function وتستدعي الدالة من السطر التالي If TextBox1.Text = "123" Then ليكون بالشكل التالي If TextBox1.Text = Pass_My Then ارجو ان يفي بالغرض تحياتي

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

عزززززززززز فلوووووووووووووس

أخي وحبيبي في الله حسام عيسى الإكسيلجي المتميز بارك الله فيك وجزيت خيراً على مشاركتك المميزة .. مركز تدريب ودورات وبرنامج محاسبي على أعلى قدر وشغل ومش لاقي وقت (بقر بس) ربنا يزيدك من فضله وبعدين اللي معندكش وقت ليه باصيه لأخوك ..اللعبة خد وهات (ربنا يصلح أمورنا جميعاً) وبالنسبة للـ 10% لا تقلق ممكن خليهم 30% بس اعملي دعاية وليك على كل راس 30% ..نسبة عمولتك تقبل وافر تقديري واحترامي

جزاكم الله خير وانفع الله بكم الناس اخي محمد حسن انت واخي صقر

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

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

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

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

السلام عليكم ورحمة الله وبركاته تحية عطره الى جميع اعضاء اوفيسنا هذا هو اول نشر لهذا الموضوع فى اوفيسنا اتمنى ان ينال اعجابكم الرابط http://excelfinancial1.blogspot.com.eg/p/blog-page_53.html

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

سادساً :- التعامل مع العناصر الموجوده داخل الــ Frame بطرق احترافيه فى البدايه يبدو ان العنوان غريب وغير مفهوم خليك معايا خطوه خطوه هتفم يعنى ايه الكلام ده شاهد الصوره التاليه دا فورم فى مرحلة التصميم وزى ما انتم شايفين يوجد زر اخضر اسمه Test وهو عباره عن Label ويوجد ايضا عدد 2 تكست بوكس وعدد 2 كمبو بوكس المطلوب انا عايز اعمل كود عند الضغط على الزر الاخضر اثناء عمل الفورم يقوم الكود بعمل اختبار للعناصراللى من النوع تكست بوكس هل هى فارغه ام بها بيانات اذا كانت فارغه يعطينى رساله باسم التكست وكمان يجعل لون التكست احمر ازاى ننفذ الكلام ده اولا هو عايز الكود يتم تنفيذه عند الضغط على الزر الاخضر حلو اوى طيب الزر الاخضر ده عباره عن ايه ؟ شوف الصوره هتلاقى ان الخاصيه Name هى Label1 اذن الكود هيكون كالتالى Private Sub Label1_Click() 'مكان وضع الكود المراد تنفيذه End Sub ما هو الكود المراد تنفيذه ؟ هو اختبار العناصر هل هى من النوع تكست بوكس أم لا واذا كانت من النوع تكست بوكس هل هى بها بيانات ام لا واذا تبين ان العنصر من نوع التكست بوكس ولا يوجد به بيانات اظهرلى رساله باسم العنصر وكمان اجعل العنصر لونه احمر أول شئ علشان اختبر كل العناصر اللى على الفورم واشوف نوعها اذن لازم اعرف متغير من نوع Control لان انا هتعامل مع العناصر Dim a As Control هنا سميت المتغير اسم a ( وطبعا يمكن تسمية اى اسم كيفا شئت ) وقلت اى المتغير a ده عباره عن عنصر تحكم ( قد يكون لليبل او تكست بوكس او كمبوبوكس او ليست بوكس او فريم او تشيك بوكس وغيرها من العناصر ) فعلشان الف على كل العناصر اللى موجوده على الفورم يبقى لازم الحلقه التكراريه For Each Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls ' مكان اختبار العنصر اذا كان من النوع تكست بوكس وايضا هل هو فارغ من البيانات Next a End Sub عملت حلقه For Each للمتغير a وقلت ان a ده هو عباره عن عنصر تحكم موجود على الفورم Me.Controls Me هنا عايده على عناصر الفورم ازاى بقى اعمل اختبار للعناصر هل هى من النوع تكست بوكس و هل هى بها بيانات ام لا اذن هستخدم if Then If TypeOf a Is msForms.TextBox And a = "" Then End If if تعنى لو الاختبار الاول هل العنصر من نوع التكست بوكس TypeOf a Is msForms.TextBox TypeOf تعنى نوع الــ a هو عنصر التحكم اللى بيتغير كل مره مع الحلقه For Each is يكون msForms.TextBox تكست بوكس الاختبار الثانى a = "" and تعنى ( و ) لعمل شرط ثانى a = "" عنصر التحكم فارغ Then تعنى نفذ التالى ( وطبعا قفلنا if بــ End if ) طيب لما الكود يختبر نوع العنصر ويلاقيه تكست بوكس وكمان يلاقيه فارغ ماذا ينفذ يجعل التكست بوكس لون الخلفيه احمر ويظهر لى رساله باسم العنصر If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If شاهد الكود بشكله النهائى Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If Next a End Sub هعملك مشهد تمثيلى لعمل الكود جوا دراما يعنى جايز الاقى فيكم مخرج يكتشفنى عند عمل الكود فى اول سطر هيخزن فى ذاكرته ان المتغير a هو عنصر تحكم ثم ياتى للسطر الثانى وهو For Each a In Me.Controls الحلقه هتجعل ان a هى Label1 هيروح للسطر اللى بعده يعمل اختبار بالــ if فهيلاقى ان a اللى هى دلوقتى ( Label1) مش من النوع تكست بوكس اذن متحققش الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى TextBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع TextBox1 هيلاقيه بالفعل من النوع TextBox تحقق اول شرط طيب هيشوف الشرط التانى هل التكست فارغ ام به بيانات اذا كان فارغ هيجعل لون خلفيته حمراء ويعطنى رساله باسمه ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى ComboBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع ComboBox1 هيلاقيه مش من النوع ComboBox فلم يتحقق الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية وهكذا الى ان تنتهى الحلقه بعد ما تجعل a بكل العناصر اللى على الفورم وينتهى الكود شاهد هذه الصوره عند عمل الفورم والضغط على الزر الاخضر دى كانت مقدمه للمثال التالى وهو الاهم واللى اكيد هيقابلك لو انت هتصمم برامج اكيد هيقابلك المثال التالى مثال 2 :- شاهد الصوره التالية طبعا علشان اعمل كود فى حدث الليبل " الحفظ " هيكون الاعلان عن الكود كالتالى Private Sub Label1_Click() 'اولا اختبار صحة الادخالات 'ثانيا ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub انا موضوعى اليوم هو اولا اختبار صحة البيانات المدخله أما الجزء الخاص بترحيل البيانات الى الشيت مش موضوعى اليوم سنتناوله لاحقا باذن الله اولا اختبار صحة البيانات المدخله لو رجعت للصوره السابقه هتلاقى ان المطلوب اختبار كل عناصر التكست بوكس هل تم ملئ الدرجات بها ام لا وزى ما عرفنا قبل كدا ممكن تكون كالتالى Private Sub Label1_Click() If TextBox1 = "" Then TextBox1 .BackColor = 10200 End If If TextBox2 = "" Then TextBox2 .BackColor = 10200 End If End Sub يعنى هختبر كل عنصر بالشكل ده طبعا مستحيل طيب هتعمل ايه لو كان عندك مثلا 100 تكست بوكس او اكتر ؟؟؟؟؟؟ طبعا لو عملت كدا محتاج 100 صفحه علشان تكتب الكود مش منطق طبعا اذن لازم من حل احترافى شاهد الكود بشكل احترافى فى بضعه اسطر وبعدين نشرحه Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub الكود فى المثال السابق كانت حلقة For Each عباره عن For Each a In Me.Controls ( هنا كان المتغير a يمثل كل العناصر على الفورم لذالك استخدمت Me.Controls وقلت ان Me عائده على الفورم النشط لكن فى الكود الحالى انا عايز اتعامل مع العناصر اللى داخل الــ Frame1 فقط فتم كتابة الحلقه كالتالى عباره عن For Each a In Frame1.Controls فهنا a هتكون كل عنصر من العناصر اللى داخل الفريم فقط واحد صاحى معايا هيلاحظ ان لما استخدمت If لاختبار ان العنصر من النوع تكست بوكس تم استخدام شرط التحقق من نوع العنصر انه تكست بوكس وشرط ان العنصر فارغ فى سطر واحد من خلال And شاهد الكود If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If ولكن عند استخدام if لاختبار ان العنصر من النوع كمبوبوكس وان الاختيار تم من القائمه تم استخدام if لاختبار شرط التحقق من نوع العنصر اذا كان كمبوبوكس يتم تنفيذ if اخرى وكتابة الشرط الثانى ان الاختيار تم من القائمه شاهد الكود If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If فى حد عنده تفسير لذالك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ليه مكتبناش اختبار ان نوع العنصر كمبوبوكس وان الاختيار تم من القائمة فى سطر واحد من خلال And مثل التكست بوكس يعنى يكون كدا If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If هقولك انا ما هو السبب الحلقه For Each لما تشتغل هيكون اول مره a كل مره تمثل عنصر من عناصر التحكم داخل الفريم فهيكون أما ليبل أو تكست بوكس أو كمبوبوكس كما هو بمثالنا فى الصوره السابقه موضوع الشرح لما تشتغل If الاولى If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label " " = a " " =Label1 فلا يوجد مشكله لان Label ممكن = فارغ -------------------------------------- فعندما يكون a عباره عن TextBox " " = a " " =TextBox1 فلا يوجد مشكله لان TextBoxممكن = فارغ -------------------------------------- فعندما يكون a عباره عن ComboBox " " = a " " =ComboBox1 فلا يوجد مشكله لان ComboBox ممكن = فارغ -------------------------------------- لما تشتغل If الثانيه If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label a.MatchFound = False Label.MatchFound = False فهنا يوجد مشكله لان Label ليس من خواصه MatchFound وكذالك TextBox لان MatchFound هى من خواص ComboBox فقط وهى لعمل اختبار هل الاختيار تم من القائمه ام لا لذالك مينفعش نعمل الكود بالشكل ده هيحدث Error ولتجنب Error لازم يكون الكود بالشكل التالى If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If يعنى اختبر العنصر هل هو ComboBox أولا أم لا اذا كان من النوع ComboBox اعمل اختبار عليه وهو هل تم الاختيار من القائمه أم لا واذا كان العنصر من النوع Label أو TextBox متعملش اختبار MatchFound ارجوا ان يكون الشرح واضح هو بس محتاج تركيز شويه شاهد الكود مره تانية بشكله النهائى كالتالى Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ طبعا انت ممكن تغير فى الكود بدل ما ينفذ بجعل الخلفيه لونها احمر a.BackColor = 10200 ممكن تغير اى شئ تريد تنفيذه يعنى مثلا يعطى للمستخدم رساله باسم العنصر اللى فيه خطأ زى كدا Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then MsgBox a.Name & " برجاء تعبئة بيانات" End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then MsgBox a.Name & " برجاء تعبئة بيانات" End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ ------------------------------------------------------------------------------------------------------------------------------------ الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

السلام عليكم ورحمة الله أولا وقبل كل شي الشكر موصول للإخوان الافاضل / عبدالعزيز البسكري وياسر العربي لسرعة التجاوب والرد لتقديم الخدمة لكن طلب السائل غير واضح100%. اخي أبو عبدالرحمن حسب مافهمت من طلبك انك تريد حقول : الراتب الاساسي مخصصات الشهادة الضريبة مخصصات هندسية وإدارية صافي الراتب هذه لها شقين : أ - ان تكون غير قابلة للكتابة فيها وهي للعرض فقط : ضع المؤشر علي الحقل (مربع النص TextBox ) ثم من نافذة الخصائص انتقل إلي (قفل Locked ) وامامه غيًر الخاصية إلي ( True) وبهذا لن تستطيع عمل أي شي بالحقل حتى لو إنتقل إلية المؤشر يعتبر مجًمد .......إنتهــــــى. ب - ان يتم تجاوز هذا الحقل عند الانتقال من حقل إلي آخر بالضغط علي مفتاح الانتر Enter : ضع المؤشر علي الحقل (مربع النص TextBox ) ثم فذة الخصائص انتقل إلي (إيقاف التبويب TabStop) وامامه غيًر الخاصية إلي ( False ) وبهذا سيتجاوزها الانتقال عند الضغط علي مفتاح الانتر Enter . مرفق صورة توضيحية

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

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

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

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

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

السّلام عليكم و رحمة الله و بركاته يسعدني أن أكون أوّل المهنّئين بهذا العمل القيّم و المجهود الجبّار و الكنز الثّمين .. أستاذنا القدير " ياسر خليل أبو البراء " بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه وفضله دومًا نراك سبّاق للخيرات .. أطال الله بعمرك و أمدّك بتمام الصحّة و العافية فائق إحتراماتي و إعجاباتي

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

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

ابونصار اكوادك رائعه وفقكم الله

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

إخوتي الأفاضل المرفق برمجية ملحقة بنظام متكامل للشركة وهي شركة للتخليص الجمركي و النقل و الشحن الدولي. وهو عبارة عن معالج بحث ( أداة محددة الغاية ) للتنقل بين بنود التعريفة الجمركية وإجراء عملية البحث بوصف المادة أو بند التعريفة المنسق مع خيار لإظهار تأثير الاتفاقات الدولية أو الثنائية المعقودة مع المملكة على بند التعريفة . الجدول المرفق ( طبعا ) جدول تجريبي مختصر. في المرفق نموذج تقديمي ونموذج رئيسي للبحث والتنقل ونموذج ملحق لعرض اقتران الاتفاقيات بالبند ونموذج فرعي لإظهار بنود التعريفة بالتتابع . النموذج التقديمي : تطبيق لاستخدام صورة في النموذج و توقيت الإغلاق و Progress Bar النموذج الرئيسي : تطبيق البحث بجزء من كلمة لحقلين باستخدام مربع نص واحد وأزرار أمر لتحديد حقل البحث ، وزر أمر لإظهار جميع القيود. في النموذج الرئيسي تطبيق لإظهار تلميحات وتوضيحات عن أزرار أمر وحقول وذلك عند تحريك الماوس في النموذج الرئيسي تطبيق للفرز التصاعدي و التنازلي لمحتويات الحقل. في النموذج الرئيسي نموذج فرعي لإظهار البيانات محتويات حقل مختار ( الوصف ) بالتتابع حسب فاصل زمني لعداد الوقت . آملا أن يكون فيه بعض فائدة والله من وراء القصد TarifDemo.rar

السلام عليكم ورحمة الله اخى العزيز اليك الحل ادارة المحل.rar

أخي وحبيبي ياسر فتحي مرورك بالموضوع نور الموضوع وشرفني بارك الله فيك وجزاك الله كل خير تقبل تحياتي

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

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

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

اخي ياسر خليل حفظك الله ههههه اضحك الله سنك بالعكس 32 بت اصبح من كوكب اخر الا اننا نشتاق لعيش الريف عن حياة المدن ملاحظتك ان شاء الله نعمل عليها تقبل تحياتي وشكري

تمام ! قيد النظر والتنفيذ! تحياتي

حبيبى يا ابوالبراء هههههههههههههههههه حلو اكسلجى دى ههههههههههههههههههه ممكن حد يفتكرها اسرنجاتى هههههههههههههههههههههههه يا عم والله ما عندى وقت هنا فى الغربه برجع البيت الساعه 7 مطحون من الشغل ومهنتى بتعامل مع ارقام يعنى برجع مدروخ برنامج ايه والله ما بعت كله هدايا والله والله كنت هبصيها ليك وسالتهم على فيزا قالو والله مفيش هما عايزين حد من هنا لان مفيش فيز والله نفسى اسوقلك واخد 30 % ههههههههههههههه بس لما انزل مصر لان هنا مش هينفع انا لو مكانك اعمل مركز تدريب ودورات باسكندريه أيه رائيك فى الفكره يالا وانا هدعمك

أخي الكريم عبد الرحمن يفضل طرح موضوع جديد تقبل تحياتي

سلمت يمينك أخى الحبيب / سليم رائــــــــــــــــــــــــــــع جزاك الله خيرا

جزاكم الله خيرا وجزيل الثواب اخ محمد عصام ويمكن اضافة العدد 1 على التاريخ او انقاصه فهو بمثابة زيادة يوم او انقاصه ! فالتعبير في مثال الاستاذ يوسف ممكن ان يكون : Me.txtDate = Me.txtDate + 1 للزيادة و -1 للانقاص تحياتي

Database date+ -.rar

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

وعليكم السلام . تفضل ، المرفق في هذا الرابط يقوم بفتح النموذج عدة مرات ، بدون ان يعمل نسخ جديدة: http://allenbrowne.com/ser-35.html جعفر

هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With With ActiveSheet .Protect .EnableSelection = xllockedCells End With End If End Sub

انسخ هذا الكود الى حدث الصفحة و اعطني رأيك Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False If Target.HasFormula = True Then Application.DisplayFormulaBar = False ActiveSheet.Protect Application.ScreenUpdating = True Exit Sub Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If Application.ScreenUpdating = True End Sub