طائع قام بنشر يناير 14, 2019 مشاركة قام بنشر يناير 14, 2019 اخوانى وأساتذتى الكرام الرجاء المساعدة كيف أدرج علامة صح فى هذا الكود بدلا من غ Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("c8:AH397")) Is Nothing Then If Target.Value = "" Then Cancel = True Target.Value = "غ" Else Cancel = True Target.Value = "" End If End If End Sub رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 14, 2019 مشاركة قام بنشر يناير 14, 2019 تفضل الكود ومعه ملف Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("c8:AH397")) Is Nothing Then If Target.Value = "" Then Cancel = True Target.Value = "P" Range("c8:AH397").Font.Name = "Wingdings 2" Else Cancel = True Target.Value = "" End If End If End Sub ادراج علامة صح.xlsm 1 رابط هذا التعليق شارك More sharing options...
طائع قام بنشر يناير 15, 2019 الكاتب مشاركة قام بنشر يناير 15, 2019 اشكرك استاذى وزميلى على الاهتمام ولكن عندما يتم تفريغ البيانات من شيت 1 الى شيت 2 مثلا يتم استبدال علامة الصح بحرف p واليك المرفق ادراج علامة صح.rar رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 اجعل نوع الخط Wingdings 2 2 رابط هذا التعليق شارك More sharing options...
طائع قام بنشر يناير 18, 2019 الكاتب مشاركة قام بنشر يناير 18, 2019 اشكرك وزادك الله من علمه 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.