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

تفضل جرب اخي Public Sub Filter() Dim rng1 As Long, rng2 As Long rng1 = Range("G2").Value rng2 = Range("G4").Value Range("A9:A1000").AutoFilter Field:=1, _ Criteria1:=">=" & rng1, _ Operator:=xlAnd, _ Criteria2:="<=" & rng2 End Sub اظهار نطاق محدد.xlsm

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

Generate PDF Dahy VBA Skills fun موضوعنا النهاردة موضوع شيق مدخل للدرس الثالث للفورم التفاعلي وفي نفس الوقت ها نتعرف فيه علي أدوات ها توفر الوقت والمجهود لشريحة كبيرة تستخدم قالب معين مثل الموارد البشرية لما ترسل طلبات التوظيف المالية لمطابقات كشوف الحساب للموردين واحنا داخلين علي موسم الجرد الختامي والبنوك او الشركات او المواقع التي ترسل رسائل دورية وما الي ذلك انا اخترت المثال علي شئون الموظفين وطلبات التوظيف وهانتعرف علي كيفية التعديل علي النموذج Word عن طريق الفورم عناصر الدرس ملف Templet word القالب المستخدم اداة Microsoft Outlook 16.0 Object Library أداة Microsoft Word 16.0 Object Library ونتعلم مع بعض VBA Dynamic Code وكيفية عمل ملف PDF وارساله بالايميل الشرح نقوم بإضافة الأدوات في الفيجوال كما يلي من Tools نختار References Microsoft Outlook 16.0 Object Library اضافة أداة Microsoft Word 16.0 Object Library تحديد مسار القالب كما يلي شفت + كليك يمين علي ملف الوورد ثم نختار Copy as Path حسب موقع الملف علي جهازك انا عندي في برتيشن F "\F:\GeneratePDF\Template_Contract.docx" تحديد مسار حفظ ملفات PDF الذي يحفظها البرنامج F:\Generate and Preview طبعا يلي مش عارف يغير في الكود يقوم بحفظ الملف المرفق علي برتيشين الFبعد فك الضغط مباشرة . ملف الورد يلي نستخدمه كقالب ولاحظ المسميات يلي انت ظللتها بالاصفر نفس مسميات الليبل ف الفورم وضعتها بين علامتي ##لانها بيانات متغيرة سيتم اضافاتها من الفورم لاحظ معي عند استدعاء الملف بالورد شاهد النتيجة البرنامج اضاف البيانات المظلله بشكل تلقائي الوظيفة الثانية للبرنامج اني ببعت الملف بالايميل من البرنامج لتوفير الوقت والوظيفة في حالة التقارير الدورية او النشرات او حسب استخدام الفرد الذي يحتاج ارسال عدد كبير في نفس الوقت مع ملاحظة انه بشكل تلقائي بياخد الايميل من الفورم ويضيف اسم الموضوع والمرفقات كما بالكود بشكل تلقائي طبعا الشرح موجز لاهم العناصر انا برفق مع الشرح مثال عملي منه للشرح ومنه نستفيد منه او من الافكار يلي فيه وبكون منتظر حد يسال عن اي شئ داخل الملف بصدر رحب لكن للاسف كعادتنا نحفظ في الارشيف علي اية حال الملف بالمرفقات واي استفسار لا تترد كلنا بنتعلم مع بعض شارك وتفاعل انت تسال وذلك يسال واخر يجيب وكلنا هانستفيد الدرس القادم ان شاء الله هاشرح الاكواد ونتعرف علي كود الحغظ والتعديل والبحث الديناميكي لضمان عمل الملف اتبع الشرح السابق في اضافة الادوات ومسار الملف وبالتوفيق للجميع ولا تنسونا من دعائكم بظهر الغيب بصلاح الحال GeneratePDF.rar

وعليكم السلام ادخل على تصميم التقرير وفى الخصائص اجعل التقرير منبثق -- نعم

حاول وضع هدا الكود في حدث الشيت ..... سيتم تغيير تنسيق الخلايا في عمود التاريخ تلقائيا بعد جلب البيانات يمكنك تعديل الكود على حسب النطاق الموجود عندك في الملف الرئيسي Private Sub Worksheet_selectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A10:A1000")) Is Nothing Then Dim lastRow As Long lastRow = Cells.Find("*", [A9], , , xlByRows, xlPrevious).Row Range("A10:A1000" & lastRow).NumberFormat = "dd-mm-yyyy" Range("G2:G4").NumberFormat = "dd-mm-yyyy" End If End Sub وهدا مثال على ملفك لتغيير تنسيق الخلايا بعد جلبها بالمعادلات من شيت اخر بتنسيقات مختلفة. وفلترة التواريخ بدون مشاكل بالتوفيق اظهار نطاق محدد.xlsm

وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر

وعليكم السلام 🙂 اريد مرفق فيه بعض البيانات الحقيقة ، فالتاريخ مكّار مثل الثعلب 🙂 جعفر

ممكن ترفع الملف

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

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

اخي الدكتور حلبي 🙂 يمكنك الاستعانة ببرنامج مجاني مثل https://www.irfanview.com/ لتكبير وتصغير واللعب بالصور كما تشاء 🙂 واسمح لي ادلك على برنامج مجاني تقوم بتنصيبه اسمه Lunacy من الموقع : https://icons8.com/lunacy فيه اشياء اكثر بكثير من حاجتي ، ولكني انزلته لأن به ايقونات 🙂 هذا شرح سريع لإستعمال البرنامج للأيقونات : 1. ايقونات 2. مجموعة الايقونات اللي تريدها او تبحث عنها . 3. تنقر على الايقونة باليسار 4. تلقائيا تصبح موجودة للاستعمال ، فاختار المكان المناسب في الشاشة ، وانقر باليسار لتثبت في مكانها ، وترى حجمها 5. من اطراف المربع المحيط بالصورة ، تقدر تعمل تكبير/تصغير/دوران 6. تقدر تعمل تكبير/تصغير بدقة اكثر . 7-10. لحفظ صورة الايقونة . 11. ولما فتحت الملف ببرنامج خارجي ، تأكد لي حجم الملف لذي تم تحفظه في برنامج Lunacy 12. وتأكد لي ان خلفيته شفافة 🙂 . جعفر

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

السلام عليكم ورحمة الله لا يمكن التعديل على الملف الموجود على قوقل شيت Google Sheets لأنه للقراءة فقط... يجب في هذه الحالة (بعد إمكانية التعديل) إدراج عمودين جديدين أحدهما لـ "اسم الطالب" والآخر لـ "هل الطالب..؟" ثم بماكرو أو معادلات يتم ملء صفوف هذين العمودين بما هو موجود بالثمانية أعمدة الأخرى (أربع أعمدة لـ "اسم الطالب" وأربع أعمدة لـ "هل الطالب...؟") صفا بصف... وبعد ذلك الترتيب الذي تريده... ننتظر منك "السماح بخاصية التعديل على الملف"... ملاحظة : يمكنك أيضا وضع الملف بالمرفقات وبعد التعديل عليه يتم إرساله إلى موقع "قوقل شيت".

السلام عليكم لي مداخلة صغيره المفروض ان الكتاب يحفظ برقمه وتاريخة وليس عنوانه لان العناوين تتكرر تحياتي للجميع

السلام عليكم أخي محمد الحلبي تفضل هذا الموقع وفية تجد كل الاحجام المطلوبة والكثير من الايقونات الجميلة . بالتوفيق https://iconarchive.com/tag/pc

السلام عليكم أخي الكريم تفضل الملف بعد التعديل كان ناقص فقط الكود التالي الظاهر انك نسيت ان تنقله الى برنامجك. Public Function MakeDir(ByVal strPath As String) As Boolean On Error GoTo err_Handler 'Check if rightmost char is a \ If Right(strPath, 1) = "\" Then 'Strip it strPath = Left(strPath, Len(strPath) - 1) End If 'Check if each individual directory exists, and if not, create it Dim strSplitPath() As String strSplitPath = Split(strPath, "\") Dim intI As Integer Dim strCombined As String 'Loop through, creating each directory if needed For intI = 0 To UBound(strSplitPath) If intI <> 0 Then strCombined = strCombined & "\" End If strCombined = strCombined & strSplitPath(intI) If Dir(strCombined, vbDirectory) = "" Then MkDir strCombined End If Next 'Code ran to end without errors, so creation was succesfull MakeDir = True Exit Function err_Handler: MakeDir = False MsgBox "Error " & Err.Number & " occured." & vbNewLine & Err.Description End Function واليك الملف بعد الإضافة طبعا الشكر موصول للاخ خليفه على الكود تحياتي لك وبالتوفيق إن شاء الله. thaeer.rar

وجرب هذا أيضا: Database31_01.accdb

للحصول على الدينار استخدم دالة fix كالتالي: D = Fix(Amount) وللحصول على الفلوس (جمع فلس" استخدم إحدى المعادلتين: بالاستفادة من المعادلة أعلاه F = (Amount - D) * 1000 أو بشكل مباشر F = (Amount - Fix(Amount)) * 1000

وعليكم السلام 🙂 انا تجربتي كانت مع : https://icon-icons.com/ جعفر

وعليكم السلام ورحمة الله وبركاته .... استخدم مثلا Select Case Me.m1.Column(1)

والجواب على مشاركتي انا انا ، هل حلت المشكلة 🙂 جعفر

وعليكم السلام 🙂 مشاركة مع اخي ابو جودي 🙂 . . وهذه هي الدالة في الوحدة النمطية : Function Get_R(txt As String) As String If txt = "نجاح" Then Get_R = 1 ElseIf txt = "فشل" Then Get_R = 2 ElseIf txt = "Na" Then Get_R = 3 Else Get_R = 3 End If End Function جعفر fr.zip

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

بارك الله فيك أستاذ ضاحى وبالتوفيق دائماً

ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز

نعم أستاذى الكريم ولكن ان لابد ان تسبقها علامة لا تساوى داخل علامة التنصيص "<>"

وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022 ..وأما بالنسبة لما لا يظهر معك من عقوبة ومهمة وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm كشف حضور 1مميز.xlsx

وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة =VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx

أحسنت استاذ ضاحى دائماً مبدع بارك الله فيك وشكراً جزيلاً على هذا العمل الممتاز

وعليكم السلام -على الرغم من كثرة طلباتك !!! - تفضل لك ما طلبت جدول 1المباريات.xlsx

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

السلام عليكم تجد ماتبحث عنه هنا

بارك الله فيك أخي الحبيب ومعلمي الكبير أحمد يعقوب وهذا ملف للأستاذ الكبير محمد الريفي بالمعادلات إثراءً للموضوع Transpose Rows And Columns.rar

وعليكم السلام استخدم معادلة IF بشكل بسيط لتحقيق المطلوب =IF(A5-B5=0,"//////",A5-B5)

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مشاركة من الفاضل أ / عبدالله باقشير مرفق الملف و الشرح ___________.rar و لا تنسونا من صالح الدعاء تحياتى

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

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