AbuuAhmed

جرب هذا المثال: 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 آمل من المشرفين الكرام إقفال هذا الموضوع فقد وئد في يومه الأول. شكرا للجميع.

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