alliiia

الحمد لله رب العالمين

العفو المعذرة لم أنتبه جيدًا لكلامك وتفضل إليك التعديل selse.xlsm

وعليكم السلام ورحمة الله وبركاته بالتوفيق أخي selse.xlsm

مرحبا أخي نعم راح يفرغ الجدول لأن الكود يحتوي على تفريغ: Mj.Range("K5:K14").ClearContents لذلك قمت بعمل ملف آخر جديد وكتابة كود آخر جديد يقوم بما تريده بإذن الله بشكل جميل أي ملاحظة أنا حاضر. ادخال البيانات.xlsm هذه أكواد تفريغ شاشة الإدخال: sourceSheet.Range("H4").ClearContents sourceSheet.Range("H6").ClearContents sourceSheet.Range("H7").ClearContents sourceSheet.Range("H8").ClearContents sourceSheet.Range("H9").ClearContents sourceSheet.Range("H10").ClearContents sourceSheet.Range("H11").ClearContents sourceSheet.Range("H13").ClearContents احذف الذي لا تريده وابقي على الذي تريده

وعليكم السلام ورحمة الله وبركاته تفضل قبل فتح الملف اضغط بزر الفأرة يمين ثم اذهب للخصائص وحط صح على علامة التحذير واضغط موافق ولا تنس تفعيل الماكرو في اعدادات الاكسل حتى يعمل معك الزر وهذا هو الكود المستخدم في الملف: Sub MergeAndCenter() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row Dim startRow As Long, endRow As Long startRow = 1 Dim i As Long Application.DisplayAlerts = False For i = 1 To lastRow If i = lastRow Or ws.Cells(i, 3).Value <> ws.Cells(i + 1, 3).Value Then endRow = i If endRow > startRow Then ws.Range(ws.Cells(startRow, 3), ws.Cells(endRow, 3)).Merge ws.Range(ws.Cells(startRow, 3), ws.Cells(endRow, 3)).HorizontalAlignment = xlCenter End If startRow = i + 1 End If Next i Application.DisplayAlerts = True End Sub اختبار1.xlsm

وعليكم السلام ورحمة الله وبركاته لماذا لم تكمل جميلك وترفع الملف؟؟ وتشرح مشكلتك؟ على العموم جرب هذه: Sub insert02() Dim Mj As Worksheet Dim Mn As String Dim Mt As Worksheet Dim last As Integer Set Mj = ThisWorkbook.Sheets("Main") Mn = Mj.Range("L2").Value On Error Resume Next Set Mt = ThisWorkbook.Sheets(Mn) On Error GoTo 0 If Mt Is Nothing Then MsgBox "ورقة العمل '" & Mn & "' غير موجودة. تحقق من الاسم في الخلية L2.", vbExclamation Exit Sub End If last = Mt.Range("B10000").End(xlUp).Row + 1 With Mt .Cells(last, "B").Value = Mj.Range("K5").Value .Cells(last, "C").Value = Mj.Range("K6").Value .Cells(last, "D").Value = Mj.Range("K7").Value .Cells(last, "E").Value = Mj.Range("K8").Value .Cells(last, "F").Value = Mj.Range("K9").Value .Cells(last, "G").Value = Mj.Range("K10").Value .Cells(last, "H").Value = Mj.Range("K11").Value .Cells(last, "I").Value = Mj.Range("K12").Value .Cells(last, "J").Value = Mj.Range("K13").Value .Cells(last, "K").Value = Mj.Range("K14").Value End With Mj.Range("K5:K14").ClearContents End Sub

حاول تجعل تنسيق الخلية بنوع نص (TEXT) ويوجد طريقة أن تجعل داخل الأرقام علامة تنصيص مثل هذه العلامة ( ' ) جرب وبيضبط معك إن شاء الله.

Sub Test () Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") 'غير لاسم الشيت حقك Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row Dim i As Long For i = 2 To lastRow ' If ws.Cells(i, "B").Value <= 9 Then ws.Cells(i, "N").Value = ws.Cells(i, "E").Value & "0" & ws.Cells(i, "C").Value & "000000" & ws.Cells(i, "B").Value ElseIf ws.Cells(i, "B").Value <= 99 Then ws.Cells(i, "N").Value = ws.Cells(i, "E").Value & "0" & ws.Cells(i, "C").Value & "00000" & ws.Cells(i, "B").Value End If Next i End Sub

وفيك بارك الله آمين وإياك تفضل تم التعديل وفق ما طلبت بالتوفيق بحث عن الأصناف.xlsm

لا يوجد في الاكسل لكن جرب Google Speech-to-Text ربما يفيدك شوي بس تحتاج تراجع خلفه شيء أكيد

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

تفضل إذا في ملاحظات أخبرني need help.xlsx

انا أشوف لو تعمل قاعدة بيانات فيها جميع الغيابات مبرر وغير مبرر ثم تعمل سلايسر يعرض لك المبرر فقط أو غير المبرر فقط أسهل وأريح كذا مشتت بياناتك وعامل شيتات كثيرة أنت تكلف علينا بشيء غير جيد للعمل عليه إذا كان هذا اجتهادك الشخصي أما إذا كانت الوزارة أو الشركة طالبة منك فهذا شيء آخر ممكن تشوف ملفات الحضور والغياب وتأخذ فكرة وعلى فكرة عندي ملف اشتغلت عليه مؤخرا وهو من أقوى ملفات الحضور والغياب ممكن تشوفه وتطوره وتعدل عليه بما يناسبك قبل فتح الملف اضغط كلك يمين ثم الخصائص ثم حط صح على آخر شيء واحفظ وعند فتح الملف تأكد أن المايكرو مفعل عندك شوف يوتيوب إذا ماتعرف كيف إدارة الحضور والغياب - 2023-2024 - V3.xlsm

وعليك السلام ورحمة الله وبركاته بالتوفيق مشروع.xlsm

وعليكم السلام ورحمة الله وبركاته ممكن تجرب هذه الملفات ربما تضبط معك Excel e whatapp.xlsm Send Via Whatsapp.xlsm برنامج الوتساب.xlsm

السلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام تحية طيبة نسأل الله أن يمتعنا وإياكم بالعافية هذا برنامج إهداء لكم أعزائي الكرام وقد قمت بتصميمه ولله الحمد بتوفيق من الله هذا البرنامج يفيد المعلم في الحصة طبعا البرنامج يحتوي على 3 فصول دراسية وقابل لزيادة الفصول الدراسية لكن سيحتاج إلى تعديل خاصة في فورم (صفحة التقرير الشهري) وأسأل الله أن ينفع بها المسلمين حضور وغياب - يوزر فورم.xlsm

السلام عليكم ورحمة الله وبركاته تحية طيبة أعزائي الكرام هذا برنامج قمت بتصميمه ولله الحمد وفيه نواقص تحتاج لإكمال، وسأذكرها لكم إن شاء الله. سبب عدم إكمالي للبرنامج عدم حاجتي فيه؛ فقد استغنيت عنه ببرنامج Notion المشهور لكن على العموم قد يستفيد أحد منه وهو إضافة لعالم الإكسيل برنامج خاص للمصاريف الشخصية متطور وبشكل جميل عبر اليوزر فورم المهم النواقص التي تحتاج لإكمال لمن يحب أن يطورها وينتفع بها أو ينفع بها غيره من المسلمين: 1- دبل كليك على اللست بوكس ليظهر البيانات على التكست بوكس 2- في page2 عمل إحصائية شهرية وسنوية وممكن نستفيد من شيت الإحصائية لأخذ الأفكار وتطبيقها في الفورم 3- عندي مشكلة في التاريخ مازلت تتكرر لا أدري الخلل من جهازي أو من الكود بحث يعطيني MM/DD الشهر قبل اليوم وحاولت أعالجه ما ضبط معي 4- ممكن تعديل كود الباقي على الراتب القادم بحيث لو باقي 0 يوم ينزل إلى الخلية التي تحته ليقرأ الباقي على الراتب للشهر القادم 5- هذا ما جاء في بالي على عجالة وممكن مع تطوير البرنامج تأتي أفكار أخرى ونسأل الله أن ينفع بها المسلمين وأن يعيننا على نشر العلم وإخراج زكاته لوجه الله تبارك وتعالى وأن يجعل أعمالنا خالصة له ونبتغي بهذه البرامج نفع الناس والأجر من الله. برنامج مصاريف - يوزر فورم.xlsm

العفو، اللهم آمين وإياكم.

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

تفضل وبالتوفيق 1111.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل أخي تم استخدام هذه المعادلة في ملفك: =SUMIFS(B:B; A:A; ">="&G4; A:A; "<="&H4) وبالتوفيق الجمع بين التاريخين وحسب انس المخزن.xlsx

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

ما شاء الله أيها المبدع العجيب بارك الله فيك وأحسنت العمل ما قصرت يا غالي وأحسن الله إليك.

بسم الله ما شاء الله تبارك الرحمن ايش هذه الابداعات؟ والإتقان والجودة والتطوير أكرمك الله ورضي عنك وبارك في علمك ونفع بك وإن شاء الله يستفيد الجميع من هذا الفورم سؤال لو أريد أن أضيفه في فورم آخر بمعنى لو عندي تكست بوكس أريد أن أضيف فيه التاريخ ممكن تدلني على المكان الذي أغير فيه؟ وجزاكم الله خيرا طبعا راح أضع صورة بداخل التكست بوكس ثم اضغط عليها وتفتح لي هذا الفورم وثم عندما اختار التاريخ يرحل لي التاريخ إلى التكست بوكس

ما شاء الله زادك الله من فضله وبارك الله في عملك وهذا هدية مني لكم قمت بعمله ولم أنجز آخر شيت فيه لعدم حاجتي ولاستغنائي ببرنامج aSc TimeTables وبالتوفيق للجميع توزيع الحصص + الجدول.xlsm