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

تفضل مع لمسة ان لم يجد شيئا بدلا من الصفر عبارة : لا يوجد text1=NZ(DLookUp("[UserName]","[tblUser]","[UserName] ='"& [Forms]![frmMain]![UserName] &"'"),"لا يوجد") 223.rar

=IFERROR(1/(1/MAXIFS(G3:G1000;$A3:$A1000;"="&J3;$E3:$E1000;"="&J1));"") ملف.xlsx

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

نعم أخي ربما لم تلاحظ التغيير فقط اجعل كلمة وارد داخل المعادلة بهذا الشكل *وارد*

وعليكم السلام -تفضل لك ما طلبت للرفع.xlsb

شكرا لك اخي الكريم وجزاك الله خير الجزاء هذا هو المطلوب بالفعل 💯بالــــــ💯 مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور جدا استاذي الكريم

طيب جرب المرفق ده Goporodact_3.rar

وزى ما بينحكى لو صبر القاتل ع القتيل كان مات لوحده والله انا وانا اكتب لك فى الكود انت دخلت تستعجلنى ما شي يا عم @أمير ادم منتظر ردك بعد التجربة

ايه رأيك فى فكرة لو تجعل العمل على الجهاز المحلى عادي خالص والقاعدة الخلفيه فقط يتم نسخها من على قوقل دريف وبعد الانتهاء يتم نقل القاعدة الى قوقل دريف مرة اخرى بكده تحفظ العمل

بما انك لم تقم بنشر الكود بالكامل لنتمكن من تحديد عنصر التغيير لديك و على حسب تخميني انك تستخدم يوزرفورم اليك نمودج للحل يمكنك تطويعه على حسب احتياجاتك وكما سبق الدكر انه يوجد صعوبة لانشاء الكود الصحيح ما دمت لم تقم برفع ملف يتضمن طلبك بشكل اوضح لنفترض انك تقوم باختبار البيانات عن طريق Combobox1 '''''''''''''''طريقة رقم 1'''''''''''''''''''' Private Sub ComboBox1_Change() For bgg = 1 To 17 If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("B:E"), 4, 0) = "نعم" Then Me("CheckBox" & bgg).Caption = True Else Me("CheckBox" & bgg).Caption = False End If Next End Sub ''''''''''''''طريقة رقم 2'''''''''''''''''''' 'Private Sub ComboBox1_Change() 'Dim bgg As Control, réf As String, col As Range 'Set WS = Sheet1: Set col = WS.Range("B2:E" & WS.[B65000].End(xlUp).Row) 'For Each bgg In Me.Controls 'réf = Me.ComboBox1.Text 'If Application.WorksheetFunction.VLookup(réf, col, 4, False) = "نعم" Then ' If TypeName(bgg) = "CheckBox" Then bgg.Caption = True ' Else ' If TypeName(bgg) = "CheckBox" Then bgg.Caption = False 'End If 'Next 'End Sub ''''''''''''''طريقة رقم 3'''''''''''''''''''' 'For Each bgg In UserForm1.Controls 'If TypeName(bgg) = "CheckBox" Then 'If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("B:E"), 4, 0) = "نعم" Then bgg.Caption = True Else bgg.Caption = False 'End If 'Next bgg '''تحديد العناصر''''''طريقة رقم 4'''''''''''''''''''' 'Dim bgg As Control 'For Each bgg In Me.Controls 'If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("B:E"), 2, 0) = "نعم" Then ' If TypeName(bgg) = "CheckBox" Then bgg.Value = True ' Else ' If TypeName(bgg) = "CheckBox" Then bgg.Value = False 'End If 'Next '''التحقق مع تلوين القيمة ''''''طريقة رقم 5'''''''''''''''''''' Private Sub ComboBox1_Change() Dim LR& Set ws = Sheet1 With ws LR = .Cells(.Rows.Count, "B").End(xlUp).Row For bgg = 1 To 17 If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("B:E"), 4, 0) = "نعم" Then Me("CheckBox" & bgg).Caption = True Else Me("CheckBox" & bgg).Caption = False End If Next For i = 2 To LR .Range("E" & i).Interior.Color = xlNone If .Range("B" & i).Value = Me.ComboBox1.Value And .Range("E" & i).Value = "نعم" Then .Range("E" & i).Interior.Color = vbYellow End If Next i End With End Sub اليك ملف حاولت تنفيد الفكرة عليه لتتمكن من تعديلها بما يناسبك CONTROLS F_VLookup.xlsm

[الجديد في التحديث 9.60]: 1- في قائمة (إزالة)، تم إضافة خاصية (مسح قائمة الإجراءات التي يمكن التراجع عنها للمستند الحالي)، حيث لن يمكنك بعد تنفيذه من النقر على زر CTRL+Z للتراجع عن إجراء قمت به قبل نقر هذا الزر. 2- في نافذة (تحريك تلقائي للصفحات) الموجودة في قائمة (صفحات)، تم إضافة مربع اختيار عند تحديده ستصبح النافذة في الأمام فوق كل النوافذ. 3- في خدمة (التعامل مع العبارات المميزة بلون ما)، تم إضافة خاصية (عبارات مميزة تحوي ارتباطاً تشعبياً يسبب مشكلة)، ولكن ما فائدة ذلك؟ الجواب: أحياناً تفهرس النصوص المميزة بلون ما أو تجري عملية ما على النصوص المميزة، فتجد أن العملية تستغرق وقتاً طويلاً جداً ولا تتوقف، والسبب أن هنالك بعض النصوص المميزة تحوي ارتباطاً تشعبياً يسبب مشكلة ما؛ لذا تأتي هذه الخاصية لتكشف لك النصوص المميزة التي تحوي ارتباطات تشعبية تسبب مشكلة وتصلحها لك. وستجد فيها زران: الأول: (فحص)، وسينسخ لك إلى ملف جديد أي نص مميز بلون ما ضمنه ارتباط تشعبي يسبب مشكلة. الثاني: (إصلاح)، ويتولى مهمة إصلاح مشكلة الروابط الموجودة ضمن العبارات المميزة دون أن يحذف لك شيئاً ودون أن يعدل لك أي شيء. 4- في قائمة (ارتباطات)، تم إضافة خاصية (هل يحتوي النص المحدد على ارتباط تشعبي؟)، والتي ستمكنك من معرفة عدد الارتباطات التشعبية الموجودة ضمن النص المحدد إن وجدت. 5- في قائمة (صفحات)، تم إضافة خاصية (علامة الوصول)، والتي تمكنك من إضافة علامة للمكان الذي وصلت إليه ضمن المستند من خلال زر (إضافة علامة وصول هنا)، ثم عندما تريد العودة إلى هذا المكان تنقر زر (انتقال إلى علامة الوصول المحفوظة)، وهذا مفيد جداً لمن يعملون على تنقيح البحوث وتدقيقها وتنسيقها، حيث يستطيعون إضافة علامة للمكان الذي وصلوا إليه؛ كي يعودوا إليه مباشرة متى ما أرادوا وبنقرة زر واحدة. 6- في قائمة (صفحات)، تم إضافة خاصية (حفظ واستعادة الجلسة)، والتي ستمكنك من حفظ جلسة الملفات المفتوحة حالياً مهما كان عددها، ثم إعادة فتح هذه الملفات نفسها متى ما أردت، فقد تغلق الحاسب ثم تعيد تشغيله ولا تريد أن تفتح هذه المستندات واحداً تلو الآخر، فتأتي هذه الخدمة لتفتح لك جميع المستندات التي كانت مفتوحة سابقاً بنقرة زر واحدة. 7- في قائمة (صفحات)، تم إضافة خاصية (حفظ واستعادة نسخة احتياطية)، والتي تمكنك من حفظ نسخة احتياطية أو عدة نسخ لأي مستند، ثم استرجاع هذه النسخ المحفوظة متى ما أردت، وهي مفيدة جداً في حال تعرض مستندك للحذف الخاطئ أو عُطِب لسبب ما أو أجري عليه تعديلات لا تريدها. 8- في خدمة (الحواشي السفلية)، تم إضافة زر (حل مشكلة اختفاء علامة متابعة الحواشي)، والذي سيمكنك من حل مشكلة اختفاء علامة متابعة الحواشي أو فاصل متابعة الحواشي. 9- تم تطوير خاصية (عمليات متنوعة على الإشارات المرجعية)، وأضيفت لها العديد من الخصائص، كالتنقل بين الإشارات المرجعية (السابق والتالي)، ونسخ الإشارات المرجعية إلى مستند جديد، والبحث عن إشارة مرجعية، وكل هذه العمليات يمكن تطبيقها على (كل الإشارات المرجعية) أو على (إشارات تبدأ بعبارة ما) كالإشارات الخاصة بفهرس الحديث أو القصائد أو غير ذلك.

نعم اخي انت من تختار من الخلية J1 الحركة المرغوب اظهار اخر تاريخ لها او بمكنك تحديدها داخل المعادلة بحيث عند العثور على نوع الحركة يتم جلب اخر تاريخ او ترك الخلية فارغة مع عدم اظهار 00-01-1900 =IFERROR(1/(1/MAXIFS(G3:G1000;$A3:$A1000;"="&J3;$E3:$E1000;"="&"صادر"));"") '""""""""""""""" =IFERROR(1/(1/MAXIFS(G3:G1000;$A3:$A1000;"="&J3;$E3:$E1000;"="&"وارد"));"") ملف.xlsx

Copy of مسلسل فاتورة على حسب نوع الفاتورة.xlsm

إذن في حالة الغياب ستبدل "P" بحرف "A" مثلا؟ اقتراحي لا داعي لكتابة "P" للحضور، ولا "V" لعطلة نهاية الأسبوع. أنت تحتاج فقط: كتابة "A" من Absent في حالة الغياب فقط. وكتابة "V" من Vacation في حالة كونه في إجازة. أما عطلة نهاية الأسبوع لا تحتاج إلى كتابة، وعند الرغبة فليكن حرفها "W" من Weekend. ويمكن التحكم عند الكتابة بمنع الإدخال في خانة عطلة نهاية الأسبوع كذلك ومنع إدخال غير الحروف المطلوبة. سؤال آخل ماذا لو عمل الموظف أيام العطل الأسبوعية، هل ستضع له حرفا جديدا أم ستستخدم حرف "P" أيضا؟

بعد ادن الاخ @AbuuAhmed اليك حل اخر على حسب الشروط المدكورة والصورة المرفقة في في اول مشاركة Sub Color_Friday() Dim lastCol&, LastRow&, i&, j&, lr&, Search As String Dim WS As Worksheet: Set WS = ThisWorkbook.Worksheets("Base") Search = "الجمعة" Application.ScreenUpdating = False With WS lr = .Columns("A:B").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row lastCol = .Cells(5, WS.Columns.Count).End(xlToLeft).Column LastRow = .Range("B" & .Rows.Count).End(xlUp).Row WS.Range("D5:AH" & lr).Interior.ColorIndex = xlNone .Range(Cells(5, 4), Cells(6, lastCol - 4)).Interior.Color = RGB(217, 217, 217) If lr > 6 Then .Range(Cells(7, 4), Cells(lr, lastCol - 4)).ClearContents End If For j = 7 To LastRow If .Cells(j, 2) <> "" Then .Range(Cells(7, 4), Cells(LastRow, lastCol - 4)).Value = "V" End If For i = 4 To lastCol If WS.Cells(5, i).Value2 Like Search Then .Range(Cells(7, i).Address, Cells(LastRow, i).Address).Value = "P" .Range(Cells(5, i).Address, Cells(LastRow, i).Address).Interior.ColorIndex = 40 End If Next Next End With Application.ScreenUpdating = True End Sub حضور 2وإنصراف.xlsb

Sub TEST_Protect() WS = Array("ورقة1", "ورقة4") On Error Resume Next For i = LBound(WS) To UBound(WS) Sheets(WS(i)).Protect userinterfaceonly:=True, Password:="1234" Next i On Error GoTo 0 End Sub كووود.xlsm

[الجديد في التحديث 9.50]: 1- في قائمة (فقرات وأنماط)، تم إضافة خاصية (إضافة نقطة نهاية الفقرات التي لا تنتهي بنقطة)، وهي تضيف نقطة نهاية أي فقرة لا تنتهي بنقطة أو نقطتان أو إشارة استفهام او إشارة تعجب. 2- في قائمة (فقرات وأنماط)، تم إضافة خاصية (عكس النص المحدد)، وهي تقوم بعكس أي نص تحدده، وهي مفيدة في عكس النصوص المنسوخة من ملفات PDF. 3- في قائمة (فقرات وأنماط)، تم إضافة خاصية (تحريك الفقرات)، وضمنها زر (تحريك الفقرة الحالية لأعلى) وزر (تحريك الفقرة الحالية لأسفل)، فإذا كنت ضمن جدول فسيحرك لك الصف الحالي أو الصفوف المحددة، وإذا كنت ضمن فقرة فسيحرك لك الفقرة الحالية أو الفقرات المحددة، وهذا يُسهِّل عليك نقل الصفوف والفقرات من مكان لآخر صعوداً ونزولاً. 4- في قائمة (الحواشي السفلية)، تم إضافة زر (إدراج حاشية سفلية)؛ لإدراج حاشية سفلية منسقة مباشرة دون الاضطرار للذهاب إلى خدمة الحواشي السفلية ونقر زر (إدراج) منها. 5- في قائمة (الحواشي السفلية)، تم إضافة زر (تحويل النص المحدد إلى حاشية)، والذي سيحول لك النص الذي تحدده إلى حاشية سفلية. 6- في قائمة (معلومات)، تم إضافة خاصية (إدراج اسم نظام التشغيل وإصدار الأوفيس وإصدار إضافة البيان)، وهذه المعلومات مهمة عند حدوث مشكلة في إضافة البيان، حيث تساعد على حلها. 7- في قائمة (معلومات)، تم إضافة خاصية (رقم المقطع الحالي)، والتي ستزودك برقم المقطع الحالي إن كنتَ قد قسّمت المستند لعدة مقاطع. 8- في قائمة (عمليات على الإشارات المرجعية)، تم إضافة زر (إظهار الإشارات المرجعية) وزر (إخفاء الإشارات المرجعية)، فعند استخدام زر (إظهار الإشارات المرجعية) سيظهر لك معقوفان حول الإشارات المرجعية، وعند استخدام زر (إخفاء الإشارات المرجعية) سيختفي المعقوفان من حول الإشارات المرجعية.

انت تفكر بطريقتك ،، وغيرك يفكر بطريقته المهم : جدول يحتوي على بيانات والمطلوب تقرير يظهر البيانات على الشكل او الطريقة التالية ( توضح) باستخدام نموذج وسيط يتم من خلاله الفلترة حسب الطريقة التالية ( توضح) ...........

[الجديد في التحديث 9.30]: 1- في قائمة (صفحات)، تم إضافة الخصائص التالية: (انتقال إلى بداية الصفحة) و(انتقال إلى نهاية الصفحة)، و(انتقال إلى المقطع التالي) و(انتقال إلى المقطع السابق)، و(نقل المؤشر للأمام بين المواقع الثلاثة الأخيرة المحررة) و(نقل المؤشر للخلف بين المواقع الثلاثة الأخيرة المحررة)، وهاتان الخاصيتان الأخيرتان تنقلان لك المؤشر إلى الأماكن الثلاثة الأخيرة التي حرّرتها أو عدّلت عليها ضمن المستند الحالي. 2- في نافذة (استبدال متعدد)، تم إضافة خيار (تمييز) لتمييز العبارات بلون ما، وأصبح مسموحاً بإضافة مسافات ضمن العبارات.

[الجديد في التحديث 9.20]: العمل على كل الملاحظات والمشكلات التي صادفت المستخدمين.