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 لكن هل يمكنك تطبيقها على الملف كي اعرف بالضبط ما انا مخطئ فيه