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

وإياكم أخي @moho58 .. ولكم مثلما دعيتم بظهر الغيب وأكثر ..

بعد التجربة: عمل رائع رائع جد اجدا و شغال بامتياز هذا هو المطلوب بالتفصيل وبالضبط ألف شكر وامتنان أخي @Foksh جزاك الله كل خير و ربي يرزقك ما تتمنى ويجعله في ميزان حساناتك -آميــن-

في أصل الكود لديك لا يقوم على استخدام الملف مرتين ويقوم بالإستبدال ، ومنطقياً غير مسموح بحفظ ملفن لهم نفس الاسم والامتداد في مكان واحد ، لذا سيتم تمييز الجديد برقم على سبيل المثال . اذا هذا يناسبك أخبرني . سنتوجه بفكرة وهي انه عندما تختار لاحقاً ملفات لها نفس الاسم في المجلد سيخبرك انه ملفات قديمة بنفس الاسم هل ترغب بإضافتها أو تخطيها ( ما رأيك ؟) وهذا أفضل فعلاً بأن تقوم باستعراض المجلد وليس الملفات كما كانت في فكرتك السابقة .. جرب التعديل التالي لما سبق توضيحة .. baseA1.zip

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

وعليكم السلام ورحمة الله وبركاته .. جرب هذه الفكرة المتواضعة baseA.zip

اكتب اي شيء ثم انتر 2baseR.rar

تحديـــــــــــــــــــــــث وتوسع ********************************************************** ( سهل ) اضافة ميزة اضافة شريط ازرار تاب ( بمجموعات ) كود بسيط جرب وافادة اكثر حول تصميم وتصاميم عند استاذ @Moosak كود اسفل الفيديو مع تحميل المرفق :: كود: تجربة التصميم تاب ومجموعات بسيط 1- من خلال اداة (SpinButton) ActiveX Private Sub SpinButton0_Updated(Code As Integer) If Me.SpinButton0 = 1 Then Me.RF_1.Caption = "تنبيهات المنتهي" Me.RF_2.Caption = "تنبيهات قبل الانتهاء" Me.RF_3.Caption = "تنبهات اجراءات مهملة" Me.RF_4.Caption = "تأخيرات للصرف والتحصيل" Me.X_M.Caption = "3-" & Me.SpinButton0 Exit Sub End If If Me.SpinButton0 = 2 Then Me.RF_1.Caption = "كفالات بنكية" Me.RF_2.Caption = "لم يتم تسليم المستندات" Me.RF_3.Caption = "استعلام عن الشركات" Me.RF_4.Caption = "استعلام عن جهات الطالبة" Me.X_M.Caption = "3-" & Me.SpinButton0 Exit Sub End If If Me.SpinButton0 = 3 Then Me.RF_1.Caption = "سهولة انشاء اشرطة متعددة" Me.RF_2.Caption = "عرض التقرير مهما تغير تغيرة دقة الشاشة" Me.RF_3.Caption = "مخططات النظم متقدمة" Me.RF_4.Caption = "تقارير متقدمة :)" Me.X_M.Caption = "3-" & Me.SpinButton0 Exit Sub End If 2- كود بسيط لكل زر مرة واحدة فقط في التاب وهذه الاكواد لكل زر في الشريط من 1 الى 4 Private Sub RF_1_Click() '=========================(Code Run Skin) If Me.RRR_1.Visible = False Then Me.RRR_1.Visible = True End If If Me.RRR_2.Visible = True Then Me.RRR_2.Visible = False End If If Me.RRR_3.Visible = True Then Me.RRR_3.Visible = False End If If Me.RRR_4.Visible = True Then Me.RRR_4.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_1.BackColor = RGB(191, 191, 191) Me.RF_2.BackColor = RGB(114, 114, 114) Me.RF_3.BackColor = RGB(114, 114, 114) Me.RF_4.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 1 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 1 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 1 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub Private Sub RF_2_Click() '=========================(Code Run Skin) If Me.RRR_2.Visible = False Then Me.RRR_2.Visible = True End If If Me.RRR_1.Visible = True Then Me.RRR_1.Visible = False End If If Me.RRR_3.Visible = True Then Me.RRR_3.Visible = False End If If Me.RRR_4.Visible = True Then Me.RRR_4.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_2.BackColor = RGB(191, 191, 191) Me.RF_1.BackColor = RGB(114, 114, 114) Me.RF_3.BackColor = RGB(114, 114, 114) Me.RF_4.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 2 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 2 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 2 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub Private Sub RF_3_Click() '=========================(Code Run Skin) If Me.RRR_3.Visible = False Then Me.RRR_3.Visible = True End If If Me.RRR_2.Visible = True Then Me.RRR_2.Visible = False End If If Me.RRR_1.Visible = True Then Me.RRR_1.Visible = False End If If Me.RRR_4.Visible = True Then Me.RRR_4.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_3.BackColor = RGB(191, 191, 191) Me.RF_2.BackColor = RGB(114, 114, 114) Me.RF_1.BackColor = RGB(114, 114, 114) Me.RF_4.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 3 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 3 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 3 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub Private Sub RF_4_Click() '=========================(Code Run Skin) If Me.RRR_4.Visible = False Then Me.RRR_4.Visible = True End If If Me.RRR_2.Visible = True Then Me.RRR_2.Visible = False End If If Me.RRR_3.Visible = True Then Me.RRR_3.Visible = False End If If Me.RRR_1.Visible = True Then Me.RRR_1.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_4.BackColor = RGB(191, 191, 191) Me.RF_2.BackColor = RGB(114, 114, 114) Me.RF_3.BackColor = RGB(114, 114, 114) Me.RF_1.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 4 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 4 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 4 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub تحميل المرفق : https://www.mediafire.com/file/z0p7absaqc72iy1/SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file

التعديل السابق كان على عجل لذا قمت بتحسين الدالة في المثال لتصبح أكثر عملية (اصبحت أشبه بدالة Partition) بحيث يمكن إستخدامها في أي مكان يتطلب تقسيم السجلات الى فئات (كتجميع الموظفين حسب الفئة العمرية مثلا) التطبيقات للدالة كثيرة ويمكن لأي شخص إستخدامها بحسب ماتتطلبه حاجته تحياتي 1.rar