هانى محمد قام بنشر يوليو 3, 2018 مشاركة قام بنشر يوليو 3, 2018 (معدل) السلام عليكم اهل واساتذة المنتدى الكرام-أرجو من حضراتكم التكرم على مساعدتى فى : تعطيل كود جلب الوقت الحالى بدبل كليك فى العمودين رقم 20 و 21 أى العمودين T & U وذلك اذا كان نوع الدوام الموجود فى العمود E "دوام واحد" -بمعنى جعل الخلية فارغة امام هذا الشرط اى بدون وقت نهائيا ولكم منى جزيل الشكر وبارك الله فيكم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 16 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 17 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 20 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 21 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If Target = Format(Time, "hh:mm AM/PM") End Sub تعديل كود الوقت.xlsm تم تعديل يوليو 3, 2018 بواسطه هانى محمد رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر يوليو 3, 2018 الكاتب مشاركة قام بنشر يوليو 3, 2018 للرفع جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 3, 2018 مشاركة قام بنشر يوليو 3, 2018 (معدل) تفضل اخى الكريم جرب هذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 16 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 17 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 20 And Target.Row > 7 Then If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub Cancel = True Target.Value = Now() End If If Target.Column = 21 And Target.Row > 7 Then If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub Cancel = True Target.Value = Now() End If Target = Format(Time, "hh:mm AM/PM") End Sub تم تعديل يوليو 3, 2018 بواسطه ali mohamed ali 2 رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر يوليو 3, 2018 الكاتب مشاركة قام بنشر يوليو 3, 2018 (معدل) أحسنت استاذ علي وبارك الله فيك وهو ده بالفعل المطلوب لك الشكر كله تم تعديل يوليو 3, 2018 بواسطه هانى محمد 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يوليو 4, 2018 مشاركة قام بنشر يوليو 4, 2018 بارك الله فيكم جميعا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.