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

لدي فكرة لتطوير هذا المقترح : 1- دعنا في هذا الموضوع نجمع المواضيع التي يتم ترشيحها للتصويت .. ومن ثم في موضوع جديد يتم عمل التصويت عليها 🙂 2- يتم تجميع المواضيع المتميزة خلال سنة 2022 إلى الآن مثلا .. (هل الفترة مناسبة ؟) 3 - يتم إعادة التصويت مرة أخرى في منتصف كل عام . 4- المواضيع المتميزة يتم وضعها في موضوع خاص بها يتم تثبيته لمدة محددة تكريما لأصحابها 🙂 5- يمكن اقتراح هدية معينة للفائزين 🧐 هل من أفكار إضافية ؟

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

وعليكم السلام ربما تحويل الاعمدة الى صفوف وتنسيق البيانات.xlsm

عليكم السلام حسب ما فهمت برنامج ترحيل.xlsm

عزيزي كما لا يخفى عليكم أن أساس قيمة حقل التاريخ والوقت ما هو إلا رقمي وما نراه نحن إلا تنسيقا نصيا لقيمته الرقمية ، وأنا الحقيقة لا أحول رقمي إلى رقمي بل أهرب من تاثير التنسيق النصي على قيمة التاريخ الرقمية كاحتراز حتى لا أقع كما غيري في مشكلات عدم نجاح المقارنات. بالطبع لا بد أن يكون نوع الحقل/الصندوق "تاريخ" وإلا سنضطر إلى استخدام دالة وسيطة وهي CDate قبل استخدام دالة CLng.

في دروس سابقة تناولنا معا بعض الحيل والافكار حول استخدام اليوزر فورم لتسهيل وتيسير ما امكن لانجاز الأعمال النهاردة فكرتنا حول استخدام الفورم في حالة الاصناف الكثيرة المتشابهة كقطع غيار السيارات والاكترونيات ....... الخ وهي عمل قائمة شقية خفيفة متنقلة تعطيك احساس التفاعل والراحة البصرية تظهر عند الضغط علي صنف معين لتظهر صورة الصنف وتفاصيله او وصفه ... الخ استخدمت مثال بسيط لتوصيل الفكرة وان شاء الله تكون فيها الفائدة والنفع اسيبكم لتجربة الملف واي استفسار او ملاحظة يسعدني ووفقنا الله واياكم للخير الملف بالمرفقات مع ملاحظة وضع ملف (PicForm) علي القسم (D) مباشرة او قم تغير مسار الصور في في الملف حسب مكانه عندك How to create Pop-up form in Excel Userform.xlsm ملف الصور قم بفك الضغط وحفظه علي مسار Dمباشرة PicForm.rar

أحيانا تحتاج إلى البحث عن الكلمات أو الجمل المكررة، لأن التكرار قد يكون خطأ، وهذا الماكرو يقوم بتحديد الكلمات أو الجمل المكررة بشكل متتالي وتمييزها باللون الأخضر: Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True Options.DefaultHighlightColorIndex = wdBrightGreen With Selection.Find .Text = "(<* ){2}" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Beep End Sub

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

جرب المرفق <><><><><><> printfactur3.rar

طيب راجع المعلومات هذه هل هي صحيحة حسب طلبك <<<<<<<

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

راجع التقرير جيدا ...الموجود هذا =[SumOfMONT]- [rest] بينما المفروض هذا ... =[SumOfMONT]- [MONT] لكن سؤالي ..هو مالفائدة من ذلك ؟

وعليكم السلام اخ رشيد بالتأكيد مصدر السجلات للتقرير هو استعلام والحقل SumOfMONT هو حقل جمع لل MONT لكن الحقل الذي يطرح منه والمسمى MONT..اين محله في الاستعلام وما يمثل ؟ ان لم تستطع ارفاق مثال..ياريت ترفق صور لعملك من الاستعلام الى التقرير

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

من بعد إذن الاستاذ @kkhalifa1960 جزاه الله خيرا الاخوة الكرام تم إضافة صائد الاخطاء لكود الاستاذ @kkhalifa1960 للوقوف على نوع الخطأ . لكل الاخوة الذين صادفتهم مشكلة في البرنامج الرجاء إعادة المحاولة وتحديث برنامج الضغط الوين رار ضروري وإعلامنا بالنتيجة. تحياتي للجميع Sub AddToZip(ByVal zipArchivePath As String, ByVal addPath As String) Dim sh As Object Dim fSource As Object Dim fTarget As Object Dim iSource As Object Dim sourceItem As Object Dim i As Long Set sh = CreateObject("Shell.Application") Set fTarget = sh.Namespace((zipArchivePath)) If fTarget Is Nothing Then createZipFile zipArchivePath Set fTarget = sh.Namespace((zipArchivePath)) If fTarget Is Nothing Then MsgBox "فشل إنشاء ملف مضغوط", vbCritical Exit Sub End If End If Dim containingFolder As String Dim itemToZip As String containingFolder = Left(addPath, InStrRev(addPath, "\")) itemToZip = Mid(addPath, InStrRev(addPath, "\") + 1) Set fSource = sh.Namespace((containingFolder)) For i = 0 To fSource.items.Count - 1 If fSource.items.Item((i)).Name = itemToZip Then Set sourceItem = fSource.items.Item((i)) Exit For End If Next i If sourceItem Is Nothing Then MsgBox "فشل العثور على ملف لإضافة ملف مضغوط ", vbCritical Exit Sub End If On Error Resume Next fTarget.CopyHere sourceItem If Err.Number <> 0 Then MsgBox "فشل في إضافة ملف لضغطه", vbCritical Err.Clear End If On Error GoTo 0 End Sub

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

جرب هذا التعديل و وافنا بالنتيجة Private Sub mail_DblClick(Cancel As Integer) Dim Msg As String If IsNull(Mail) Or Len(Mail) = 0 Then MsgBox "حقل البريد الإلكتروني فارغ. الرجاء إدخال عنوان البريد الإلكتروني " Exit Sub End If Msg = "<div style='direction:rtl; font-family:Consolas, Courier;'>" & _ " hey " & namecus & "<br>" & _ "</div>" Dim O As Outlook.Application Dim M As Outlook.MailItem Set O = New Outlook.Application Set M = O.CreateItem(olMailItem) With M .BodyFormat = olFormatHTML .HTMLBody = Msg '.Body = txt - if you see olformatplain .To = Mail '.CC="khate9191@gmail.com;khateb91@outlook.com" '.BCC="hateeb991@gmail.com" .Subject = " new mail " & Now() .Display '.send End With Set M = Nothing Set O = Nothing End Sub تحياتي

يرجي كتابه شرح لما هو مطلوب حتى يتسني فهم مشكلتك

The right procedure is Test not Macro1

عند تغيير الامتداد الى accdr يعمل

اعرض الملف معادلة تكاليف حركات التشغيل و اوامر الانتاج بلوك انترلوك هذا الملف يساعد على حساب التكلفة الكاملة للمنتج وتقييم عملية الانتاج وتسعير المنتج. صاحب الملف salahmosaed تمت الاضافه 25 فبر, 2023 الاقسام قسم الإكسيل  

انا ارشح فكرتك هذه ياستاذ موسى في طريقة الحضور والغياب تسجيل حضور وغياب الموظفين.accdbمايميزها هو تحديد وتلوين ايام الايجازات في كل شهر تم تغييره

يشرفي تفاعلك معنا استاذي أبو خليل أثلجت صدري وشكراً لكل الزملاء وجزاكم الله عنا كل الخير . اخواني رتبت الكود وأرجو التجربة وأفيدونا ........ Zip Folder and CopyLast.rar

وعليكم السلام ورحمة الله وبركاته 🙂 فكرة رائعة ومحمسة .. أخي طاهر .. أقترح أن تضع أنت المواضيع .. ويرشح عليها الإخوة 🙂

وعليكم السلام أخي @moho58 🙂 بالبحث ستجد الكثير من المواضيع التي تتكلم عن جدول الحصص المدرسي .. أنظر هنا مثلا : وهذا رابط البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=جدول+حصص+مدرسية+Access&sa=Search

بارك الله

وجدت لك هذه وحدة نمطية عامة اجعلها في مديول #If VBA7 Then Private Declare PtrSafe Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #Else Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #End If Public Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Integer 'Set up buffer area for API function call return sShortPathName = Space(255) iLen = Len(sShortPathName) 'Call the function lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 'Strip away unwanted characters. GetShortName = Left(sShortPathName, lRetVal) End Function ويتم مناداتها بهذا السطر Shell ("cmd /c mspaint /p " & GetShortName(CurrentProject.path & "\" & Me.picFld & ".jpg"))

وعليكم السلام ورحمة الله وبركاته أولاً: الدالة التي ابدعها استاذنا الغالي محمد حسن المحمد في المشاركة الأولى هي بالضبط ما قمت بطلبه بأن يتم احتساب قيمة (0) عند الخلايا التي تساوي (No) وقيمة (9) عندما تكون غير ذلك والمجموع (117) هو الناتج وفق طلبكم لاستاذنا محمد الشكر فالدالة تحقق ذلك. ثانياً: بالمرفقات ما طلبته من شرح مختصر للدالة المطبقة في هذا الملف، وكيفية الربط بقيم في شيت آخر، ولكن لم يتضح كيف تريد أن تكون الدالة بدون خلايا مرجعية. Score.xlsx

استخدام دالة CLng لتحويل التاريخ إلى رقم تسلسلي فيه احتراز أكبر: CLng(bToDate) = CLng(bFromDate)

بعد اذن اخي الحبيب ابا جودي .. المرفق عبارة عن شبه برنامج متكامل ( جداول واستعلامات ونماذج) وكان ظني ان اجد فقط جداول للاستشارة وحتى لا يدب اليأس الى قلبك ... ان كنت عازما على عمل مشروعك بشكل جيد منظم وتستفيد من خبرات اخوتك هنا اتبع الخطوات التالية : 1- ابدأ من الصفر 2- اشرح عملك بالتفصيل ، واطرحه للنقاش بأدق التفاصيل .. وهذه مرحلة مهمة جدا جدا عند العزم على بناء اي مشروع 3- ابدأ بتصميم الجداول .. بناء على نتيجة تحليل البيانات .. تحت نظر الخبراء هنا . اعلم انك اذا انهيت تصميم الجداول بشكل صحيح فانك انهيت 50% من مشروعك ، لأن كل ما يلحق مستقبلا يعتمد على هذه الجداول وفقك الله لكل خير

أخي @ehabaf2 هذه مسألة طبيعية خاصة عند وجود بيانات كثيرة على ورقة العمل من الأفضل إستبدال طريقة تنفيذ الكود من حدث الشيت إلى Module Sub Masquer_Columns() StartColumn = 6 ' اول عمود LastColumn = 176 ' اخر عمود iRow = 20 ' رقم الصف Application.ScreenUpdating = False For i = StartColumn To LastColumn If Range("B20").Value = "" Then 'From column 6 to column 170 Columns("F:FS").EntireColumn.Hidden = False Exit Sub End If If Cells(iRow, i).Value > Range("b20").Value Then Cells(iRow, i).EntireColumn.Hidden = True Else Cells(iRow, i).EntireColumn.Hidden = False End If Next i Application.ScreenUpdating = True End Sub كود اخفاء v2.xlsm

وعليكم السلام ورحمة الله وبركاته 🙂 من خصائص النموذج إجعل شكلي أو مشروط = لا 🙂

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