ابو نبأ قام بنشر أبريل 13, 2015 مشاركة قام بنشر أبريل 13, 2015 السلام عليكم سؤالي موضح بالملف المرفق وفقكم الله وسلمكم من كل مكروه السلام عليكم كتابة التاريخ واليوم عند كتابة كلمة.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر أبريل 14, 2015 أفضل إجابة مشاركة قام بنشر أبريل 14, 2015 أخي الحبيب أبو نبأ ... أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق .. عموما جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 10 Then If Target.Value = "صرفت" Then Target.Offset(, 1).Value = Date Target.Offset(, 2).Value = Format(Date, "ddd") End If End If End Sub كتابة التاريخ واليوم عند كتابة كلمة.rar 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 14, 2015 مشاركة قام بنشر أبريل 14, 2015 عسى ان ينال اعجابك في حال ذلك اضغط اعجبني ملاحظة :التاريخ لا يتغير اذا (لا يتحدث) اذا تم الكتابة مرة ثانية في الخلية Target الا اذا تم مسحة اولاً كتابة التاريخ واليوم عند كتابة كلمة salim.rar 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر أبريل 14, 2015 مشاركة قام بنشر أبريل 14, 2015 السلام عليكم ورحمة الله تفضل اخي عند كتابة كلمة صرفت في العمود J يتم كتابة التاريخ مقابلة في العمود K واليوم في العمود L تلقائيا كتابة التاريخ واليوم عند كتابة كلمة صرفت.rar رابط هذا التعليق شارك More sharing options...
ابو نبأ قام بنشر أبريل 14, 2015 الكاتب مشاركة قام بنشر أبريل 14, 2015 السلام عليكم ورحمة الله تفضل اخي عند كتابة كلمة صرفت في العمود J يتم كتابة التاريخ مقابلة في العمود K واليوم في العمود L تلقائيا بارك الله فيك وحفظكم النتيجة التاريخ والشهر - اخي الحيب اريد التاريخ واليوم اشكرك وبارك الله فيك رابط هذا التعليق شارك More sharing options...
ابو نبأ قام بنشر أبريل 14, 2015 الكاتب مشاركة قام بنشر أبريل 14, 2015 عسى ان ينال اعجابك في حال ذلك اضغط اعجبني ملاحظة :التاريخ لا يتغير اذا (لا يتحدث) اذا تم الكتابة مرة ثانية في الخلية Target الا اذا تم مسحة اولاً السلام عليكم ممنون وشكراً ، فقط ملاحظة : عند كتابة كلمة صرفت التاريخ مضبوط ، بس اكو مشكلة في حقل اليوم السلام عليكم رابط هذا التعليق شارك More sharing options...
ابو نبأ قام بنشر أبريل 14, 2015 الكاتب مشاركة قام بنشر أبريل 14, 2015 أخي الحبيب أبو نبأ ... أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق .. عموما جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 10 Then If Target.Value = "صرفت" Then Target.Offset(, 1).Value = Date Target.Offset(, 2).Value = Format(Date, "ddd") End If End If End Sub سلمكم الله وزادك علما وحفظكم الله من كل مكروه 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان