AbuuAhmed

سبحان الله، الموضوع كان نشط وبمجرد شاركت أنا فيه نام وخمد!! نفس الفكرة ولكن من خلال زر ارقام النتائج عربي_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

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

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

منقول: أوقف حاكم 100 سجين في دائرة وأرقامهم من 1 إلى 100 أعطى الأول سيفا فقتل رقم 2 ثم أخذ رقم 3 السيف وقتل رقم 4 . . أخذ رقم 99 السيف وقتل رقم 100 أخذ رقم 1 السيف وقتل رقم 3 استمرت لعبة الموت حتى بقي واحد فقط. ما رقم الذي تبقى؟ محاولاتكم يجب أن تكون برمحيا وليست رياضياتيا، فرياضياتيا لها معادلة أو قانون مسمى. لكم مطلق الحرية باستخدام الأكواد أو الجداول والاستعلامات أو بهما معا أو بأي مكون من مكونات الأكسس. الحصول على الإجابة الصحيحة بحد ذاته تميز ولكن لو تم بواسطة الشفرة/الكود فقط يكون أكثر تميزا وله الأفضلية. وبالطبع كلما أختصرت المحاولة كلما كانت أفضل ولكن ليكن تركيزكم أولا على الحصول على النتيجة. لك مبرمج محاولتين ولا يسمح برقع محاولة ثالثة. لا تلجأوا إلى الذكاء الاصطناعي. حل هذا المثال هو 73، حتى تستطيعوا مراجعة نتائجكم. نريد نتائج للعدد: 10 و 500 و 7000 للمشرفين: أي كلمة في المشاركة محظورة يمكنكم تبديلها بأخرى بنفس المعنى.

محاولتي الثانية ولكن بإلغاء عمل الزر فهو غير مفهوم لي طريقة عمله ولا أؤيد العمل به. تعامل مع الأكسس بشكل عملي واترك عنك هذه الأمور غير المفيدة وغير العملية. عوضت عن الزر بصندوق نعم/لا ويمك عملها بزر ولكن ليست بطريقتك بل بطريقة عادية بسيطة. BlockExam_03.accdb