صلاح الدين المصلح

المرفق التالي يصحح المرفق الأول وفيه زيادة سطر نسيته: Lesson11_Exam (2).zip

: وعليكم السلام ورحمة الله وبركاته، شكرا أستاذنا على الحلقة الجميلة والأسلوب المروح عن القلوب وهذا حل الواجب Option Explicit Sub MyExercice() Dim MyEmail As String Dim x As Integer MyEmail = "salah15salah@gmail.com" MsgBox MyEmail & vbCrLf & Len(MyEmail) & vbCrLf _ & InStr(MyEmail, "@") & vbCrLf & StrReverse(MyEmail) _ & vbCrLf & UCase(MyEmail) & vbCrLf & LCase(MyEmail), , "Exam11" End Sub تطبيق مرفق Lesson11_Exam.zip

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

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

فعلا الكود يحقق المطلوب أخي خزاني شكرا جزيلا ..فقط إن أمكن كيفية التحكم فيه والدخول الى الصفحات مني شخصيا إذ أني أصبحت مثل بقية المستخدمين لا أملك الوصول إلى الفيجوال بيسك وكل ما يمكنني هو غلقه ، فهل من حل؟ مثال مرفق. ShowOnlyUserForm.zip

أخي خزاني جزاك الله خيرا سأجرب الكود وإن شاء الله ينجح تماما بتمام.

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

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

بارك الله فيك أستاذي الكريم ، وهذه محاولة في اطار الميساج بوكس أرجو كيفية ضبط العربية في المحرر: Sub ForMyProf() Dim MyProf As String Dim Question1, Rep1, Question2, Rep2 MyProf = "ياسر" Question1 = MsgBox("من أستاذك يا ولــد؟", vbMsgBoxRight + vbMsgBoxRtlReading, "السؤال الأول") Rep1 = MsgBox("أستاذي هــو" & " " & Mid(MyProf, 3, 2), vbMsgBoxRight + vbMsgBoxRtlReading + vbOKOnly) Question2 = MsgBox("لا ليس سرا فمن هو؟", vbMsgBoxRight + vbMsgBoxRtlReading, "السؤال الثاني") If Question1 = vbOK Then If Rep1 = vbOK Then If Question2 = vbOK Then if MsgBox ("إنه أستاذنا القديــــر" & " " & " : " & MyProf) then msgbox "جواب صحيح",,"شكـــرا" End If End If End If End If End Sub

أخيرا نجحت المحاولة جزاك الله خيـــــرا أستــــــــاذي الكريم .

سأجرب هذه الجملة إن نجحت وإلا فوجهــــــــني أنا حاولت بعلامتي لا يساوي ، شكرا أستــاذي

<>سأجرب هذه الجملة إن نجحت وإلا فوجهــــــــني أنا حاولت بعلامتي لا يساوي ، شكرا أستــاذي .

أستــــاذي الكريم يــاسر أشكرك على الملاحظات القيمة وحسن المتابعة أيضا ، أما السطر: Dim sNam1 As String, sNam2 As String, sNam3 As String فالمعذرة لأني نسيت حذفه في محاولة لادراج اسم "المحقق أبو البراء من نيابة أوفيسنا" في مجموعة متغيرات تؤخذ قيمها من أسماء أوراق العمل ثم عدلت عن ذلك لأني خشيت الإطالة ، فقط لي سؤال بسيط كيف أدرج الكود في الشكل الذي تدرجه أنت في الرد؟ جزاك الله خيرا وتقبل تحياتي.

شكرا على الجهود المتواصلة أستاذنا الكريم ، جزاك الله خيرا. هذا التنفيذ للكـــــــود : Exam8.rar

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

السلام عليكم ورحمة الله وبركاته أما بعد : فهذه محاولة لحل واجب الدرس رقم 7 . وأرجو من أستاذي الكريم ياسر شرح كيفية تنسيق الكود ليوفق العربية داخل المحرر بدون اللجوء إلى النسخ واللصق من النوتباد. المحاولة في المرفقات ، تقبلوا تحيـــــــــاتي وشكـــرا. exam7.rar

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

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

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

بارك الله فيك.

جزاك الله خيرا على ما تقدمه من فوائد، وإليك حل الواجب بطرق عديدة ربما يكون بعضها يحتاج إلى شرح للمبتدئين. ملاحظة : الحل في المرفقات.حل الواجب.rar

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

جزاك الله خيرا.

بارك الله فيك ونفع بك.

جزاك الله خيرا.