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

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أعمال رائعة وخصوصاً ما قدّمه الأخ أبو تركي جزاكم الله خيراً ..والسلام عليكم

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

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على هذه المساهمة الطيبة

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

السلام عليكم بصراحة اليوم شغلي خفيف فتابعتكم متابعة حثيثة . ليتها تسنح لي الفرصة لأكتسب من علومكم وأشارككم آراءكم وأسعد بمخاطبتكم

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

السلام عليكم ..الآن استوعبته ...جزاكم الله خيراً وجعلكم وذريتكم صالحين ناصحين ..آمين هذا الملف مفيد لي في عملي لأنني كثيراً ما أحتاجه... والسلام عليكم ورحمة الله وبركاته

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

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

السلام عليكم عمل ناجح ومتميز ...تمت التجربة بنجاح100% جزاكم الله خيراً..أخي المعطاء أبو البراء والسلام عليكم.

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

السلام عليكم إخوتي الكرام ...جزاكم الله خيراً على ما تقدمونه وأقول لكل منكم

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

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

جزاكم الله خيراً تم فتح الملف ...رفعت لكم في المشاركة السابقة ملف يرجى الاطلاع عليه والسلام عليكم.

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

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

فسيكفيكهم الله http://www.yafita.com/a/2181333/

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد جربت الإضافة واشتغلت100% جزاكم الله خيراً

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام ...أخي الحبيب أبو البراء جزاكم الله خيراً على ما تتفضلون به من أعمال تنهض بحركة الفكر العربي "البرمجي" أما بالنسبة لي فتحرك بي سرعة البحث عن فكرة لأطبقها وفقاً لما تطلبون أو تقترب منها عكس القيم : 1- نكتب القيم التي نريد في العمود A من A1:A6 2- ننسخها إلى العمود B من B1:B6 3- نكتب في موديول الكود التالي: Sub FlipColumns() Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "عكس القيم" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("المدى", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula For j = 1 To UBound(Arr, 2) k = UBound(Arr, 1) For i = 1 To UBound(Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr End Sub 4- نضغط F5 أو Run من يطلب تحديد المدى وهنا من B$1:$b$6 $ ثم موافق فنحصل على النتيجة المقاربة لطلبكم الكريم. والسلام عليكم ورحمة الله وبركاته. عكس القيم.rar

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أخي الكريم حراثي تواتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم . جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته.

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد أبو بسملة جزاكم الله خيراً على هذه المعلومات القيمة واسمح لنا أن نشارك ببعض القبسات إثراء لعملكم وفقكم الله تعالى إلى كل خير: - لوضع التوقيت الحالي في خلية نضغط: Ctrl+Shift+; حرف الكاف - لوضع التاريخ الحالي أيضاً: Ctrl +; حرف الكاف - لنسخ قيمة الخلية التي فوق الخلية المفعلة نضغط: Ctrl+' حرف الطاء جزاكم الله خيراً على كل ما قدمتموه والسلام عليكم ورحمة الله وبركاته.

السلام عليكم أستاذنا الكريم عماد غازي المحترم الذي يتحفنا بكل جديد ومفيد جزاكم الله خيراً على هذا العرض الرائع لهذه الدالة التي تبقي الأرقام متسلسلة في حالة التصفية أو وجود فراغات ولكن إن لم تكن نسخة الأوفيس من 2010 وما فوق فإنني سأعرض عمل دالة أخرى إثراء لما قلته وهي: SUBTOTAL =IF(B2<>"";SUBTOTAL(3;$B$2:B2);"") حيث تعطي النتيجة ذاتها تقريباً بعد الفلترة ...مع ملاحظة أن عيب هذه الدالة في السطر الأخير حيث لا تعطي كما هذه الدالة الجديدة AGGREGATE جزاكم الله خيراً والسلام عليكم ورحمة الله وبركاته.