احمد بدره

'شرح الكود Sub معاينة_مع_الطباعة() 'الإعلان عن ماكرو باسم ( معاينة _ مع _ الطباعة ) لاحظ وجود شرطة بين كل كلمة وأخرى في الاسم لأنه ينبغي ألا يتخلل الاسم فراغ Range("f10:f132").AutoFilter Field:=1, Criteria1:="<>" ' هذا الكود خاص بالفلترة في العمود F ابتداءًا من الخلية F10:F132 بشرط ألا تكون الخلية فارغة فبذلك يتم ظهور الصفوف الغير فارغة ' فلذلك يظهر الجزء الأعلى والجزء الأسفل في الطباعة ActiveWindow.SelectedSheets.PrintPreview ' تنشيط المعاينة قبل الطباعة A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") ' رسالة الطباعة وبها اختيار أمر Yes و No If A = vbYes Then With ActiveSheet .PrintOut End With ' إذا تم الاختيار Yes يقوم بالطباعة End If Range("A1").Activate ' تنشيط الخلية A1 Range("f8:f132").AutoFilter 'إلغاء الفلترة ابتداء من الخلية F8:F132 ' لاحظ الأمر إلعاء الفلترة بدء من خلية غير مخفية وانتهى أيضَا بخلية غير مخفية End Sub ' إنهاء الماكرو ' ملحوظة لنسخ الكود مع الشرح يجب اختيار ( اللغة العربية ) في الجهاز قبل نسخ الكود . وتم وضع العلامة ' بالضغط على 'حرف( ط) ' 'وأتنمنى أن أكون وُفِقْت في توصيل المعلومة 'بالنسبة للسؤال تكرار أعلى كل صفحة انظر الصورة المرفقة أما تكرار أسفل الصفحة فلا يوجد طريقة

عذرًا لم أستطع تسجيل فيديو وذلك لأن تليفوني ليس به فيديو فبعون الله جعلت الشرح في صورتين

كود الأستاذ / حمادة لا يتمشي مع هذا الملف لأن هذا الملف أصبح ضبط إعدادت الصفحة إلى نسبة 100% وبالتالي لا يقوم بتغيير نسبة إعدادات الصفحة لتغيير إعدادت الصفحة اضغط قائمة تخطيط الصفحة واختر على السهم الموجود لأيسر كلمة إعدادات الصفحة يظهر صندوق به 4 تبويبات اختر تبويب صفحة واضغط على اتجاه عمودي وعند تغيير الحجم اجعل الضبط 100% واجعل الملائمة 1 طول و 1 عرض وبعد ذلك قم بالذهاب إلى ورقة العمل وضبط عرض الأعمدة بما يتاسب معي بالنسبة لتعديل الماكرو جعلت الفلترة من العمود F حتى يتم إظهار الإجمالى في الفاتورة وأخيرًا تم تعديل الملف وتكبير حجم الخط دون الخروج عن الخلية والسؤال هل الضغط على لايك بعد تنفيذ المطلوب أمر صعب invoice2.zip

تفضل المطلوب الشرح بالملف كود ترحيل.rar

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

تفضل الملف لعله يفي بالغرض فواتير وسدادات.xls

لابد من إرفاق ملف بالمطلوب وتحديد الخلية التي تريد زيادتها أو نقصانها زر زيادة ونقصان.xlsx.xls

السلام عليكم تم الحل بالمعادلة =IF(SUM(D6:E6)>45;D6;INT(I6/4)) في K والمعادلة =IFERROR(SUM(E6;K6);"") في العمود M أي أنه في حالة ناتج جمع العمود Dوالعمود E أكبر من 45 يضع ناتج العمود D وغير ذلك يقرب العمود I وبهذا يجمع العمود E و K في كل الحالات ويكون المعادلة صحيحة تقريب الناتج.xlsm

ممكن تجربة هذه الدالة لعلها تفي بالغرض استخدمت ترجمة جوجل لتحويل الأرقام العربي لتركي فألقي عليها نظرة ربما تحتاج بعضها للتعديل الدالة بها ثلاث مدخلات الأول لتحديد الخلية التي بها الرقم المطلوب المدخل الثاني للعملة المدخلة المدخل الثالث لكسر العملة المدخلة والله الموفق try.xlsm

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

زادك الله علمًا ورفع شأنك

تفضل الملف به دالة باستخراج تاريخ الميلاد والنوع ومحافظة الميلاد نموذج(1).xls

كل عام أنت بخير تفضل المطلوب Aziz1.rar

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

تكملة لما تم بعد الضغط على مفتاح إنتر قم بالسحب والنزول لأسفل لآخر خلية تريدها تفضل الملف Invoice-200018.xls

تنبيه : عمود البيان ليس موجود في ورقة العمل Sales ثانيًا جرب الملف بدون أكواد ترحيل بوضع علامة = أسفل العنوان المطلوب الترحيل إليه والذهاب للخلية المقابلة للعنوان المطلوب في الجدول في الورقة المطلوب ترحيل البيانات منها والوقوف على الخلية المطلوبة ثم الضغط على مفتاح إنتر Invoice-200018.xls

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

جرب الملف ربما يكون فيه المطلوب قراءه العدادات(1).xls

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

دائمًا مبدع وأدعو الله أن يوفقك لما يحبه ويرضاه كل عام أنت بخير

كل عام أنت بخير من فضلك أرفق ملف واذكر فيه مثال ليوضح المطلوب

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

كل عام أنتم إلى الله أقرب وعلى طاعته أدوم

كل عام أنتم بخير تم معالجة الأمر بإلغاء معادلة 'Label38.Caption = NoToTxt(TextBox8.Value, "ريال", "هللة") من UserForm_Activate لأنها موجود في حدث TextBox8_Change وتم أيضًا إلغاء عمل 'UserForm14.Show لأنه غير موجود وإذا أردت تشغيل 'UserForm14.Show قم بحذف علامة التنصيص التي وضعتها في بدايته " 1534963085229_test.xlsm

معذرة فقد كنت حفظ الملف بنفس تنسيقه وإليك الملف بتنسيق 97-2003 Job.xls