محمد حسن المحمد

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر: مبارك عليكم هذا البرنامج وأرجو الله أن يُنتفَعَ به ...وأن يجزيك خير الجزاء ....وكما قلت أخي: لا تعطني سمكة ولكن علمني كيف أصطاد... درس نستفيد منه العبر...راجياً لكم التوفيق والسداد..والتطور والازدهار....آمين ...والسلام عليكم.

 السلام عليكم ورحمة الله وبركاته إخوتي الأكارم: عدنا بفضل الله ومنّته والعود أحمدُ سأترك للأخوة المختصين بالأكواد شرحها - فضلاً لا أمراً - وسأقوم إن شاء الله تعالى بكتابة مقتضى الكود على هامشه بما يقدّرني ربي على فهمي منه سائلاً الله العلي القدير أن يوفقني وإياكم لما يحب ويرضى.. والسلام عليكم.

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

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

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

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

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

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

 السلام عليكم ورحمة الله وبركاته إخوتي الأكارم: الشاشة الأولى :Start Up والتي يسمح لنا بالدخول من خلالها إلى النموذج الرئيسي التي يمكننا تغيير الصورة وكذلك إمكانية تغيير كلمة المرور نستعرض أولاً Label1 الذي يظهر من خلالها اليوم والتاريخ بتنسيقه اليوم فالتاريخ. Private Sub UserForm_Activate() '''Application.Visible = False TextBox1.SetFocus '''''''''''''''''''''''' Label1.Caption = "التاريخ : " & Format(Date, " dddd yyyy/mm/dd") End Sub وكذلك TextBox1 الذي تم إدراج كلمة المرور ضمن الكود التالي من خلال زر الدخول CommandButton1 : Private Sub CommandButton1_Click() If Val(TextBox1.Value) = "111" Then Application.EnableCancelKey = xlDisabled Application.Visible = False Unload Me Toumana.Show Else Dim pp pp = MsgBox("كلمة سر خاطئة . هل تريد الخروج من البرنامج نهائيا؟؟؟", 36, "!!! تحذير") If pp = 6 Then Application.Quit TextBox1 = Empty: TextBox1.SetFocus: End If End Sub حيث يتحدث عن تحميل النموذج الرئيسي Toumana بعد كلمة مرور صحيحة وهي هنا 111 فإن لم يزود بكلمة مرور يعطي تحذيراً كرسالة نصية بأن كلمة السر خاطئة هل تود الخروج.وبذلك لن يتم نقلك إلى النموذج الرئيسي المطلوب. أكتفي بهذا القدر راجياً من إخوتي الكرام مساعدتي بشرح الأكواد وليس عيباً أن يطلب المرء منا مساعدة إخوة فيما يقدرون عليه ولا يقدر والسلام عليكم ورحمة الله وبركاته.

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

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

 السلام عليكم ورحمة الله وبركاته إخوتي الأكارم: ندخل بعد هذه التقدمة للحديث عن سند الصرف الذي ذكرناه آنفاً نرى أنه قد وضع جداول بياناته بصفحة أسماها DATA وزع محتوياتها على ثلاثة جداول كما يلي: 1. جدول تفاصيل سندات الصرف :يحتوي هذا الجدول بيانات بعدة أعمدة منطلقاً من رقم السند (للرجوع إليه وتسهيل البحث بعد ذلك ) ثم التاريخ ويا لأهمية التاريخ الذي يذكرك بيوم الصرف.. ثم الاسم ويستحسن أن يعطى الاسم كاملاً وليس فقط أبو فلان أو فلان دون اسم أب وكنية وذلك لاحتمال تشابه الأسماء فتضيع الحقوق... ثم البيان الذي قصد به سبب إعطاء هذا السند وصرفه... ثم كيفية (طريقة) قبض السند من قبل المصروف له أهو نقداً أو شيكات مع ذكر بيانات الشيك من رقم وتاريخ وقيمة المبلغ واسم المصرف الذي حرر منه هذا الشيك. 2. جدول البيانات التي تظهر بالفورم :يستطيع المحاسب الذي يتعامل مع هذه الصفحة بتغيير (اسم الشركة – المحاسب – المستلم – المدير وعنوان الشركة..إلخ.. كما وضع به بداية تسلسل أرقام السندات التي سينطلق منها تسجيل السندات. 3. جدول بيانات الكمبوبوكس: يصرف للسيد – وذلك عن (السبب أو الشخص) – اسم البنك.. وإذا رجعنا إلى إدارة الأسماء نجده وضع أربعة أسماء كما يلي: 1. الأول منها about بمعنى حول يتضمن قيماً (دعاية وإعلان – مستحقات متأخرة ..إلخ. 2. الثاني منها Bank سمى من خلاله بعض البنوك ببلده الكريم. 3. الثالث منها Names وضع بعض أسماء إخوة كرام تقديراً لهم ضمن بحثه الكريم. 4. الرابع منها No يكمل به الأرقام للسندات لكل منها بعد الرقم الافتراضي الذي وضع لأول سند منها..قيمته 1000 5. كما وضع زراً خاص للفورم الذي سيرحل ويستدعي منه بياناته والله أعلى وأعلم ...والسلام عليكم ورحمة الله وبركاته. يتبع إن شاء الله تعالى....راجياً تصحيح أخطائي فما أنا بمعصوم...

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

السلام عليكم أخي الكريم: هل راجعت توافق Word ؟ وهل استرجعت تلك الملفات؟ فإن كنت استرجعتها فلله الفضل والمنة..يرجى إبلاغنا النتيجة.

السلام عليكم أخي الحبيب أبو البراء: هذا ما أستطيع قوله...والسلام عليكم

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء...هي الفكرة بدأت تنضج ولكنها بحاجة رتوش بسيطة إن كان المجموع 100 وكانت النسبة 25% مثلاً كان لا بد أن تظهر قيمة الحسم 25 وإن كان المجموع 50 مثلاً وكانت قيمة الحسم 12.5 لا بد أن تظهر نسبة الحسم 25% مع جزيل شكري.

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

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

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

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

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

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

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