نبيل عبد الهادي
-
Posts
125 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه نبيل عبد الهادي
-
-
تفضل اخي
تم لتعديل على الملف في حالة اضافة اسم جديد في اي من الكشوفات مع ضرورة ملاحظة الشرح في ورقة (كشف1) عند الصف 26
-
اختر من خلال القائمة المنسدلة
-
تفضل اخي عله المطلوب
تم تصميم مفردات مرتب وكالتالي:-
ورقة مفردات مرتب1 = كشف1
ورقة مفردات مرتب2 = كشف2
ورقة مفردات مرتب3 = كشف3
اختر اسم من مربع السرد
اما التفقيط حسب الكود في ملفك بعد وضع الدالة في خلية الصافي
-
1
-
-
المفترض ان تقوم بأرفاق ملف ..
عموما وحسب فهمي لطلبك ضع الكود التالي في حدث الورقة وعلى افتراض ان العمود 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 ولاحظ الشرح في الصورة المرفقة داخل المجلد
يمكن لك كذلك عمل ارتباط بين الملف الرئيسي والفروع كالتالي:
اذهب للملف الفرعي ثم حدد نطاق البيانات واختر نسخ ثم اذهب للملف الرئيسي واختر نطاق لصق البيانات وحسب اسم الماده على ان يتساوى النطاقين في الملف الرئيسي والفرعي ثم اختر نوع اللصق (لصق ارتباط) ثم في الملف الرئيسي في الاعلى اختر تبويب بيانات ثم تحرير الارتباطات ثم مطالبة بدء التشغيل اختر اخر خيار (عدم عرض التنبيه وتحديث الارتباطات ) ثم موافق
-
لاثراء الموضوع تم اضافة معادلة صفيف على حل الاخ ali mohamed ali
ولفرضنا ان النطاق من ( A1:H18 ) يحتوي على اصفار سوف نحصل على نتائج لاصغر قيمة هو (الصفر) وهذا ما لانحبذه
معادلة الصفيف سوف تعطي اصغر قيمة ماعدا الصفر
-
جرب الملف المرفق تم عمل
1- ترحيل المتاخرين في ورقة المتاخرين لكل عمارة بنطاق خاص بها اعتمادا على العمود D
2- حذف النطاقات قبل تنفيذ الكود لكي تكون البيانات محدثه (وللتجربة حدث البيانات ثم رحل )
-
1
-
-
لاثراء الموضوع اكثر وبعد اذن استاذنا الفاضل سليم جرب الملف المرفق البحث في اوراق عمل متعددة من خلال فورم بحث
الشرح موجود داخل الملف
الكود المستخدم للعلامه عبدالله باقشير
-
استاذي الفاضل فتحي ابو الفضل بعد التحية
1- فيما يخص هوامش الطباعة تم تفعيل السطر
Application.Dialogs(xlDialogPrinterSetup).Show
حيث سيظهر لك صندوق اختيار نوع الطابعة اذا كانت نوع A3 او A4 لك الاختيار ويجب ان تكون مثبته على جهازك كذلك يمكن لك ضبط هوامش الطباعة من خلال تبوبيت (تخطيط الصفحة ثم العرض والطول ) والكود يعمل حسب هذا الضبط
2- فيما يخص فلترة الصفوف ارجوا ملاحظة الشرح في الصوره المرفقه وهذا شي مهم لفلترة الصفوف عند تطبيق الكود على الاوراق الاخرى يجب ان تاخذ هذا بنظر الاعتبار
3- فيما يخص الباسورد تم حذف سطر الغاء وتفعيل الحماية من خلال الكود
4- الكود يعمل بشكل جيد وانا شخصيا استخدمه في بعض الملفات التي تحوي اوراق عمل تتضمن بيانات اعمدة وصوف كثيرة
-
جرب الكود على فرض طباعة الورقة ( كشف 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 -
استاذ محمد عذرا لم اتمكن من تحميل الملف الذي ارفقته
عموما في الملف المرفق اختيار صف من خلال قائمة منسدلة وحسب معيار محدد والمعيار هنا (A;B) عله يلبي طلبك
-
1
-
-
تفضل اخي عله المطلوب . علما تم الاستفادة من كود منشور سابقا في الموقع وتطبيقه على ملفك
-
1
-
-
تم وضع شرط بداية الدالة للتخلص من رسالة الخطأ 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-
1
-
-
يمكن لك تحديد ناحية الطباعة من خلال تبويب (عرض) ثم (معاينة فواصل الصفحات) ثم من خلال الماوس اسحب ناحية الطباعة والكود يعمل على حسب ناحية الطباعة المحددة
-
جرب هذا الكود امكانية المعاينة قبل الطباعة ثم اختيار طباعة
عمل الكود:-
1- تغير التنسيق (حجم الخط ونوعه) ويمكن لك تغيرهم في الكود نفسه
2-معاينة الطباعة
3- اختيار الطباعة
4- ارجاع تنسيق (حجم الخط ) الى ماكان عليه قبل تنفيذ الكود
-
2
-
-
وهنا عن طريق الاكواد
مع ملاحظة ان الاكسل يقوم بتقريب 1.5 ≈ 2 في حالة اختيار الارقام كاعداد صحيحة فقط وهذا مايؤدي الى اختلاف الجمع بين الحاسبة اليدوية والاكسل
-
() 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 -
للتوضيح اكثر كما في الصورة المرفقة وقد وجدت من خلال البحث في الموقع اكواد تفقيط ولكنها لاتحول النسبة المئوية الى نص ارجوا المساعد
-
اخواني الاعزاء . السلام عليكم
المطلوب كود او دالة تقوم بتحويل الرقم الذي يحتوي على نسبة مئوية الى نص وحسب الشرح الموجود في المرفقات . مع تحياتي
-
فيما يخص المشكلة الثانة تم حلها بعد تصميم شيت القيود اليومية في ورقة اخرى مما يترتب عليه دخول وخروج للورقه وتنتهي المشكلة بهذ الاجراء
اما المشكلة الاولى لم تحل
-
اخ حمادة المرفق بعد الغاء كلمة سر محرر الاكواد واسف على هذا الخطأ تحياتي
-
استاذ سليم اسف على التاخير وهذا رابط الموضوع
-
هل الموضوع معقد لهذه الدرجة ؟ ام لم استطع ايصال الفكرة بشكل صحيح ؟
دالة التقريب تعطي نتائج خاطئة
في منتدى الاكسيل Excel
قام بنشر
الدالة INT تقريب العدد الحقيقي الذي تريد تقريبه إلى عدد صحيح أصغر منه
مثال
=INT(8.9) ====> 8استخدم دوال التقريب للاعلى او الادني وحسب مايلي
للتقريب إلى الأعلى دوماً (بعيداً عن الصفر) استخدم الدالة ROUNDUP
للتقريب إلى الأدنى دوماً (باتجاه الصفر)، استخدم الدالة ROUNDDOWN
لتقريب رقم إلى مضاعف معين (مثل التقريب إلى أقرب 0.5)، استخدم الدالة MROUND
إذا كانت الخلية A1 تحتوي على الرقم 23.7825، وكنت تريد تقريب هذه القيمة إلى منزلتين عشريتين، فيمكنك استخدام الصيغة التالية:
=ROUND(A1, 2)
ناتج هذه الدالة هو 23.78