عند وضع كودين فى نفس الحدث

[يوسف عطا]

الأخوة الأعزاء

السلام والتحية لكم جميعاً

سؤالى بإختصار

عند رغبتى فى وضع كودين أو أكثر فى نفس الحدث

سواء فى this workbook أو فى الشيتات

هل توجد طريقة معينة أو ترتيب معين ينبغى مراعاته أم ماذا ؟؟

وهل يتم وضع كل كود منفرداً فى حدثه ؟؟

أم يتم دمج الأكواد لتكون كأنها كود واحد ؟؟

شاكر الأفضال

[ياسر خليل أبو البراء]

الأخ يوسف

لو أردت كتابة كودين في نفس الحدث فلابد من يتم دمجهما وفي نفس الوقت يراعى ترتيب تنفيذ الأكواد بحيث لا يحدث تعارض من ناحية وحتى يحقق المطلوب منه من ناحية أخرى

ارفق ملف توضح فيه المطلوب ..

أخوك أبو البراء

[يوسف عطا]

أخى العزيز أبوالبراء

اشكر لك ردك وإهتمامك

جارى إرفاق ملف ولك خالص الشكر ولكن غدا وليس اليوم

الف شكر

[يوسف عطا]

الأخ الفاضل ابو البراء

هذان كودان فى نفس الحدث

عندما وضعتهما وراء بعضهما حدث إرور

وعندما دمجتهما ظهر إرور ايضاً

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Selection.NumberFormat = "[=0]0;[>99]0;#.#"

End Sub

أرجو أن يكون الشرح عام بحيث يمكن تطبيقه فى ظروف أخرى

أى توضيح اسس دمج الأكواد بوجه عام

الف شكر

[deebsagheer]

الأخ الفاضل ابو البراء

هذان كودان فى نفس الحدث

عندما وضعتهما وراء بعضهما حدث إرور

وعندما دمجتهما ظهر إرور ايضاً

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

End Sub

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

Selection.NumberFormat = "[=0]0;[>99]0;#.#"

End Sub

أرجو أن يكون الشرح عام بحيث يمكن تطبيقه فى ظروف أخرى

أى توضيح اسس دمج الأكواد بوجه عام

الف شكر

[deebsagheer]

الاخ يوسف اسمح لي بالمساعده

يجب ان يكون هناك عنوان واحد للحدث و بعد كتابة الكود الاول و قبل كتابة عبارة end sub اضف الكود الثاني بدون عنوان ثم انهي الحدث بالعبارة End sub كما هو مبين اسفل

ارجو ان تكون مساهمتي فعاله

تحياتي

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

Selection.NumberFormat = "[=0]0;[>99]0;#.#"

End Sub

[يوسف عطا]

الأخ ديب صغير

بالفعل عندما دمجت الكودين كما تفضلت ودمجتهما حضرتك ظهر لى إرور ايضاً

[ياسر خليل أبو البراء]

الأخ الغالي يوسف

ارفق ملف حتى نستطيع أن نساعدك

[أبوعبد الله]

الأخ العزيز / يوسف

رجاء الاطلاع على المرفق لعل به ما تريد .

تحياتي

أبو عبدالله

PROTECT SHEET IF SELECT FORMULA.rar

[يوسف عطا]

مشكورين أخوتى الأعزاء