الشهابي

أخي العزيز / بوعلام حسب شرحك في المشاركة 7 عسى يكون هذا مطلوبك حسب فهمي والله الموفق Hours_2.rar

أستاذي القدير / عبد الله باقشير هذا تطبيق لأكواد المصفوفات وكذلك تطبيق لدالة TRANSPOSE مرة ثانية جزاك الله خير على هذه المعلومات والدروس القيمة المصفوفات للأستاذ عبد الله باقشير.rar

عفواً إخواني الإعزاء تم اكتشاف خطأ أثناء التحويل وذلك يسب السرعة وعدم التركيز اعتذر لذلك وتم تصحيح الخطأ وأرجو استبدال كود الدالة السابق بالكود التالي : Function VLOOK2ALL(Table_array As Range, lookup_value As Variant, Number_appearing, col_index_num) For x = 1 To Table_array.Rows.Count If Table_array.Cells(x, 1) = lookup_value Then Counter = Counter + 1 If Counter = Number_appearing Then VLOOK2ALL = Table_array.Cells(x, col_index_num): Exit For End If Next End Function الأخ / عياس السماوي أنت جزاك الله ألف خير فأنت صاحب السبق باحضاروإرفاق ملف الدالة وما قمت به فقط التحويل في مسميات بارومترات الدالة والعفو وهذا الملف المرفق بعد التعديل كما تم تعديل الملف في المشاركة السابقة أيضاً VLOOK2ALL_5_2.rar

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

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

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

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

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

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

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

أستاذنا الكريم / أبو حنين أحسنت معلومات فيمة ومفيدة بارك الله فيك هناك برامج تقوم بفتح صفحة الـ vba المغلقة هل هناك طريقة لمنع ذلك كذلك عن القيام بتعطيل وحدات الماكرو يمكنك عندئذٍ مشاهدة بقية الخلايا وتحديدها وجزاكم الله خير على ما تقدموه

الأستاذان القديران / أبو حنين ورجب جاويش طريقتان مختلفتان رائعتان أحسنتما وجزاكم الله خير

الأستاذ الكبير/ أبو حنين يكفي تعليق الأساتذة الكبار أمثالك الله يزيدك علما ورفعة تقبل تحياتي

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

أخي العزيز / الفرس بالنسبة لتعطيل الماكرو نفس خطوات تمكين الماكرو بس بدلاً من تحديد تمكين يتم تحديد تعطيلله وهذا الرابط سوف يفيدك إن شاء الله http://www.officena.net/ib/index.php?showtopic=36127 وهذه تعتير مشكلة في حماية الملف ولكن انصحك بأن تأخد كود الحماية الذي قدمه أستاذنا عبد الله باقشير والذي يمنع فتح الملف في حالة تعطيل الماكرو وهذا رابط الموضوع وهو من المواضيع المثبته حالياً http://www.officena.net/ib/index.php?showtopic=42107

الأستاذ/ سيد تجر وبعد إذن الأستاذ أحمد البحيري والأستاذ محمود هذا ملف قد قمت بإعداده ولإثراء الموضوع أحببت أن أشارك هذا هو الملف شيت5.rar

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

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

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

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

أستاذي الكبير / عبد الله باقشير بصراحة ولا أروع أكثر ما استوقفني في الكود هو المدى ( "MyPwd" ) أخذت أتلاعب بخصاص المصنف حتى ظهر لي المدى في معرف الأسماء ولم أقم بالحفظ ثم حاولت مرة أخرى ولك دون فائدة في استفسار حول كيفية إنشاء مدى في ThisWorkbook ؟ وكيفية إخفائه من معرف الأسماء اطلعت على ملف لأحد الأخوة وهو عند فتح صفحة الـ ( vba ) يتم إغلاق الملف مباشرة كيف يمكن عمل ذلك ؟ وعلى فكرة هناك كود باسبورد لك في ملف ( برنامج خبور المدرسي تجربة خاصة23) وقد طبقته على ملفي المدرسي وهو شغال جزاك الله خير أستاذ عبد الله على ما تقدمه من معلومات قل من يعطيها هذه الأيام مجاناً إلا في مثل هذا المنتدى الرائع

أخي العزيز / kinggraphic فعلاً ملاحظاتك في محلها والتعامل مع الكسور دقيق جداً فأحيناً يكون الرقم مثلاً (9.1) وأحياناً (9.10000000000002) فالفارق بينهما دقيق جداً ربما لا يعد فارق ولكن مع الحاسوب يختلف الأمر وهذا أيضاً ينطبق على تساءل أخينا أبو سلام وأنا أيضا خطرعلى بالي ذلك التساءل حول: اختلاف النتيجة عند زيادة الأرقام وإضافة الإشارة أصغر في المعادلة وبالتالي : تمت محاولة التعديل على المعادلة الأولى المقدمة من قبلي وكذلك معادلة أخينا أبو سلام لتصبحا بهذا الشكل =IF(A2-INT(A2)>0.59999999999999;INT(A2)+1;IF(A2-INT(A2)>0.19999999999999;INT(A2)+0.5;IF(A2-INT(A2)<=0.19999999999999;INT(A2);IF(A2-INT(A2)=0;A2)))) =IF(A2-INT(A2)<=0.19999999999999;ROUND(A2;0);CEILING(A2;0.50000000000009)) وتم تطبيقهما على الأرقام إلى الرقم 225 والحمدلله انضبطت وكل شيء تمام وبالنسبة لعملية الجمع تم جمع نتيجة المعادلتين مع الرقم واحد في عمدين جديدين والنتيجة مضبوطة إن شاء الله وهذا ملف مرفق معدل تقريب خاص-معدل.rar

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

أخي العزيز / أبو سلام تصدق أخي نفس التساؤل خطر لي ومستغرب فعلاً لذلك يا شيخ عندك هذه المعادلة المختصرة الرائعة وتطلب غيرها !!! المهم جزاكم الله خير على هذه الفائدة

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