نجوم المشاركات

ههههه نعم لدي اكثر من طريقة ولكن الاسهل باستخدام جدول مؤقت ونستخدم معيار القائمة لغرض الحاق البيانات المفلترة اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله الشايب basey(٢).accdb

بعد اذن أستاذى @Foksh يجب شرح ما تريد بالضبط Database11 (1).accdb

Sub Print_certificates() Dim wb As Workbook, wsData As Worksheet, wsDest As Worksheet Set wb = ThisWorkbook: Set wsData = wb.Sheets("Mark All"): Set wsDest = wb.Sheets("Moncer") Application.ScreenUpdating = False On Error Resume Next With ActiveWorkbook fPath = .path & Application.PathSeparator & "شهادات الطلاب" & Application.PathSeparator If Len(Dir(fPath, vbDirectory)) = 0 Then End If MkDir fPath For List = 9 To wsData.Cells(Rows.Count, "B").End(xlUp).Row F = wsData.Cells(List, "B") wsDest.[B8] = F: wsDest.[T1] = F wsDest.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & F & ".pdf" 'wsDest.PrintOut Next List On Error GoTo 0 End With End Sub Test12.xlsm

أخي الكريم ، يسعدني أن أشاركك ملف للأستاذ @Moosak فيه تستطيع استيراد وتصدير ملفات المكتبات لأي مشروع Reference Management.accdb

إذا كان المطلوب أن يعمل الكود في حدث التغيير في جميع الشيتات فيجب وضع الكود في هذا المصنف thisworkbook وإذا كان المقصود بالأسطر الصفوف فيمكنك استعمال هذا الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [v1] = 28 Then Sh.Rows("1363:1387").Hidden = True Sh.Rows("1361:1362").Hidden = False Else Sh.Rows("1363:1387").Hidden = False Sh.Rows("1361:1362").Hidden = True End If End Sub ويمكن اختصاره إلى هذا Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Sh.Rows("1363:1387").Hidden = IIf([v1] = 28, True, False) Sh.Rows("1361:1362").Hidden = IIf([v1] = 28, False, True) End Sub بالتوفيق

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

الحمد لله على انقضاء حاجتك وكما ذكر استاذنا انها اسهل طريقة تم استخدام جدول مؤقت واستعلامين ( الحاق وتحديد ) كل هذا من اجل جزء صغير في الفلترة يتبين لنا _ وهي دروس لمن يمر من طلاب العلم _ اهمية الاعتناء بتصميم الجداول ابتداء على الطرق العلمية الصحيحة

تفضل الشرح .

طيب ايه. الغرض من رفع الملف

شكرا لك أخي @Foksh على المشاركة 🙂 ولكن لا أذكر أن هذا الملف لي .. وهو على فكرة كنز ثمين 😄👌🏻

اح @محمد هشام. الكود يعمل بشكل جيد بعاذر منك الخطأ مني بالنسبة لاسم الملف ليكون الاسم في الخلية J1 من الصفحة moncer شكرا جزيلا لك

تفضل أخي ... برودروه يومية الخزينة لأعمال النقل0000.xlsx

جزاكم الله خيراً علي المساعدة

سبق ان اشرت اليها في مشاركتي الاولى وكذلك في ردي على مشاركة استاذنا ابو خليل لذا جرب المرفق نفس كود اخي جعفر ولكن يفلتر الحقل المجمع في Column(3) الاخ شايب يفضل النظر في الملاحظات التي اشار اليها ولكن النفس وما تريد الشايب basey(1).accdb

قد وضح لك استاذنا الشايب من اين مكمن الخطأ انظر محاولته الاخيرة اعلاه لحل المشكلة

السلام عليكم ورحمة الله وبركاته وبها نبدأ من فترة كبيرة لم أدخل المنتدى وبالفعل أشتاق اليكم يشرفني ان ارفع شرح أحد الأفكار البسيطة كنت قد قدمتها وهي بالفعل نقطة في بحر القائمين على المنتدى

الحمد لله الذي وفقنا لهذا الكود ترجمة لمطلوبك تماما اذا كانت قيمة الخلية V1 = 28 يظهر الصفوف كذا ويخفي كذا واذا لم تكن 28 يعمل العكس وفقنا الله جميعا لكل ما يحبه ويرضاه

تقريبا قام أحد المستخدمين بحذف أعمدة حركت خلية العدد الكلي للأسماء من Z2 إلى U2 يمكنك تغيير هذا السطر في الكود Loop While ActiveCell.Value <= Range("Z2").Value إلى Loop While ActiveCell.Value <= Range("U2").Value بالتوفيق

هل هذا ما تريد لاحظ الاستعلامات الجديده S3 , S4 S1 , S2 يمكنك حذفهم JO.rar

تمام هل يوجد فلترة اخرى ؟ مثلا تضم الدرجات او الأفواج لأن العمل يجب ان يأخذ بالاعتبار

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

جميعا يا رب العالمين

تم حل هذا الموضوع قبل ذلك إن شاء الله يفيدك هذا الموضوع مع فارق الألف درهم يساوي واحد دينار والمائة قرش تساوي واحد جنيه بالتوفيق

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

أبسط هذه الطرق استعمال دالة image =IMAGE("https://quickchart.io/qr?size=100&text="&A2) خيث A2 هي الخلية التي بها النص المراد تحويله ولمن ليس لديه دالة image يمكن استخدام هذه الدالة المعرفة Function masqr(mytext As String) Dim URL As String, myrng As Range, myshp As Shape Set myrng = Application.Caller URL = "https://quickchart.io/qr?size=100&text=" & mytext On Error Resume Next ActiveSheet.Pictures("myqr" & myrng.Address(False, False)).Delete ActiveSheet.Pictures.Insert(URL).Select Set myshp = Selection.ShapeRange.Item(1) myshp.Placement = xlMoveAndSize With myshp .LockAspectRatio = msoFalse .Name = "myqr" & myrng.Address(False, False) .Left = myrng.Left .Top = myrng.Top End With masqr = "" End Function وطريقة استخدامها =masqr(A2) بالتوفيق

عليكم السلام عكس دالة power هي دالة log =log(30,2) ربما تعطي كسورا ولأنك تريد أن تتغير 30 إلى رقم أكبر يمكنك جبر كسر الرقم لأعلى ceiling مثلا بالتوفيق

شكر وتقدير واحترام من اخيك

من أطلق عليك اغلى من الدهب صدق Showbox jiofi.local.html tplinklogin

المشكلة فى نوع الوندز حملية على جهاز اخر واحفظية بطريقة حفظ 79 /2003 فيه طرق للمعالجة صعبة اعملى بحث على اليوتيوب

سبق ان تم ايضاح ذلك ⬇️ بل يوجد لكن الفكرة باختصار تتطلب وجود حقل في جدول يتم تحديثة بالقيمة الافتراضية كلما قمنا بتغييرها ويبقى الحقلين aa و bb غير منضمة bb يحدث القيمة و aa يحصل على القيمة الافتراضية باستخدام DLookup او احدى شقيقاتها ولكن ننتظر رأي الاساتذة ربما لديهم افكار افضل

جرب هذا الماكرو البسيط Sub savepdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\pdf\" & Range("c4").Value End Sub حفظ بصيغة pdf تلقائيا.xlsm

بسم الله الرحمن الرحيم الحمد لله رب العالمين كثيرا ما يشغل بالي ولا أدري أيشغل هذا الأمر بال الإخوة الزملاء أم لا؟ موضوع توافق الدوال بين إصدارات الإكسل حيث أنني أستعمل أوفيس 2010 وأريد أن أعلم : هل هذه الدالة متوافقة مع إصدار 2003 مثلاً أو لا؟ وهل هي متوافقة مع 2007 أم لا؟ وما هي الدوال الجديدة في إكسل 2010؟ والحمد لله قمت بعمل هذا البحث البسيط الذي يضم كل هذه المعلومات وأكثر .............. ومن هنا أعرض على الإخوة أن يعرض كل واحد منا تجربته واستخداماته لكل دالة من هذه الدوال مع مثال حتى نتمكن من جمع كل ما يخص دوال الإكسل من شرح وأمثلة في هذا الموضوع بإذن الله ........... وبهذا المشروع بإذن الله تكتمل دائرة معرفة الإكسل فالإكسل معادلات وأكواد والأكواد وال vba يتم مناقشتها في الدورة وهنا يتم مناقشة المعادلات والدوال ولا تنسوني من صالح دعائكم ولا تنسوا مصر من صالح دعائكم ************** تم حذف المرفق لوجود نسخة أحدث هنا في المشاركة 11# ويمكن التحميل مباشرة من هنا http://www.officena....attach_id=49058

شكرا لكل الإخوة الكرام على المرور الكريم منياوى أبوبكر مسعودي وليد فتحي وفقنا الله جميعا لكل خير

تفضل ، جعلتها دالتين textNum و Numtext فصل الحروف عن الارقام دالة .rar

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

أخي الكريم سعد مضمون الطريقة التي أخبرنا بها الأخ الشهابي عن أخينا أحمد زمان هي نفسها التي أخبرك بها الأخ طارق مع ميزة الاختصار وللجمع بين الدالة التي كتبها الأخ طارق ودالة الأخ أحمد زمان استعمل هذه المعادلة في الخلية C9 =SUMPRODUCT(--(INDIRECT(B9&"!$B$8:$B$100")<=$H$5), --(INDIRECT(B9&"!$B$8:$B$100")>=$C$5),INDIRECT(B9&"!$k$8:$k$100")) وأخبرني بالنتيجة لأنه كان هناك خطأ في كتابتنا للمعادلة من الذاكرة ولم أنتبه أن المدى الأخير يخص العمود k وليس b

شكرا لمرورك أخي طارق مش عارف فاتت علي إزاي الحيلة دي؟؟!! يمكن لانشغالي بموضوع الدوال .... بالفعل أخي عبد الله الموضوع يحتاج فقط لتغيير تنسيق الخلايا مرفق ملفك أخي سعد بعد التعديل السيارات.rar

أشكر جميع المشاركين في الموضوع بفضل الله تم الانتهاء من مجموعة الدوال الموجودة في الفئة المنطقية excel-functions.rar

شكرا لمرورك أخي طارق هذا ما كنت أفكر فيه عمل ملف يحوي جميع الدوال بمعلومات تفصيلية عنها وأمثلة وهذا ملفي بعد التعديل تم إضافة عمود لبناء جملة المعادلة تم إضافة شيت لكل دالة تم إضافة حقول جديدة في صفحة الدالة تم الربط بين الجميع والفهرس باستخدام الارتباط التشعبي تم اعتماد تنسيق ملفات إكسل 2007 وما بعدها XLSX وذلك لمتابعة العمل مع الدوال الحديثة في إكسل 2007 و 2010 وعددها 75 دالة وأيضا لسرعة حفظ الملف حيث يستهلك حفظ الملف بصيغة xls فترة زمنية كبيرة جداً .................. أتمنى من جميع الإخوة التواصل في هذا الموضوع قدر الاستطاعة وملء جميع الحقول عن كل دالة حسب وقت فراغ كل منا ............... طريقة تنفيذ المشروع * الاعتماد على آخر ملف تم رفعه حتى يكون الملف به آخر التحديثات التي قام بها الإخوة الزملاء (ويفضل حذف الملفات التي تم صدور نسخة أحدث منها حتى لا يتشتت الأعضاء) * يمكن للجميع المشاركة بخبرته أو بالنقل من تعليمات إكسل 2010 http://office.micros...010369014&CTT=4 **************** أنا أعمل الآن على الدوال في الفئة (النصية) وفقنا الله وإياكم لكل ما يحب ويرضى اللهم احفظ مصر وأهلها من كل سوء

بارك الله لك أخي عبد الله والشكر موصول للأخ حسن new4a

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

أخي الكريم سعد أعتقد والله أعلم لا يوجد فصل لاسم الشيت عن باقي المسار للنطاق بمعنى أنه يمكنك وضع اسم الشيت والنطاق الخاص به في خلية ثم قراءته كمدى من خلال الدالة indirect جرب مثلا أن تضع في الخلية b9 هذه القيمة 1!$B$8:$B$100 ثم عدل المعادلة التي في الخلية c9 إلى =SUMPRODUCT(--(INDIRECT(B9)<=$H$5), --(INDIRECT(B9)>=$C$5),INDIRECT(B9)) أتمنى أن أكون وفقت في الوصول معك لحل لهذا المطلوب