islammahmoud

لحل هذه المشكلة اختار من تبويب تصميم سواء في النموذج او التقرير (نسق) ثم اختار نوع النسق الذي يتناسب مع مجموعة الخطوط التي تريدها

                                                                 ودمتم بود ومحبة

ما شاء الله عليك أرجوا من الله ان يتم عليك نعمته وأن يجعله في ميزان حسناتك

https://mobily.ws/Program/Excel.html

هذ هو رابط برنامج موبايلي للرسائل اللي مرتبط بالإكسل

السلام عليكم

شركة موبايلي منزلة تطبيق sms بيشتغل مع الاكسيل 

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

تسلم على هذا المجهود الرائع ولكني استخدمت هذا الكود (كود الترحيل) من قبل وهو يعمل ببطئ شديد بين أوراق العمل

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

بعد إذن عمالقة المنتدى وخبرائه معكم طويلب علم أخي العزيز انت من اي بلد وحدد الشبكات اللي موجوده عندك آسف على الإسم (eng)

السَّلام عليْكم ورحْمة الله وبركاته.

سَلامًا كَعَدِّ القَطْرِ وَالرَّمْلِ وَالحَصَى        وَنَبْتِ الصَّحَارَى وَالنُّجُومِ الشَّوَاهِدِ
سَلامًا يُبَارِي الرِّيحَ  مِسْكًا  وَعَنْبَرًا        وَيَعْلُو   بِهَامِ   الوُدِّ   فَوْقَ   الفَرَاقِدِ
وَأَهْلاً  كَمَا  هَبَّ  النَّسِيمُ   المُعَطَّرُ        وَإِلاَّ  فَمِسْكٌ  طَيِّبُ  النَّشْرِ   أَظْفَرُ

حيَّاكم الله وأحياكم للأمَّة، تُجدِّدون نضرَتَها، وتُعيدون شبابَها، وتَصلون أسبابَها، وتفتحون أبوابَها، وتَجمعون أصواتَ حُداتِها على إحْياء مواتِها وتدارك فواتِها.

أَمَانَةُ الدِّينِ قَدْ شُدَّتْ  بِعَاتِقِكُمْ        فَمَا   لِغَيْرِكُمُ    تُلْقَى    المَقَالِيدُ
مَنْ أَوْرَدَ الآمَالَ حَوْضَ فَعَالِكُمْ        فَلَهَا الأَمَانُ مِنَ انْ تُزَادَ وَتُصْرَفَا
فَاللَّهُ  يُرْضِيكُمْ  وَيَرْضَى  عَنْكُمُ        وَيُحِلُّكُمْ  غُرَفًا  عَلَوْنَ  وَرَفْرَفَا

جزاكم الله الخير وجعل اروحكم في حواصل الطير 

الدرس الحادى عشر

 

حدث الملف workbook

أو حدث الصفحة worksheet

 

 

هناك أكواد يتم كتابتها داخل حدث الملف

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

 

وهناك أكواد يتم كتابتها داخل حدث الصفحة

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

 

وهناك أكواد تكتب داخل موديول ويتم ربطها بكود يكتب داخل حدث الصفحة

 

وأيضا هناك أكواد تكتب داخل موديول ويتم ربطها بكود داخل حدث الفورم

 

سنتحدث بهذا الدرس عن الأكواد التى تكتب داخل حدث الصفحة

ولكن يجب أن نتعرف عليها وأين تكتب هذه الأكواد

 

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

 

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

 

كما بالصورة التالية

 

 

 

 

عند اختيار الحدث selectionchange

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

(Private Sub Worksheet_SelectionChange(ByVal Target As Range

End Sub

ويتم تنفيذ الحدث عندما يتم تغيير الاختيار

أى مثلا كلما قمنا بالإنتقال من خلية الى خلية أخرى

 

على سبيل المثال

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static previous_selection As String
If previous_selection <> "" Then
Range(previous_selection).Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.Color = RGB(181, 244, 0)
previous_selection = Target.Address
End Sub

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

 

 

 

عند اختيار الحدث Worksheet_Activate

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_ Activate ( )

End Sub

وهو خاص بعندما يتم تنشيط الورقة أى الدخول الى الورقة

 

 

 

 

عند اختيار الحدث Worksheet_Deactivate

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_Deactivate ( )

End Sub 

وهو خاص بعندما يتم تنشيط ورقة عمل أخرى

 

 

 

 

عند اختيار الحدث Worksheet_BeforeDoubleClick

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub 

وهو خاص بعندما يتم النقر مرتين على خلية ما

 

 

 

 

عند اختيار الحدث Worksheet_BeforeRightClick

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_BeforeRightClick (ByVal Target As Range, Cancel As Boolean)

End Sub 

وهو خاص بعندما يتم الضغط على كليك يمين على الورقة

 

 

 

 

 

عند اختيار الحدث Worksheet_Calculate

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_Calculate ( )

End Sub 

وهو خاص بعندما يتم حساب بيانات فى ورقة العمل أو إعادة حساب

 

 

 

 

عند اختيار الحدث Worksheet_Change

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub 

وهو خاص بعندما يتم تغيير محتويات الخلايا بورقة العمل

 

 

 

عند اختيار الحدث Worksheet_FollowHyperlink

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub 

وهو خاص بعندما يتم النقر على ارتباط تشعبى

 

 

 

 

 

عند اختيار الحدث Worksheet_FollowHyperlink

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub 

وهو خاص بعندما يتم النقر على ارتباط تشعبى

 

 

 

 

 

 

ننتقل الى حدث الملف workbook

 

عند اختيار الحدث Workbook_Open

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Workbook_Open ( )

End Sub 

ويتم تنفيذ الحدث عندما يتم تغيير الاختيار

أى مثلا كلما قمنا بالإنتقال من خلية الى خلية أخرى

 

على سبيل المثال

Private Sub Workbook_Open ( )
" منتديات أوفيسنا ترحب بكم  MsgBox"
End Sub

ومعنى الكود أى عند فتح الملف سيتم عرض مربع حوار فى شكل رساله ترحب بك

 

 

 

 

عند اختيار الحدث Workbook_BeforeClose

تلقائيا يتم كتابة رأس الكود ونهايته ويكون الكود هكذا

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub 

وهو خاص بتنفيذ تعليمات مباشرة قبل اغلاق الملف

 

 

 

ومرفق مع هذا الدرس مثال عملى به بعض الأكواد المذكوره أعلاه

وبعض الأحداث الخاصة بحدث الملف

وأيضا أكواد  لم تذكر بهذا الدرس خاصه بحدث الملف

وأيضا تطبيقات أخرى

مثل التعرف على كيفية استخدام التاريخ والوقت 

 

وتقبلوا منى وافر الاحترام والتقدير