أبو أنس حاجب

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله جرب المرفق بعد إضافة المعادلات لعله المطلوب. المرفق: test 10.rar أبو أنس

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

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

السلام عليكم ورحمة الله وبركاته للرفع رفعكم الله في درجات الجنان

السلام عليكم ورحمة الله وبركاته أساتذتي وسادتي الكرام حفظكم الله تم أرفاق ملف يوضح المشكلة بشكل دقيق. أبو أنس مشكلة تنسيق تاريخ.rar

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

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

السلام عليكم ورحمة الله وبركاته للرفع أعزكم الله

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أظن والله أعلم أن التغيير يتم في هذين السطرين. أبو أنس Cells(Lr + 1, 2) = "" Cells(Lr + 1, 2) = "إجمالي"

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل راشد العمده حفظكم الله راجع الرابط أدناه لعلك تجد فيه ما تريد. أبو أنس http://www.officena.net/ib/index.php?showtopic=41662&hl=%D8%AD%D8%A7%D8%AC%D8%A8#entry236714

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله راجع المرفق عله المطلوب 23-1.rar أبو أنس

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

السلام عليكم ورحمة الله وبركاته للرفع أعزكم الله أرفع لكم الملف بثوبه الجديد بعد الأستفادة ببعض الأضافات لأكواد الخبراء: سيدي وأستاذي الفاضل عبد الحافظ الخالدي حفظه الله سيدي وأستاذي زياد على حفظه الله وإضافة لوحة للتحكم بالملف الملف الأساسي لادخال البيانات فقط وعمل نسخة احتياطية للبيانات بالضغط على زر BackUp (مع المحافظة على أن يكون ملف BackUp Account Statement في نفس مسار الملف الاصلي ولا يتم تغيير إسمه الا بالتغيير في كوده), ثم يأتي دور الزر False System فيقوم بغلق الملف الأصلي وإنشاء ملف وهمي في الهارد D يتم بعدها أظهار زر التحكم الذي من خلاله بالأمكان التحكم بالملف وأستخلاص التقارير وحتى العبث به ولن يؤثر ذلك على الملف الأصلي. والله المستعان. الطلبين السابقين مازالا قائمين لمن أراد الأضافة. المرفق كشف حساب.rar أبو أنس ناصر حاجب

السلام عليكم ورحمة الله وبركاته الحمد والشكر لله بتمام المبتغى. تقبل أحترامي أبو أنس

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل عباس السماوي حفظكم الله على عجل لأنني ذاهب إلى النوم فالساعة عندنا الحادية عشر مساءاً أذا كنت فهمت المطلوب بشكل صحيح فهو سهل فقط أنسخ الكود المرسل بدل الموجود وأبقيت على السابق ولكن غير منشط حتى ترى التعديل فأذا كان هو المطلوب فأحذف الأسطر المحددة بعلامة التنصيص وإلا استودعك الله إلى الغد للقاء أذا كنا من ذوي الأعمار. Sub ragab() Application.ScreenUpdating = False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'Selection.AutoFilter End If [B7:N307].Select Selection.Interior.ColorIndex = xlNone [B7].Select 'Application.ScreenUpdating = False ' For Each cl In [B7:B307] ' If cl.Offset(0, 1) = "" Then ' cl.Resize(1, 13).Interior.ColorIndex = xlNone ' End If ' Next Selection.AutoFilter Field:=3, Criteria1:="<>" End Sub أبو أنس

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

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

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