استدعاء كود

[ابو هبه]

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

 

الرجاء من الاخوه الافاضل مساعدتي في هذا الملف

المطلوب استدعاء الكود الموجود  CommandButton1 بواسطة زر   استدعاء كود  CommandButton2  

 

ملاحظه :-    CommandButton1 خالي من اي كود المرجو اضافة اي كود للتجربه حتى يمكن استدعاءه والتعديل عليه

 

مع خالص شكري وتقديري

مثال.rar

تم تعديل مايو 13, 2014 بواسطه ابو هبه

[ابو هبه]

  في 13‏/5‏/2014 at 17:11, ابو هبه said:

 

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

 

الرجاء من الاخوه الافاضل مساعدتي في هذا الملف

المطلوب استدعاء الكود الموجود  CommandButton1 بواسطة زر   استدعاء كود  CommandButton2  

 

ملاحظه :-    CommandButton1 خالي من اي كود المرجو اضافة اي كود للتجربه حتى يمكن استدعاءه والتعديل عليه

 

مع خالص شكري وتقديري

 

 

  في 13‏/5‏/2014 at 17:11, ابو هبه said:

 

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

 

الرجاء من الاخوه الافاضل مساعدتي في هذا الملف

المطلوب استدعاء الكود الموجود  CommandButton1 بواسطة زر   استدعاء كود  CommandButton2  

 

ملاحظه :-    CommandButton1 خالي من اي كود المرجو اضافة اي كود للتجربه حتى يمكن استدعاءه والتعديل عليه

 

مع خالص شكري وتقديري

 

اين اهل الخبره؟ الرجاء المساعده

[رجب جاويش]

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

مثال.rar

[ابو هبه]

  في 14‏/5‏/2014 at 15:16, رجب جاويش said:

 

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

معذرة اخي العزيز المطلوب هو عند الضغط على زر  CommandButton2 يفتح لي الكود الموجود في زر  CommandButton1  لكي اعدل عليه او اضيف عليه سطرجديد او اغير في الكود

المهم احضار الكود وفتحه ...مع فائق شكري وتقديري لجهدك المبذول

[ابو هبه]

  في 14‏/5‏/2014 at 18:35, ابو هبه said:

 

  في 14‏/5‏/2014 at 15:16, رجب جاويش said:

 

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

معذرة اخي العزيز المطلوب هو عند الضغط على زر  CommandButton2 يفتح لي الكود الموجود في زر  CommandButton1  لكي اعدل عليه او اضيف عليه سطرجديد او اغير في الكود

المهم احضار الكود وفتحه ...مع فائق شكري وتقديري لجهدك المبذول

 

[ابو هبه]

  في 15‏/5‏/2014 at 15:34, ابو هبه said:

 

  في 14‏/5‏/2014 at 18:35, ابو هبه said:

 

  في 14‏/5‏/2014 at 15:16, رجب جاويش said:

 

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

معذرة اخي العزيز المطلوب هو عند الضغط على زر  CommandButton2 يفتح لي الكود الموجود في زر  CommandButton1  لكي اعدل عليه او اضيف عليه سطرجديد او اغير في الكود

المهم احضار الكود وفتحه ...مع فائق شكري وتقديري لجهدك المبذول

 

 

[رجب جاويش]

أخى الفاضل / أبو هبه

أعتقد أن هذه العمليه صعبه وربما تكون غير ممكنه

والله أعلم

[ابو هبه]

  في 16‏/5‏/2014 at 13:30, رجب جاويش said:

أخى الفاضل / أبو هبه

أعتقد أن هذه العمليه صعبه وربما تكون غير ممكنه

والله أعلم

شكرا لك اخي الفاضل ولجهودك المبذوله تقديري وامتناني لك