ياسر خليل أبو البراء

بسم الله ما شاء الله تفاعل جميل جداً بالموضوع وأنا نفسي استفدت من هذا التفاعل نجرب الكود التالي ونحاول نعمل Debug (اتصرف يا أخ إبراهيم في أي لوحة مفاتيح عشان هنحتاج نعمل Debug بشكل دائم لأن الأمر ده هيعلمنا إزاي كل سطر بيتنفذ و دا مهم جداُ في بناء الأكواد) Sub Test() Dim Arr Arr = [{"A", "B", "C", "D"}] Cells(3, "A").Resize(1, UBound(Arr)).Value = Arr End Sub بدون استخدام كلمة Array فقط استخدمنا بدلاً منها هذه الأقواس [ ] ، وعشان تقرا المصفوفة بحيث تبدأ من الواحد استخدمنا الأقواس { } .... بس خلاص

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

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

ربنا يخليك يا أخي الغالي إبراهيم على المجاملة الرقيقة دي اللي عندي بعض من عندكم .. بس أيوووووووه دي اسكندراني !! إنت من إسكندرية ولا ايه .. تقبل تحياتي

راجع المشاركة مرة أخرى ..كنت قد أضفت أسطر لتجنب الخطأ قبل أن تسأل

السطر ده ايه لازمته .......؟؟!! ReDim Preserve Arr(1 To 4) As Variant اعمل Debug عن طريق F8 وشوف ... الفهرس للمصفوفة بيبدأ من كام ..

جرب هذا الرابط من هنا

جرب هذا التعديل .. حاول أن تبتعد عن دمج الخلايا لأنه يسبب مشاكل مع الأكواد Sub khaled() Application.ScreenUpdating = False Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Select Rows(Selection.Row - 1).Copy Rows(Selection.Row).Insert Shift:=xlDown On Error Resume Next Rows(Selection.Row).SpecialCells(xlConstants).ClearContents On Error GoTo 0 Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

الأداة قمت بتنصيبها على أوفيس 2007 وتعمل بشكل جيد ، كما قمت بتنصيبها على أوفيس 2013 بروفيسشنال بلس يعني نسختك وتعمل بشكل جيد .. حاول أن تقوم بإصلاح نسخة الأوفيس قد تكون المشكلة فيها ... أو ابحث مرة أخرى في النافذة الخاصة بالـ additional controls لعلك لم تراها

الإضافة تتم في أسفل آخر صف ..!! وضح المطلوب بشيء من التفصيل

أخي الحبيب إبراهيم ليس هذا هو المقصود .. المقصود أن تكون الفهرسة تبدأ بالرقم واحد وفي المثالين لو عملت Debug هتلاقي في المثالين المصفوفة بتبدأ برقم صفر ..عايزين نشغل دماغنا ونعمل عملية تنشيط .. أنا مش هشتغل ملقن وبس لأني ببساطة ممكن يكون أقل واحد فيكم عنده معلومات

أضف السطر التالي قبل سطر الكود On erro resume next وأضف السطر التالي بعد سطر الكود On error goto 0

جرب الكود التالي .. ويراعى فيما بعد وضع بعض البيانات لتجربة الكود عليها إذ أن البيانات الموجود عند تنفيذ الكود لن يكون هناك نتائج حيث أنه لا توجد شروط مطابقة .. قم بتجربة الكود وغير في بعض الأرقام في أيام الأجازات ثم نفذ الكود .. يمكنك الاستغناء عن العمود الثالث الذي تكتب فيه عدد أيام الشهر .. ويمكن الاستغناء عن المعادلة في الخلية D3 والتي تحدد لك عدد أيام الشهر Sub Searches() Dim WS As Worksheet, str As String Dim I As Long Dim Found As Range Set WS = Sheets("تقرير خصم الراتب والعموله") str = WS.Range("B3").Value lRow = 7 Application.ScreenUpdating = False WS.Range("A7:C1000").ClearContents For I = 6 To Sheets.Count Set Found = Sheets(I).Columns("H:H").Find(str) If Not Found Is Nothing Then 'الشروط المطلوبة If (Found.Offset(0, -1) > 16 And NumberOfDays(str) = 31) Or _ (Found.Offset(0, -1) > 15 And NumberOfDays(str) = 30) Or _ (Found.Offset(0, -1) > 14 And NumberOfDays(str) = 29) Then WS.Cells(lRow, 1) = Sheets(I).Range("B3") WS.Cells(lRow, 2) = Sheets(I).Range("A1") WS.Cells(lRow, 3) = Found.Offset(0, -1) lRow = lRow + 1 End If End If Next I Application.ScreenUpdating = True End Sub Function NumberOfDays(str As String) If str = "" Then NumberOfDays = "" ElseIf str = "يناير" Or str = "مارس" Or str = "مايو" Or str = "يوليو" Or str = "أغسطس" Or str = "أكتوبر" Or str = "ديسمبر" Then NumberOfDays = 31 ElseIf str = "أبريل" Or str = "يونيو" Or str = "سبتمبر" Or str = "نوفمبر" Then NumberOfDays = 30 ElseIf str = "فبراير" Then NumberOfDays = 29 End If End Function

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

أخي الكريم يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة المزيد حول التعامل مع المنتدى تقبل تحياتي

وعليكم السلام أخي الغالي أبو يوسف الحمد لله أن تم المطلوب على خير ، حتى لا تظن أن عجلات القطار ستتوقف في كل المحطات .. فما زال في القطار بعض العجلات التي يمكن أن تساعد على السير قدماً تقبل وافر تقديري واحترامي

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

يمكن من خلال داخل الكود نفسه عن طريق تحديد بداية ونهاية المصفوفة ولكن يوجد حل آخر في حالة أن الإعلان عن المصفوفة كان من النوع متغير Variant .........

عدد ساعات العمل 8:10 مضبوط ؟؟ كيف تقوم بحساب فرق التوقيت جرب المعادلة التالية ستعطيك نفس النتيجة =I6-J6+(J6>I6)

ارفق ملفك للتوضيح ولمحاولة المساعدة

تفضل أخي الغالي أبو يوسف الملف التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("D4:F4")) Is Nothing Then Application.EnableEvents = False If Target.Address = "$D$4" Or Target.Address = "$E$4" Then _ Cells(4, 6) = (Cells(4, 5) * Cells(4, 4) / 100) * 100 If Target.Address = "$D$4" Or Target.Address = "$F$4" Then _ Cells(4, 5) = (Cells(4, 6) / Cells(4, 4) * 100) / 100 Application.EnableEvents = True End If End Sub Circular Reference YasserKhalil.rar

ما هي نسخة الأوفيس ؟ وهل أثناء تنصيب الأداة واجهت أي مشاكل ؟ الموضوع مجرب ويعمل بشكل جيد .. هل Additional Controls النافذة الخاصة بها تظهر معك ؟ أم أن هناك مشكلة بالأصل في الأوفيس لديك؟

وعليكم السلام أبي الروحي أبو يوسف هل تم الأمر كما تريد ؟ إذا كان الأمر قد تم فيرجى تحديد أفضل إجابة ليظهر الموضوع مجاب

الأمر بسيط استخدم السطر التالي للإخفاء ws.Range("AZ" & lr).EntireRow.Hidden = True وغير كلمة True إلى False للإظهار انتهى

وجزيت بمثل ما دعوت أخي الكريم أحمد الحمد لله أن تم المطلوب على خير تقبل تحياتي