AbuuAhmed

ربما غايتك النتائج بتقويم أم القرى، إذا كان كذلك فاستخدم التنسيق الآتي لخلايا التاريخ الهجري: [$-1170000]B2dd/mm/yyyy;@

محاولتي =IF(F2="","",IF(F2<E2,"-","")&TEXT(ABS(F2-E2),"hh:mm")) TRIP_01.xlsx

سبحان الله، الموضوع كان نشط وبمجرد شاركت أنا فيه نام وخمد!! نفس الفكرة ولكن من خلال زر ارقام النتائج عربي_05.xlsm

جرب هذا الكود في حدث التغيير للصفحة إذا راقت لكم الفكرة فقوموا بالتعديل على الكود حسب الرغبة لا تنتطروني .. Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 22 And .Row >= 6 And .Row <= 9 Then If .Value = 0 Then .NumberFormat = "0;-0;;@" ElseIf .Value = Fix(.Value) Then .NumberFormat = "[$-2010401]0" Else .NumberFormat = "[$-2010401]0.00" End If Debug.Print .Address, .Value, .NumberFormat End If End With End Sub

أول خانة هي رمز القرن ويمكن علاجه بطريقة أفضل حسب وجهة نظري كالتالي: cy = (Left(MyNumber, 1) + 17) * 100 لتصبح النتائج كالتالي: 1700 0 1800 1 1900 2 2000 3 2100 4

سؤالك غير واضح، لو ترفع مثال وبمزيد من الشرح ستجد أكثر من عضو يشارك معك المحاولة.

أخي العزيز أرسلت لك رسالة على الخاص.

جرب هذا المثال: https://drive.google.com/file/d/1_gpuyZaEvQ_SdM8T3VhuepoAIuTcfgI3/view?usp=drive_web

جرب تنسيق الخلايا هذا: [$-2060000]0

صممت لك شفرة تصحيح عمودي المبالغ وتاريخ الإنشاء: Sub CorrectFormat() Columns("C:C").Select With Selection .Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False .HorizontalAlignment = xlRight .NumberFormat = "#,##0.00" End With Columns("G:G").Select With Selection .Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End With End Sub Paymob333_01.xlsm

فهمتك بشكل خاطئ، الحل السابق لحل حقل التاريخ النصي إلى حقل تاريخ أما مشكل حقل الأرقام المطلوب جمعها فهناك حل يدوي تعود على استخدامه باستخدام صندوق البحث والاستبدال كالتالي: - بالفأرة قف على أي رقم من نفس العمود. - من شريط المعادلات Formula bar هناك رمز في آخر الرقم يظهر كمسافة ظلله ثم احفظه في الذاكرة. - ظلل عمود الأرقام. - افتح صندوق البحث والاستبدال ثم الصف في خانة البحث ما تم حفظه في الذاكرة. - انقر زر استبدال الكل.

استخدام هذه المعادلة: = SUBSTITUTE(G3, ",", "", 1) * 1

مقارنة TwoPeriods_02.xlsx

أنصح بتعديل بسيط في معادلة جمع الأيام عندما يكون مجموع المدد لأكثر من فترتين ويكون فيها مجموع خانة/عمود الأيام كبيرا كالتالي: =(O37+K37)*360 + (N37+J37)*30 + ROUND((M37+I37)/365*360,0) بدلا من: =(O37+K37)*360 + (N37+J37)*30 + (M37+I37)

محاولتي: TwoPeriods_01.xlsx

ربما هو المطلوب BASE-E5_02.accdb

محاولتي: معادلة طرح وجمع تاريخين_02.xlsx

المثال: hashtags_01.accdb

استخدم دالة IsNumeric إذا كانت النتيجة 0 أو false فهي القيمة المطلوبة

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

حلول ذكية منقولة الحل الأول: Function Survivor(pCount As Integer) As Variant Dim Res As String Survivor = "#NUM!" If pCount < 1 Or pCount > 511 Then Exit Function Res = WorksheetFunction.Dec2Bin(pCount) Res = Mid(Res, 2) & Left(Res, 1) Survivor = WorksheetFunction.Bin2Dec(Res) End Function الحل الثاني: Function Survivor(pCount As Integer) As Integer Dim Prisoners As String Dim k As Integer, v As Integer Prisoners = String(pCount, "1") Do While Replace(Prisoners, "0", "") <> "1" k = InStr(v + 1, Prisoners, "1"): If k = 0 Then k = InStr(1, Prisoners, "1") v = InStr(k + 1, Prisoners, "1"): If v = 0 Then v = InStr(1, Prisoners, "1") Prisoners = Left(Prisoners, v - 1) & "0" & Mid(Prisoners, v + 1) Loop Survivor = InStr(1, Prisoners, "1") End Function آمل من المشرفين الكرام إقفال هذا الموضوع فقد وئد في يومه الأول. شكرا للجميع.

كان يجب عليك الإلتزام بالسؤال والشروط، هو سؤال وليس تنظيرا لنظرية ما. لم تجب على الجزء الآخر من السؤال، هل كتب الدالة بعد قراءتك للسؤال أم كتبتها سابقا؟.

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

أستاذ يمكن الوصول للحل بدون معرفة عدد الدورات.

ولما لا؟!، أسمك مألوف لدي جيدا ولكن لا أتذكر أي أحداث بيني وبينك، والحمد لله من نعم الله علي أني كثير النسيان وهذا يسهل علي التعامل مع الناس. أحييك على حماسك ولتكن أنت البادئ.