اظهار وتفعيل فورم بالضغطة المزدوجة

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته

عندي كود مقتبس من احد عمالقة الموقع ـ جزاه الله خيرا 

وهو يعمل بدون مشكلة  واردت ان يعمل بالضغط المزدوج على اي خلية في العمود

فوضعت الكود في حدث الورقة ـ فيظهر الفورم ولكن غير مفعل 

ارجو التكرم بالافادة عن الحل

Option Explicit
'======================================================
'======================================================
'  kh_SetAddrss متغيرات
' ( اولا : اسم ورقة البيانات (افتراضي
' ( ثانيا : نطاق صف رؤوس اعمدة البيانات (افتراضي
'''''''''''''''''''''''''''''''''''''''''''''''''
' ( ثالثا : عمود التسلسل  (اختياري
'   اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم
'   تلقائيا في عمود معين سجل عنوان راس  العمود
'======================================================
'======================================================
Sub kh_Show_UFormChang1()
On Error GoTo 1
With UFormChang
    .kh_SetAddrss "دليل الحسابات", "a3:c3"
    .Show
End With
1:
If err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"
On Error GoTo 0
End Sub

 

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

امسح الكود الذي في الموضوع من حدث الشيت

وضع هذا الكود في حدث الصفحه

ثم اضغط على اي خليه ضغطتين وسوف تفتح الفورم عادي بدون مشاكل

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    kh_Show_UFormChang1.Show
End Sub

 

[عاطف عبد العليم محمد]

اخي الكريم حسونة حسين

لدى اكواد اخرى للأعمدة الاخرى ولذلك اريده فقط يعمل في العمود a فجعلته هكذا 

 If Target.Column = 1 Then
 kh_Show_UFormChang1.Show
 End If
ولكن اعطاني رسالة  comile error

expexted function or variable

[حسونة حسين]

اخى الكريم أين وضعت هذا الكود

2 ساعات مضت, عاطف عبد العليم محمد said:

 If Target.Column = 1 Then
 kh_Show_UFormChang1.Show
 End If

ضع الكود كاملا او ارفق ملف

[ابراهيم الحداد]

السلام عليكم و رحمة الله

اجعل الكود هكذا

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Columns("A"), Target.Cells) Is Nothing Then
UserForm1.Show 0
Else
Exit Sub
End If
End Sub