abofayez1 قام بنشر يونيو 11, 2020 مشاركة قام بنشر يونيو 11, 2020 السلام عليكم ورحمة الله إخوتي الكرام لدي جدول به عمودان العمود الاول عدد الحضور والثاني التاريخ ،،،عند تغيير عدد الحضور أريد يتم تعديل التاريخ والوقت بشكل فوري .. المعادلة مكتوبة في حقل التاريخ لكن المشكلة فيها أنني لابد من مسح الخلية والانتقال منها ثم العودة لها وكتابة القيمة الجديدة حتى يتحدث التاريخ .وهذه مشكلة أريد عند تحديث الرقم يتحدث التاريخ والوقت فوريا، هل يمكن التعديل علىي المعادلة الحالية لا أريد نص برمجي لأني سأستخدم الملف في قوقل شيت وما قبل النصوص البرمجية . الحضور.xlsx رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 11, 2020 مشاركة قام بنشر يونيو 11, 2020 وعليكم السلام , طالما انك لا تريد الحل بالأكواد .فلا يمكن عمل هذا الا بهذه المعادلة =IF(A2<>"",IF(AND(B2<>"",CELL("address")=ADDRESS(ROW(A2),COLUMN(A2))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A2),COLUMN(A2)),B2,NOW())),"") الحضور1.xlsx 4 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر يونيو 12, 2020 أفضل إجابة مشاركة قام بنشر يونيو 12, 2020 وهذا حل ايضا بالكود على الرغم انك قد رافض هذا الأمر من البداية فلهذا موضوعك اخذ أكبر من وقته وحجمه فالموضوع ابسط من هذا بكثير -تفضل وذلك من خلال وضع هذا الكود بحدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim xCellColumn As Integer Dim xTimeColumn As Integer Dim xRow, xCol As Integer Dim xDPRg, xRg As Range xCellColumn = 1 xTimeColumn = 2 xRow = Target.Row xCol = Target.Column If Target.Text <> "" Then If xCol = xCellColumn Then Cells(xRow, xTimeColumn) = Now() Else On Error Resume Next Set xDPRg = Target.Dependents For Each xRg In xDPRg If xRg.Column = xCellColumn Then Cells(xRg.Row, xTimeColumn) = Now() End If Next End If End If End Sub الحضور1.xlsm 5 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 احسنت اخي علي انا دائما اشجع على الاكواد البرمجية ديناميكية وسريعة واتمنى من الاعضاء طالما وجدوا الحل عدم الاشترطات في الحلول الاساتدة هم من يحددوا ما اذاكان بالمعادلة او الكود 2 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 اخي ابو فايز اتمنى ان تتقبل ملاحظتي براحابة صدر انا عممت على الاعضاء لاني لاحظت هذا الشي يتكرر كثيرا تفبل تحياتي رابط هذا التعليق شارك More sharing options...
abofayez1 قام بنشر يونيو 12, 2020 الكاتب مشاركة قام بنشر يونيو 12, 2020 ملاحظاتك على عيني وراسي ...وأتشرف بالنقد وكلنا لبعض .. وفقك ربي أخي عبدالفتاح هذا والله يدل على طيب أصلك ووالله ما أخذت في نفسي من كلامك شيء لكن استحيت أن أكون ضيف ثقيل على المنتدى . وفقك ربي يا أستاذ عبدالفتاح. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان