بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 18 نوف, 2022 in مشاركات
-
تفضل جرب اخي 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 اظهار نطاق محدد.xlsm2 points
-
الشكر موصول لحضراتكم وللمنتدى الرائع بالفعل البرنامج مصمم للعمل على النواه 32 وهناك الاصدار الثانى تم تطوير بشكل ممتاز وجارى الانتهاء من والرفع أما بالنسبة لشرح القوائم سوف اقوم بتسجيل فيديو ليكون أوضح للسادة الاعضاء السلام عليكم2 points
-
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.rar1 point
-
1 point
-
حاول وضع هدا الكود في حدث الشيت ..... سيتم تغيير تنسيق الخلايا في عمود التاريخ تلقائيا بعد جلب البيانات يمكنك تعديل الكود على حسب النطاق الموجود عندك في الملف الرئيسي 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 وهدا مثال على ملفك لتغيير تنسيق الخلايا بعد جلبها بالمعادلات من شيت اخر بتنسيقات مختلفة. وفلترة التواريخ بدون مشاكل بالتوفيق اظهار نطاق محدد.xlsm1 point
-
وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر1 point
-
وعليكم السلام 🙂 اريد مرفق فيه بعض البيانات الحقيقة ، فالتاريخ مكّار مثل الثعلب 🙂 جعفر1 point
-
1 point
-
السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق مع تنظيم للفورم... فورم بحث برقم الجلوس وبه إضافة وتعديل وحذف.xlsm1 point
-
1 point
-
اخي الدكتور حلبي 🙂 يمكنك الاستعانة ببرنامج مجاني مثل https://www.irfanview.com/ لتكبير وتصغير واللعب بالصور كما تشاء 🙂 واسمح لي ادلك على برنامج مجاني تقوم بتنصيبه اسمه Lunacy من الموقع : https://icons8.com/lunacy فيه اشياء اكثر بكثير من حاجتي ، ولكني انزلته لأن به ايقونات 🙂 هذا شرح سريع لإستعمال البرنامج للأيقونات : 1. ايقونات 2. مجموعة الايقونات اللي تريدها او تبحث عنها . 3. تنقر على الايقونة باليسار 4. تلقائيا تصبح موجودة للاستعمال ، فاختار المكان المناسب في الشاشة ، وانقر باليسار لتثبت في مكانها ، وترى حجمها 5. من اطراف المربع المحيط بالصورة ، تقدر تعمل تكبير/تصغير/دوران 6. تقدر تعمل تكبير/تصغير بدقة اكثر . 7-10. لحفظ صورة الايقونة . 11. ولما فتحت الملف ببرنامج خارجي ، تأكد لي حجم الملف لذي تم تحفظه في برنامج Lunacy 12. وتأكد لي ان خلفيته شفافة 🙂 . جعفر1 point
-
وعليكم السلام ورحمة الله وبركاته اهلا بك مالك استخدم خاصية البحث تجد العديد من الموضوعات ذات الصلة ... وان لم تجد ما تحتاجه ارفق مثالك مع التوضيح للمطلوب1 point
-
السلام عليكم ورحمة الله لا يمكن التعديل على الملف الموجود على قوقل شيت Google Sheets لأنه للقراءة فقط... يجب في هذه الحالة (بعد إمكانية التعديل) إدراج عمودين جديدين أحدهما لـ "اسم الطالب" والآخر لـ "هل الطالب..؟" ثم بماكرو أو معادلات يتم ملء صفوف هذين العمودين بما هو موجود بالثمانية أعمدة الأخرى (أربع أعمدة لـ "اسم الطالب" وأربع أعمدة لـ "هل الطالب...؟") صفا بصف... وبعد ذلك الترتيب الذي تريده... ننتظر منك "السماح بخاصية التعديل على الملف"... ملاحظة : يمكنك أيضا وضع الملف بالمرفقات وبعد التعديل عليه يتم إرساله إلى موقع "قوقل شيت".1 point
-
السلام عليكم لي مداخلة صغيره المفروض ان الكتاب يحفظ برقمه وتاريخة وليس عنوانه لان العناوين تتكرر تحياتي للجميع1 point
-
السلام عليكم أخي محمد الحلبي تفضل هذا الموقع وفية تجد كل الاحجام المطلوبة والكثير من الايقونات الجميلة . بالتوفيق https://iconarchive.com/tag/pc1 point
-
السلام عليكم أخي الكريم تفضل الملف بعد التعديل كان ناقص فقط الكود التالي الظاهر انك نسيت ان تنقله الى برنامجك. 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.rar1 point
-
1 point
-
للحصول على الدينار استخدم دالة fix كالتالي: D = Fix(Amount) وللحصول على الفلوس (جمع فلس" استخدم إحدى المعادلتين: بالاستفادة من المعادلة أعلاه F = (Amount - D) * 1000 أو بشكل مباشر F = (Amount - Fix(Amount)) * 10001 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته .... استخدم مثلا Select Case Me.m1.Column(1)1 point
-
1 point
-
1 point
-
مبروك الأستاذ حسونة إنضمامك لأسرة فريق الموقع ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك .. وأهلاً ومرحباً بك بين أخوتك من أسرة فريق المنتدى الكريم ..ويسعدنا انضمامك لفريق العمل1 point
-
1 point
-
ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز1 point
-
1 point
-
وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022 ..وأما بالنسبة لما لا يظهر معك من عقوبة ومهمة وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm كشف حضور 1مميز.xlsx1 point
-
وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة =VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx1 point
-
1 point
-
وعليكم السلام -على الرغم من كثرة طلباتك !!! - تفضل لك ما طلبت جدول 1المباريات.xlsx1 point
-
بارك الله فيك استاذ أحمد عمل ممتاز وهدية بالطبع رائعة ومقبولة .جزاك الله خير الثواب وجعل الله هذا العمل فى ميزان حسناتك1 point
-
عود حميداً أستاذنا القدير ضاحى .. ودائما تفاجئنا بروائع ممتازة عمل قمة فى الدقة والمهارة ماشاء الله , اللهم اجعل هذا العمل فى ميزان حسناتك وبارك الله فيك أستاذ ضاحى وشكراً جزيلاً على هذه الهدية الممتازة وحشتنا كتير ..اللهم لا تحرمنا من طلاتك علينا وتواجدك فى بيتك الثانى دائماً منتدى أوفيسنا ..اللهم بارك لنا فى جميع أساتذتنا وارحم ياربنا كل من فارقنا واجعل قبره روضة من رياض الجنة وجنبه النيران يا أرحم الراحمين1 point
-
السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى 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 أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا1 point
-
1 point
-
بارك الله فيك أخي الحبيب ومعلمي الكبير أحمد يعقوب وهذا ملف للأستاذ الكبير محمد الريفي بالمعادلات إثراءً للموضوع Transpose Rows And Columns.rar1 point
-
وعليكم السلام استخدم معادلة IF بشكل بسيط لتحقيق المطلوب =IF(A5-B5=0,"//////",A5-B5)1 point
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مشاركة من الفاضل أ / عبدالله باقشير مرفق الملف و الشرح ___________.rar و لا تنسونا من صالح الدعاء تحياتى1 point
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة نسخ جميع الشيتات فى شيت واحد تم ارفاق كود الحل من الفاضل ا / سليم حاصبيا مرفق الملف و الشرح كود نسخ اوراق العمل و ترحيلها الى ورقة واحدة.rar و لا تنسونا من صالح الدعاء تحياتى1 point
-
أخي الكريم الدهشوري قمت بالبحث عن الدالة المعرفة وقمت بعمل معادلة لتناسب طلبك .. أرجو أن يفي الملف المرفق بالغرض إن شاء الله Days Tafkeet.rar1 point