يوسف عطا قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 الأخوة الأعزاء السلام والتحية لكم جميعاً سؤالى بإختصار عند رغبتى فى وضع كودين أو أكثر فى نفس الحدث سواء فى this workbook أو فى الشيتات هل توجد طريقة معينة أو ترتيب معين ينبغى مراعاته أم ماذا ؟؟ وهل يتم وضع كل كود منفرداً فى حدثه ؟؟ أم يتم دمج الأكواد لتكون كأنها كود واحد ؟؟ شاكر الأفضال رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 الأخ يوسف لو أردت كتابة كودين في نفس الحدث فلابد من يتم دمجهما وفي نفس الوقت يراعى ترتيب تنفيذ الأكواد بحيث لا يحدث تعارض من ناحية وحتى يحقق المطلوب منه من ناحية أخرى ارفق ملف توضح فيه المطلوب .. أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 10, 2010 الكاتب مشاركة قام بنشر يوليو 10, 2010 أخى العزيز أبوالبراء اشكر لك ردك وإهتمامك جارى إرفاق ملف ولك خالص الشكر ولكن غدا وليس اليوم الف شكر رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 17, 2010 الكاتب مشاركة قام بنشر يوليو 17, 2010 الأخ الفاضل ابو البراء هذان كودان فى نفس الحدث عندما وضعتهما وراء بعضهما حدث إرور وعندما دمجتهما ظهر إرور ايضاً 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 أرجو أن يكون الشرح عام بحيث يمكن تطبيقه فى ظروف أخرى أى توضيح اسس دمج الأكواد بوجه عام الف شكر رابط هذا التعليق شارك More sharing options...
deebsagheer قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 الأخ الفاضل ابو البراء هذان كودان فى نفس الحدث عندما وضعتهما وراء بعضهما حدث إرور وعندما دمجتهما ظهر إرور ايضاً 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 أرجو أن يكون الشرح عام بحيث يمكن تطبيقه فى ظروف أخرى أى توضيح اسس دمج الأكواد بوجه عام الف شكر رابط هذا التعليق شارك More sharing options...
deebsagheer قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 الاخ يوسف اسمح لي بالمساعده يجب ان يكون هناك عنوان واحد للحدث و بعد كتابة الكود الاول و قبل كتابة عبارة 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 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 الأخ ديب صغير بالفعل عندما دمجت الكودين كما تفضلت ودمجتهما حضرتك ظهر لى إرور ايضاً رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 22, 2010 مشاركة قام بنشر يوليو 22, 2010 الأخ الغالي يوسف ارفق ملف حتى نستطيع أن نساعدك رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 22, 2010 مشاركة قام بنشر يوليو 22, 2010 الأخ العزيز / يوسف رجاء الاطلاع على المرفق لعل به ما تريد . تحياتي أبو عبدالله PROTECT SHEET IF SELECT FORMULA.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 24, 2010 الكاتب مشاركة قام بنشر يوليو 24, 2010 مشكورين أخوتى الأعزاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان