كود رسالة

[أ/حكيم]

الاخوة أعضاء المنتدى الاعزاء ... المطلوب إظهار رسالة عند النقر مرتين على مجموعة خلايا في عمودين .... وشكرا....

رسالة.zip

[حمادة عمر]

السلام عليكم

الاخ الكريم / أ/حكيم

بارك الله فيك

تفضل اخي الكود التالي  لتنفيذ ما تريد

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Me.[T1] Then Exit Sub
  If Not Application.Intersect(Target, Range("MYRANG1")) Is Nothing Then
  MsgBox "السلام عليكم .. اهلا بكم في منتدي اوفيسنا .. مع تحياتي ابو سما"
  Cancel = True
 End If
End Sub

واليك الملف المرفق ... كمثال

تقبل خالص تحياتي

 

 

 

SAMA-رسالة.rar

 

تم تعديل نوفمبر 9, 2013 بواسطه حمادة عمر

[رائد 1982]

بارك الله فيك استاذنا الغالي / حمادة عمر

ابو الامورة  سمـــــــــــــــا

[حمادة عمر]

الاخ الكريم / رائد 1982

بارك الله فيك

تقبل خالص تحياتي

جزاك الله خيرا

[أ/حكيم]

شكراً جزيلا أستاذنا وبارك الله فيك ....

[حمادة عمر]

شكراً جزيلا أستاذنا وبارك الله فيك ....

 

السلام عليكم

الاخ الكريم / أ/حكيم

بارك الله فيك

تقبل خالص تحياتي