بن علية حاجي

السلام عليكم ورحمة الله تم تعديل بعض أوامر الكود للمحاكاة مع الملف الجديد... بن علية حاجي طباعة متخصصة.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

السلام عليكم ورحمة الله تم التعديل على الكود للطباعة حسب رقم الجلوس باستعمال خاصية من...إلى...، ولإضافة خليتين للاختبار U1 و U2 (لأصغر وأكبر قيمة لرقم الجلوس) وتم أيضا التعديل على معادلات الشهادات لجلب البيانات حسب رقم الجلوس... تجد كل ذلك في الملف المرفق (وأعتذر من الأخ فايز فراج في استعمال ملفه للتطبيق)... اخوك بن علية حاجي طباعة الشهادات حسب رقم الجلوس.rar

السلام عليكم ورحمة الله في الحقيقة لم لأفهم هذا، ولكن أقول إن قيمة الخلية N تعتمد على تسلسل ما (في المثال هي قيم العمود A) أما إذا كنت تريد أن تكون قيمها "رقم الجلوس" فيمكن ذلك إلا أنه يجب التعديل في معادلات جلب البيانات للشهادات باعتبار أن قيم البحث أصبحت "أرقام الجلوس" وليس قيم عمود التسلسل... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله صراحة لا أعرف هذا البرنامج!! بن علية حاجي

السلام عليكم ورحمة الله وضعت لك حلا يبين ما شرحته في ردي السابق (أعتقد أنه تم حذفه أو تم وضعه في موضوع لك مشابه -مكرر-)... أعيد إرفاقه مع هذا الرد ملاحظة: هذا رابط الموضوع الذي وضعت فيه الحل https://www.officena.net/ib/topic/77772-سؤال-كيف-أجعل-رسومات-بيانية-تتكرر-على-ورقة-أخرى-لاجل-أعمدة-متكررة/#comment-499758 بن علية حاجي رسومات بيانية حسب الصف والامتحان.rar

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

السلام عليكم ورحمة الله قيمة الخلية N1 التي تأخذ قيمها من المتغير I في الكود من... إلى... (بالخطوة 4) هي بداية قيم البحث التي تعتمدها معادلات الشهادات، بالنسبة للشهادات فقيم بحثها تجدها في الخلايا N50 ، N37 ، N24 ، N11 التي تحوي على الترتيب المعادلات التالية: N1 = ثم N11 + 1 = ثم N24 + 1 = ثم N37 + 1 = (أي القيم الموالية لقيمة N1)... أخوك بن علية

السلام عليكم أضففي الكود بين كل كلمتي DECLARE و FUNCTION الكلمة PtrSafe فتكون العبارة DECLARE PtrSafe FUNCTION بدلا من العبارة DECLARE FUNCTION... بن علية

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

السلام عليكم ورحمة الله أخي الكريم سعيد، إن أمر الطباعة من إلى في الكود موجود في الأمر For I = 1 To [O1] أي من القيمة 1 إلى قيمة الخلية O1 (التي تحوي أكبر قيمة التسلسل) ولجعل الكود يعمل بتخصيص قيمة البداية (من) وقيمة النهاية (إلى) يجب جعل هذه القيم في خلايا أخرى تختارها مثلا الخلية P2 لقيمة البداية (من) والخلية Q2 لقيمة النهاية (إلى) أما قيمة الخلية O1 نجعلها قيمة اختبار حتى لا تتجاوزها قيمة المتغير I في الطباعة فيكون الكود بالتالي كما يلي: Sub Print_FROM_TO() For I = [P2] To [Q2] Step 4 IF I <= [O1] THEN [N1] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True END IF Next [N1] = 1 End Sub أخوك بن علية

تفضل المرفق... تقسيم السنوات و الاشهر و الايام على 2.rar