Khorsheed Omar

لدي تكملة لسؤالي ان امكن لي و اعتذر عن الإطالة استاذ @عبدالله بشير عبدالله و الأستاذ @محمد هشام. الطباعة تتم بأكمل وجه لكن اريد بعض الخيارات في الطباعة و لا استطيع اضافتها مثل ازالة الهوامش و طباعة التحديد فقط حتى لو كانت الورقة كبيرة Range("Q2:Y20").Select Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True Selection.PrintOut Copies:=1, Collate:=True End Sub

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

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

شكرا استاذ عبد الله

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

شكرا جزيلا استاذ @عبدالله بشير عبدالله المعادلة ممتازة

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

اعتذر استاذ @حسونة حسين لم تعمل بالشكل المطلوب انا الجدول الذي لدي يتم تقريب الأرقام إلى أربعة قيم و هي 250 أو 500 أو 750 أو 1000 و هي القيم المستخدمة في الدينار العراقي الموجودة كعملة حقيقية و معادلتي تفي بالغرض و قد ساعدوني الأساتذة هنا من قبل لكن المعادلة لا تتفاعل من الرقم السالب المطلوب هو تعديل المعادلة كي تتفاعل مع الرقم السالب اي ان كان الرقم سالبا ان يتم التقريب في السالب ايضا و ليس تعديل الر قم من سالب إلى رقم صحيح ارجو تفقد المعادلة الموجودة في الجدول و يمكنك تغيير الرقم او الراتب كيفما تريد سيتم تقريب الرقم إلى الأربعة قيم المذكورة لكن لا تتفاعل مع السالب و لكم جزيل الشكر

عفوا استاذ @Saleh Ahmed Rabie لكن المعادلة ليست كاملة هل من الممكن تطبيقها على الجدول المرفق ؟

عزيزي استاذ @Saleh Ahmed Rabie لم تنجح المعادلة ما ارغب به هو تقريب الأرقام الموجبة ان كانت موجبة و تقريب الأرقام السالبة ان كانت سالبة في معادلتي يتم تقريب الأرقام الموجبة و لكن لا يعطي نتيجة اذا كانت الأرقام سالبة انا ارغب ان يتم تقريب الأرقام السالبة ايضا و وضع اشارة سالب

السلام عليكم لدي جدول رواتب و فيه دالة لتقريب الأرقام و لكن هذه الدالة لا تعمل عند وجود رقم سالب يرجى المساعدة لمن لديه الخبرة الراتب.xlsx

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

تمت شكرا جزيلاً

ما اطلبه استاذي هو ان يتغيير الرقم عند كل طباعة مثلا ان اعطيته امر طباعة يكون الرقم واحد لكن عن اعطاء امر طباعة مرة ثانية يتغيير الرقم تلقائياً إلى الرقم 2 و هكذا

عفوا استاذ @abouelhassan لكن هل يمكنك تطبيقها على الملف كي اعرف بالضبط ما انا مخطئ فيه

عفوا استاذ لكن لم تنجح المعادلة لا يتغير الرقم عند الطباعة في المرة الثانية

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

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

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

UP

سيد @abouelhassan شكرا لك لكن لم اتقن الكود الذي كتبته بالضبط بالنسبة لاسم الشيت يمكن ان تكون اسماء الشيتات ارقام كما كتبتها او يمن مثلا 1_JUN و هكذا اتمنى ان تضعها في الملف كي ادركها اكثر نسخة.xlsx

مرحبا جميعاً احتاج معادلة بحث بشرطين اثنين كما هو موضح في الجدول احتاج معادلة لأعرف اسم المندوب بحس التاريخ و كود الزبون اي ان اكتب التاريخ و الكود يظهر عندي اسم المندوب الشيت المسمى الرئسية هو شيت ادخال البيانات و الشيت 1 + 2 هم شيتات فرعية يومية و هي ستكون كثيرة حسب ايام الشهر او السنة نسخة.xlsx

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

شكرا جزيلاً استاذ لكن بقي شيء واحد فقط ارجو مساعدتي إن كان يوجد لها حل و هو أن يحذف الكسر إن كان أقل من 150 دينار عراقي في الجدول عندما يكون أقل من 150 دينار تطلع النتيجة خطأ N/A# مجددا شكرا جزيلا استاذ @بن علية حاجي

و عليكم السلام و رحمة الله و بركاته أخي إيهاب يوجد لدي جدول و بأحد الخلايا يوجد ناتج تحويل عملة من دولار إلى دينار عراقي و الناتج يكون مثلاً 7,525 دينار سبعة ألاف و خمسمائة و خمسة و عشرون دينار أو سبعة ألاف و ثمانمائة و خمسون دينار او اي كسر في خانة المئات ( لا اقصد كود مع تحويل العملة انا لدي خانة ناتج العملة و لدي خانة ارغب فيها بتعديل الناتج من خانة المئات) المتعامل في السوق بالدينار العراقي هو 250 دينار و 500 دينار و 750 دينار و 1000 دينار فما فوق لكن ما دون الألف دينار يوجد فقط ثلاثة أرقام يتم التعامل معها هي 750 و 500 و 250 الناتج في الخلية يكون كسر و كما اوضحت للأساتذة (( الكود جيد لكن يحذف كل رقم دون ال 250 و يحسب كل رقم دون 500 برقم 250 و يحسب كل رقم دون 750 برقم 500 و يحسب كل رقم دون 1000 برقم 750 لو انه يقرب الأرقام مثلا من رقم 150 إلى 350 يحسبه 250 و ما دون 150 يحذفه و من فوق 350 إلى 650 يحسبه 500 و من فوق 650 إلى 850 يحسبه 750 و ما فوق ال850 يحسبه 1000 )) @إيهاب عبد الحميد