ياسر خليل أبو البراء قام بنشر سبتمبر 25, 2014 مشاركة قام بنشر سبتمبر 25, 2014 السلام عليكم إخواني الكرام في المنتدى الرائع أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده .. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub 16 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر سبتمبر 25, 2014 مشاركة قام بنشر سبتمبر 25, 2014 احسنت بارك الله فيك رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر سبتمبر 26, 2014 مشاركة قام بنشر سبتمبر 26, 2014 بارك الله فيك جميل جدا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 26, 2014 الكاتب مشاركة قام بنشر سبتمبر 26, 2014 الأخوة الكرام / محمد الخازمي والأخ / طلعت محمد حسن أشكركم على مروركم الكريم على موضوعي المتواضع وأسأل الله أن ينفع الناس بما علمنا وأن يجعله شاهدا لنا لا علينا 1 رابط هذا التعليق شارك More sharing options...
ahmd_asd4 قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 بسم الله مشاء الله أحسنت رابط هذا التعليق شارك More sharing options...
احمد عبدة قام بنشر نوفمبر 24, 2014 مشاركة قام بنشر نوفمبر 24, 2014 رائع اكثر من رائع بارك الله فيك وذادك من علمة تحياتى رابط هذا التعليق شارك More sharing options...
علي الرويلي قام بنشر ديسمبر 9, 2014 مشاركة قام بنشر ديسمبر 9, 2014 يارك الله فيك اخي العزيز هل ممكن تعدد النطاقات مثلا عدة اعمده مثال ارغب في تحديد النطاقات التالية A1:A100 C1:C100 M1:M100 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 9, 2014 الكاتب مشاركة قام بنشر ديسمبر 9, 2014 الأخ الحبيب علي الرويلي أكيد ممكن مش ممكن ليه تفضل جرب الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100,C1:C100,M1:M100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub 3 رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 9, 2014 مشاركة قام بنشر ديسمبر 9, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب ابو البراء جزاكم الله خيرا ابداع منقطع النظير وجهد كبير ومستمر لمساعدة الاخوة الاعضاء اثابكم الله واعانكم لعمل الخير تقبل فائق احترامي وتقديري 1 رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر ديسمبر 10, 2014 مشاركة قام بنشر ديسمبر 10, 2014 فكرة الكود جميلة .. جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
علي الرويلي قام بنشر ديسمبر 10, 2014 مشاركة قام بنشر ديسمبر 10, 2014 ياسلام عليك يارهيب يالذيذ يارايق 1 رابط هذا التعليق شارك More sharing options...
الرملى قام بنشر ديسمبر 10, 2014 مشاركة قام بنشر ديسمبر 10, 2014 (معدل) جميل جدا وهل يمكن عمل اضافة للكود بحيث يقوم بعد الخلايا التى تم تأشير العلامة داخلها فى خلية للاجمالى؟ تم تعديل ديسمبر 10, 2014 بواسطه الرملى رابط هذا التعليق شارك More sharing options...
ibrahim al esawy قام بنشر ديسمبر 10, 2014 مشاركة قام بنشر ديسمبر 10, 2014 السلام عليكم ممكن اعرف الكود بيتحط فين تحديدا انا مش عارف اوصل للقائمة او المكان الى هيتحط فية الكود ممكن المساعدة Worksheet_BeforeDoubleClick رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 10, 2014 الكاتب مشاركة قام بنشر ديسمبر 10, 2014 أخي الغالي اضغط Alt + F11 للدخول لمحرر الأكواد .. هتلاقي فيه نافذة المشروع على اليسار فيها أسماء الشيتات ..دبل كليك على الشيت المراد وضع الكود فيه ..بس خلاااااااص رابط هذا التعليق شارك More sharing options...
عبدالله فاروق ابو ريان قام بنشر أبريل 27, 2015 مشاركة قام بنشر أبريل 27, 2015 بارك الله فيك استاذنا ياسر خليل رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 27, 2015 الكاتب مشاركة قام بنشر أبريل 27, 2015 جزيت خيراً أخي عبد الله فاروق على مرورك العطر وأشكرك على جهدك الكبير المبذول بالمنتدى ، جعله الله في ميزان حسناتك .. وبحسدك على صبرك مع بعض الأعضاء تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
ابو جودى قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 استاذ/ ياسر فكرة مميزة جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 28, 2015 الكاتب مشاركة قام بنشر أبريل 28, 2015 مشكور على مرورك المميز والعطر أخي عمرو رابط هذا التعليق شارك More sharing options...
عبدالله فاروق ابو ريان قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 استاذي ياسر خليل نحن نتعلم منكم فانت من خير اساتذة المنتدى 1 رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر أبريل 29, 2015 مشاركة قام بنشر أبريل 29, 2015 جزاكم الله خير رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر يوليو 2, 2015 مشاركة قام بنشر يوليو 2, 2015 السلام عليكم قبل صلاه العشاء والتراويح حبيب اجى واقول جزاك الله كل الخير وجدت ضالتى فى موضوعك (Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean If Not Intersect(Target, Range("h5:g17")) Is Nothing Then Cancel = True Call mas End If End Sub ()Sub mas() ("ActiveCell = Format(Now, "hh:nn ampm End Sub 1 رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 2, 2015 مشاركة قام بنشر يوليو 2, 2015 فكرة رائعة جزاك الله خيرا وزادك علما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان