بن علية حاجي

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمان، بالنسبة للمشاكل التي ظهرت معك أحاول بإذن الله تناولها الواحد تلو الآخر مع اقتراحات للحلول: المشكل الأول : "فكلما غيرت الــ normal size الى 100% ومع تجربة الطباعة يتغير الــ normal size الى 31% مع ظهور هذة المرة هوامش الصفحات" ---------> هذا من المفروض يمكن حلها باستعمال خاصية "تعدادات الصفحة" Page Setup (تحجيم الصفحة) المشكل الثاني : " اما الاخرى فهى عن إهتزازت الشاشة" -----------> هذا راجع لأنك -ربما- تعمل على ملف فيه تنسيقات شرطية كثيرة (مما يؤثر على عمل الأكواد) وهنا يمكن إما التقليل من هذه التنسيقات أو إلغاؤها وإما أن نضيف إلى الكود إحدى العبارتين التاليتين (حسب الحالات) : Application.ScreenUpdating = False في بدايته و Application.ScreenUpdating = True في نهايته أو العبارة Application.EnableEvents = False في بدايته و Application.EnableEvents = True في نهايته ويمكن أيضا توقيف "خاصية الحساب التلقائي" برمجيا... المشكل الثالث : "فضلا عن ظهور رسالة Variable not defind" -------------> هذه إجابتها عندك "اعتقد أن هذة الرسالة للإعلان عن المتغيرات Option Explicit"، فعند إضافة هذه العبارة إلى الأكواد يجب "الإعلان عن طبيعة جميع المتغيرات في كل الأكواد" وفي الكود لدينا 3 متغيرات يجب إعلانها Rng ،I ، m ويتم ذلك بإضافة الأمر مباشرة بعد أمر Sub (أي في السطر الثاني) : Dim m As Long, I, Rng As Range هذا والله أعلى وأعلم. أخوك بن علية الذي يحبك في الله

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمان، تم تعديل على الكود بما يوافق الشروط -دون استعمال خاصية الترحيل- (وللطباعة على الورق استبدل PrintPreview بـ PrintOut) وتم إلغاء كل فواصل الصفحات اليدوية... أخوك بن علية طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+111.xlsb.rar

السلام عليكم ورحمة الله أخوتي وأحبتي أبو عبد الرحمان وأبو البراء، تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أردت أن أشارك بكود متواضع في الملف المرفق... أخوكم بن علية طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية.xlsb.rar

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

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

السلام عليكم جرب المرفق لعل فيه ما تريد... تم تعديل طفيف على جدول التقديرات... بن علية حاجي anas2017.rar

السلام عليكم ورحمة الله إذا كنت تقصد أنه لو كانت 7% من قيمة الخلية A أكبر من 130 فإن القيمة في الخلية B تكون 130، وإذا كانت قيمة النسبة أصغر من 65 تكون قيمة الخلية B هي 65، وإذا كانت القيمة غير ذلك (محصورة بين 65 و 130) فتؤخذ النسبة كما هي فإن المعادلة التالية في B1 (ثم تسحب للأسفل) تفي بالغرض: =IF(ROUNDDOWN((A1*7%);2)>130;130;IF(ROUNDDOWN((A1*7%);2)<65;65;ROUNDDOWN((A1*7%);2))) بن علية حاجي

السلام عليكم ورحمة الله هذا تعديل على كود أخي العزيز أبو البراء لعله يفي بالغرض المطلوب... Sub pallshehadat() Dim x As Long Application.ScreenUpdating = False ActiveSheet.PageSetup.Zoom = 80 ActiveSheet.PageSetup.PrintArea = "$B$8:$H$35" Range("C2").Select ActiveCell.Value = 0 On Error Resume Next Do ActiveCell.Value = ActiveCell.Value + 1 x = Application.Match(Range("C2"), Sheets("يناير").Range("A:A"), 0) If Sheets("يناير").Cells(x, "AT").Value <> 1 Then ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value = Range("C3").Value Range("C13").Select Application.ScreenUpdating = True End Sub بن علية حاجي

السلام عليكم ورحمة الله حل آخر تم فيه ما يلي: 1- تعديل في معادلة التسلسل في العمود A من شيت "يناير" (حتى لا يتم ترقيم الصفوف التي في خلايا العمود AT الرقم 1) 2- إضافة عمود مساعد (العمود AU) لتحديد القائمة دون الفراغات (لأجل عنصر القائمة المنسدلة في شيت "شهادة") مع إضافة التسمية List لهذه القائمة باستعمال خاصية النطاقات الديناميكية وذلك باستعمال الدالة OFFSET ثم ربط هذه التسمية بعنصر القائمة المنسدلة.. 3- كود الطباعة لم يتم التعديل عليه ما عدا فيما يخص ناحية الطباعة من العمود A إلى العمود H بدلا من العمود A إلى العمود I كل هذا تجده في الملف المرفق... بن علية حاجي شهادة.rar

السلام عليكم لست أدري إن كنت قد فهمت المطلوب جدا، لقد قمت بتعدلات على ورقتي "شيت" و " إضافة أسماء الطلاب"... أرجو أن تفي بالغرض... بن علية حاجي صف أول ابتدائي.rar

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

السلام عليكم ورحمة الله من المفروض أن الكود مفهوم جدا وعمله قد شرحته في ردي السابق، وإذا كنت تريد شرحا مستفيضا خطوة بخطوة فسأوافيك به، إن شاء الله، لاحقا... بالنسبة للتغيير الذي قمت به أكيد سينجح ولكن أريد أن أعرف لماذا تريد بالضبط طباعة النطاق a1:m83 دون غيره (فهو يحوي جوانب فارغة من الورقة وبالتالي يكون عدد الصفحات أكبر)؟؟ هل تعني بهذا تحديد "ناحية الطباعة" أم هذا النطاق بذاته؟ ثم إذا لم تكن عندك طابعة أو كانت معطلة فيمكنك استبدال كلمة PrintOut في الكود بكلمة PrintPreview حتى يكون لك "معاينة للطباعة" وتعرف بالتالي ما سيطبع من ورقتك... ملاحظة: إذا كنت تريد طباعة الجدول فقط دون الصفوف الفارغة بالأسفل أو غيرها فيمكنك استعمال خاصية "ناحية الطباعة" إما يدويا وإما برمجيا VBA * تحديد ناحية الطباعة برمجيا يكون بإضافة الأمر التالي إلى الكود قبل حلقة FOR مباشرة: ActiveSheet.PageSetup.PrintArea = Range("$A$1:$K$" & m).Address أو Sheets("Feuil1").PageSetup.PrintArea = Range("$A$1:$K$" & m).Address أو Feuil1.PageSetup.PrintArea = Range("$A$1:$K$" & m).Address وأمر الطباعة في الكود يكون: ActiveWindow.SelectedSheets.PrintOut Copies:=1 أو Sheets("Feuil1").PrintOut Copies:=1 أو Feuil1.PrintOut Copies:=1 يمكن حذف الجزئية Copies:=1 من هذا الأمر في الكود لأنها تحدد عدد النسخ المستخرجة... بن علية

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

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

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

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

السلام عليكم ورحمة الله جعلت الكود يقوم بإخفاء كل الصفوف التي في خلايا العمودين B أو D التي تحوي القيمة 00-01-1900 مع ترك باقي الصفوف الأخرى ظاهرة مع الصف الفارغ بين المدد والصفوف التي في عمودها الثاني B الجملة التي تبدأ بالكلمة "المدة"... ويطبع النتيجة المتحصل عليها ثم يعيد إظهار كل الصفوف... بن علية حاجي book.rar

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

السلام عليكم في الصورة الثانية (2) اضغط على المربع الأزرق بعد رمز || Pause لتوقيف تنفيذ الماكرو حتى يتم التعديل على الكود كما سبق... بن علية حاجي

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

انظر إلى كود UserForm2 أو ضع صورة للكود في رد آخر حتى نبحث عن موضع عدم التوافق أو اضغط على Help لعل فيه ما يغنيك عن السؤال...

للرفع

السلام عليكم ورحمة الله معذرة لقد قمت بتغيير مكان خلايا الخاصية من... إلى... في الشيت (من السطر الثالث إلى السطر الثاني) وغفلت على التعديل في الكود... المهم يمكنك القيام بذلك بتغيير الأمر التالي في الكود: For I = [T3] To [U3] Step 9 بالأمر : For I = [T2] To [U2] Step 9 معذرة مرة أخرى... يمكنك أيضا تحميل الملف المرفق الذي تم فيه التصحيح... بن علية حاجي طباعــــــة بن عليه.rar

السلام عليكم ورحمة الله لم يحدث طباعة لأحد السببين التاليين : - إما أن اختيار قيم من ... إلى ... فيه خطأ : اختيار قيمتي من... و إلى ... ليستا من قيم المجال [V5 ، V6] - وإما أن يكون مستوى حماية الماكرو مرتفعا (مما يعني أن الماكرو غير مفعلة). ليس لي اقتراح آخر... بن علية حاجي

السلام عليكم ورحمة الله تفضل أخي الملف المرفق وبه المطلوب... تقبل الله منا ومنكم ومن كل المسلمين الصلاة والصيام والقيام وصالح الأعمال أخوك بن علية طباعــــــة بن عليه.rar