نبيل عبد الهادي

الدالة INT تقريب العدد الحقيقي الذي تريد تقريبه إلى عدد صحيح أصغر منه مثال =INT(8.9) ====> 8 استخدم دوال التقريب للاعلى او الادني وحسب مايلي للتقريب إلى الأعلى دوماً (بعيداً عن الصفر) استخدم الدالة ROUNDUP للتقريب إلى الأدنى دوماً (باتجاه الصفر)، استخدم الدالة ROUNDDOWN لتقريب رقم إلى مضاعف معين (مثل التقريب إلى أقرب 0.5)، استخدم الدالة MROUND إذا كانت الخلية A1 تحتوي على الرقم 23.7825، وكنت تريد تقريب هذه القيمة إلى منزلتين عشريتين، فيمكنك استخدام الصيغة التالية: ‎=ROUND(A1, 2)‎ ناتج هذه الدالة هو 23.78

تفضل اخي تم لتعديل على الملف في حالة اضافة اسم جديد في اي من الكشوفات مع ضرورة ملاحظة الشرح في ورقة (كشف1) عند الصف 26 مرتبات مدرسة وحدة دروة المجمعه-2018 -.xlsm

اختر من خلال القائمة المنسدلة

تفضل اخي عله المطلوب تم تصميم مفردات مرتب وكالتالي:- ورقة مفردات مرتب1 = كشف1 ورقة مفردات مرتب2 = كشف2 ورقة مفردات مرتب3 = كشف3 اختر اسم من مربع السرد اما التفقيط حسب الكود في ملفك بعد وضع الدالة في خلية الصافي مرتبات مدرسة وحدة دروة المجمعه-2018 -.xlsm

المفترض ان تقوم بأرفاق ملف .. عموما وحسب فهمي لطلبك ضع الكود التالي في حدث الورقة وعلى افتراض ان العمود A يمثل التأريخ والعمود B يمثل اسم العميل علما ان التأريخ هنا تلقائي ولكنه ليس متغير Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B2:B100")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 1).Resize(Target.Rows.Count).Value = Date Else Cells(Target.Row, 1).Resize(Target.Rows.Count).Value = vbNullString End If End If End Sub

في الملف المرفق ربط عن طريق الكود وقد تم استخدامه لاستدعاء بيانات ثلاث مواد عربي امازيغي انجليزي من الملفات الفرعية ويمكن لك تطبيقه لاستدعاء باقي المواد من الملفات الاخرى مع ملاحظة تغير اسم الملف في سطر المسار من الكود كذلك عليك تغير باقي المسار وحسب مكان المجلد في جهازك يفضل وضع المجلد في القسم C ولاحظ الشرح في الصورة المرفقة داخل المجلد يمكن لك كذلك عمل ارتباط بين الملف الرئيسي والفروع كالتالي: اذهب للملف الفرعي ثم حدد نطاق البيانات واختر نسخ ثم اذهب للملف الرئيسي واختر نطاق لصق البيانات وحسب اسم الماده على ان يتساوى النطاقين في الملف الرئيسي والفرعي ثم اختر نوع اللصق (لصق ارتباط) ثم في الملف الرئيسي في الاعلى اختر تبويب بيانات ثم تحرير الارتباطات ثم مطالبة بدء التشغيل اختر اخر خيار (عدم عرض التنبيه وتحديث الارتباطات ) ثم موافق ملف العمل - Copy.rar

لاثراء الموضوع تم اضافة معادلة صفيف على حل الاخ ali mohamed ali ولفرضنا ان النطاق من ( A1:H18 ) يحتوي على اصفار سوف نحصل على نتائج لاصغر قيمة هو (الصفر) وهذا ما لانحبذه معادلة الصفيف سوف تعطي اصغر قيمة ماعدا الصفر ايجاد أصغر رقم فى عدة خلايا متفرقة ماعدا الصفر.xlsx

جرب الملف المرفق تم عمل 1- ترحيل المتاخرين في ورقة المتاخرين لكل عمارة بنطاق خاص بها اعتمادا على العمود D 2- حذف النطاقات قبل تنفيذ الكود لكي تكون البيانات محدثه (وللتجربة حدث البيانات ثم رحل ) الايجارات - ايهاب .xlsm

لاثراء الموضوع اكثر وبعد اذن استاذنا الفاضل سليم جرب الملف المرفق البحث في اوراق عمل متعددة من خلال فورم بحث الشرح موجود داخل الملف الكود المستخدم للعلامه عبدالله باقشير بحث في اوراق عمل متعددة.xlsm

استاذي الفاضل فتحي ابو الفضل بعد التحية 1- فيما يخص هوامش الطباعة تم تفعيل السطر Application.Dialogs(xlDialogPrinterSetup).Show حيث سيظهر لك صندوق اختيار نوع الطابعة اذا كانت نوع A3 او A4 لك الاختيار ويجب ان تكون مثبته على جهازك كذلك يمكن لك ضبط هوامش الطباعة من خلال تبوبيت (تخطيط الصفحة ثم العرض والطول ) والكود يعمل حسب هذا الضبط 2- فيما يخص فلترة الصفوف ارجوا ملاحظة الشرح في الصوره المرفقه وهذا شي مهم لفلترة الصفوف عند تطبيق الكود على الاوراق الاخرى يجب ان تاخذ هذا بنظر الاعتبار 3- فيما يخص الباسورد تم حذف سطر الغاء وتفعيل الحماية من خلال الكود 4- الكود يعمل بشكل جيد وانا شخصيا استخدمه في بعض الملفات التي تحوي اوراق عمل تتضمن بيانات اعمدة وصوف كثيرة مرتب22.xlsm

جرب الكود على فرض طباعة الورقة ( كشف 1 155) يقوم باخفاء الاعمدة والصفوف التي مجموعها صفر اثناء الطباعة وعلى فرض ان الورقة محمية البساوورد (123) Sub DetectPrint155() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ActiveSheet.Unprotect Password:="123" '1- إخفاءالاعمدة التي مجموعها صفر ضمن المدى المحدد Set sh12 = Sheets("155 كشف 1") For Each Cl In sh12.Range("G45:CC45") If Cl = 0 Then Cl.Select Selection.EntireColumn.Hidden = True ' End If Next '2- عمل تصفية للصفوف ضمن العمود والمدى المحدد لاخفاء الصفوف التي مجموعها صفر Columns("CM:CM").Select Selection.AutoFilter ActiveSheet.Range("$CM$2:$CM$45").AutoFilter Field:=1, Criteria1:="A" '3- اظهار صندوق اختيار نوع الطابعة 'Application.Dialogs(xlDialogPrinterSetup).Show ' 4-طباعة ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False '5- الغاء تصفية الصفوف ActiveSheet.Range("$CM$2:$CM$45").AutoFilter Field:=1 Range("b4").Select '6- اظهار الاعمدة التي مجموعها صفر Columns("G:CC").EntireColumn.AutoFit '7- اعادة تعيين عرض الاعمدة التي مجموعها صفر Columns("G:CC").Select Selection.ColumnWidth = 13.5 Range("C5").Select ActiveSheet.Protect Password:="123" End Sub مرتب22.xlsm

استاذ محمد عذرا لم اتمكن من تحميل الملف الذي ارفقته عموما في الملف المرفق اختيار صف من خلال قائمة منسدلة وحسب معيار محدد والمعيار هنا (A;B) عله يلبي طلبك تحديد صفوف من خلال قائمة منسدلة لغرض اخفائها.xlsm

تفضل اخي عله المطلوب . علما تم الاستفادة من كود منشور سابقا في الموقع وتطبيقه على ملفك Test11 نقل الاسماء بدون تكرار مع الترتيب الابجدي.xls

تم وضع شرط بداية الدالة للتخلص من رسالة الخطأ N/A# والذي يظهر اذا لم تتمكن الصيغه من العثور علي قيمه مرجعيه بمعنى ادق في مثالك اذا كان حقل الكود فراغ يجب ان يكون حقل الرقم القومي ايضا فراغ وهذا ماصحح من عمل الدالة في حالة السحب العمودي صيغة اخرى للتخلص من هذا الخطأ =IFERROR(VLOOKUP(G2;$A$1:$C$9;3;FALSE);"")

اذا كنت تقصد حماية الورقة وليس المصنف ويمكن عمل ذلك التوافق من خلال الاكواد في المثال ادناه : - الكود الاول تصفية مع وجود الحماية ضمن عمود ونطاق معين ومعيار التصفية هنا الحرف (A) - الكود الثاني الغاء التصفية بوجود الحماية - نضع سطر الغاء الحماية في بداية الكود - ونضع سطر تفعيل الحماية في نهاية الكود - وعلى افتراض ان الباسورد هنا 123 Sub Worksheet_Protection_Filter() Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="123" Columns("H:H").Select Selection.AutoFilter ActiveSheet.Range("$H$1:$H$18").AutoFilter Field:=1, Criteria1:="A" Range("H1").Select ActiveSheet.Protect Password:="123" End Sub Sub Cancel_filter() Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="123" Cells.Select ActiveSheet.ShowAllData ActiveSheet.Protect Password:="123" End Sub file all.xlsm

يمكن لك تحديد ناحية الطباعة من خلال تبويب (عرض) ثم (معاينة فواصل الصفحات) ثم من خلال الماوس اسحب ناحية الطباعة والكود يعمل على حسب ناحية الطباعة المحددة

جرب هذا الكود امكانية المعاينة قبل الطباعة ثم اختيار طباعة عمل الكود:- 1- تغير التنسيق (حجم الخط ونوعه) ويمكن لك تغيرهم في الكود نفسه 2-معاينة الطباعة 3- اختيار الطباعة 4- ارجاع تنسيق (حجم الخط ) الى ماكان عليه قبل تنفيذ الكود طباعة-تغيرالتنسيق - ارجاع التنسيق السابق.xlsm

وهنا عن طريق الاكواد مع ملاحظة ان الاكسل يقوم بتقريب 1.5 ≈ 2 في حالة اختيار الارقام كاعداد صحيحة فقط وهذا مايؤدي الى اختلاف الجمع بين الحاسبة اليدوية والاكسل جمع رقمين بعد الفاصلة فقط.xls

() Sub copy_paste 'كود منع اهتزاز الشاشة Application.ScreenUpdating = False 'كود اختيار نسخ البيانات من ملف معين ويمكن تغير المدى بما يلائم عملك Range("A1:G18").Select Selection.Copy كود ارسال البيانات المنسوخه ولصقها في الملف الهدف "القيم فقط'" 'ويمكن لك تغير اسم الملف والمسار بما يتلائم وعملك "Workbooks.Open Filename:="C:\Users\nabil\Desktop\file b.xlsm Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False 'كود حفظ العمل ActiveWorkbook.Save 'كود غلق الملف المستهدف ActiveWindow.Close Range("A1").Select End Sub

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

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

فيما يخص المشكلة الثانة تم حلها بعد تصميم شيت القيود اليومية في ورقة اخرى مما يترتب عليه دخول وخروج للورقه وتنتهي المشكلة بهذ الاجراء اما المشكلة الاولى لم تحل

اخ حمادة المرفق بعد الغاء كلمة سر محرر الاكواد واسف على هذا الخطأ تحياتي combobox.rar

استاذ سليم اسف على التاخير وهذا رابط الموضوع

هل الموضوع معقد لهذه الدرجة ؟ ام لم استطع ايصال الفكرة بشكل صحيح ؟