موقع VBA - Excel - Access - Word

[مصطفى كمال متولى]

الرابط

 

http://www.java2s.com/Code/VBA-Excel-Access-Word/Date-Functions/CatalogDate-Functions.htm

 

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / مصطفى كامل

بارك الله فيك

بالفعل موقع به اكواد كثيرة وتفيد الجميع في حالات كثيرة ...

ولكن اخي الكريم القيام بترجمه هذا الكم الكبير من الاكواد امر من الصعب تنفيذه حيث انها كثيره بالفعل

وساقوم بتقديم هذه المجموعة الموجوده في الموقع باسم    ActiveCell( 39      وكما تشاهد فهذه المجموعة فقط بها

عدد 39 كود لكل منها وظيفة مختلفة وهذه المجموعة المذكورة تتعلق فقط          باستخدامات الخليه النشطة فقط

وسأقدم لكم عدد 10 اكواد الاولي منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح

ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر

اليك التالي :

======================

1- كود للانتقال لخليه اخري بعد الخليه النشطة باربعة اعمدة وصفين للاعلي

Sub offset()
    ActiveCell.offset(RowOffset:=-2, ColumnOffset:=4).Activate
End Sub

2- كود لكتابة كلمة معينة ( Hello World! ) في الخليه النشطة

Sub MyMacro()
   ActiveCell.Value = "Hello World!"
End Sub

3- كود لكتابة كلمة  ( INVALID: ) في الخليه النشطة قبل قيمتها اي تأخذ قيمة الخليه النشطة ويتم كتابتها + الكلمة المحددة

Sub MyMacro1()
         ActiveCell.Value = "INVALID: " & ActiveCell.Value
End Sub

4- كود لتجميع نطاق معين في الخلية النشطة وهو هنا النطاق من A1:A5

Sub fomula()
    ActiveCell.Formula = "=SUM($A$1:$A$5)"
End Sub

5- كود يجعل قيمة الخلية النشطة تكون كالتالي  قيمة الخلية النشطة نفسها × 2 - 1

Sub MyMacro2()
         ActiveCell.Value = (ActiveCell.Value * 2) - 1
End Sub

6- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell

Sub MyMacro3()
         ActiveCell.Value = "Top cell"
         ActiveCell.offset(1, 0) = "Bottom cell"
     End Sub

7- كود يجعل قيمة الخلية النشطة تكون Top cell  وقيمة الخليه اسفلها كلمة Bottom cell ولكن بطريقة اخري ويمكن التكرار

   Sub MyMacro4()
         ActiveCell.Value = "Top cell"
         ActiveCell.offset(1, 0).Select
         ActiveCell.Value = "Bottom cell"
     End Sub

8- كود لتحديد عنوان الخليه النشطة وذلك في رسالة توضح ذلك

Sub selectRange()
    MsgBox ActiveCell.Address
End Sub

9- كود ينتقل من الخلية النشطة الي الاسفل بعدد 10 صفوف اي من الصف رقم 1 الي الصف رقم 11 ثم الصف رقم 21 وهكذا ..

Sub DownTen()
   ActiveCell.offset(10, 0).Select
End Sub

10- كود يقوم بتحديد العمود بداية من الخليه النشطه الموجود بها المؤشر ويحدد لاعلي العمود اي بداية من الخليه النشطة لاعلي الصفحة

Sub SelectUp()
    Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

ارجو ان اكون وفقت في تقديم المطلوب

جزاك الله خيرا

 

 

مجموعة اكواد 10 خاصة بالخليه النشطة.rar

تم تعديل يونيو 7, 2013 بواسطه حمادة عمر

[القومي]

مجهود رائع استاذنا الفاضل

حماده عمر

جزاك الله كل خير

[دغيدى]

أخى حمادة

أثابكم الله على جهدكم

[saad abed]

اخى حماده عمر ابوسما

جزاك الله خيرا

وبارك الله فيك

[احمد فضيله]

جزاكم الله كل خير

[حمادة عمر]

السلام عليكم

الاخ الكريم / القومي

بارك الله فيك

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ القدير العميد / دغيدى

بارك الله فيك

مرور يجعل اي موضوع اكثر نورا وجمالا

وثناءك يسعدني ويشجعني اكثر

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الحبيب / سعد عابد

بارك الله فيك

مرور كريم من اخ كريم

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ الغالي جدا / احمد فضيله

بارك الله فيك

مرور يشرفني ويسعدني كثيرا

وبارك الله لك في ابنك الغالي ابن الغالي ( يوسف )

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

بارك الله فيكم

جمعة مباركة عليكم وعلي الامة الاسلاميه اجمعين

 

هذه مجموعة اخري من مجموعة اكواد    ActiveCell( 39     الموجودة بالموقع المذكور

والتي تتعلق فقط          باستخدامات الخليه النشطة فقط

وسأقدم لكم عدد 10 اكواد الثانية منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح

ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر

اليك التالي :

===================

11- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف  الي نهايته ( اليمين ) اي بداية من الخليه النشطة لنهاية الصف

Sub SelectToRight()
    Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

12- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف  الي نهايته ( اليسار ) اي بداية من الخليه النشطة لنهاية الصف

Sub SelectToLeft()
    Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

13- كود لاختيار النطاق الموجود به الخليه النشطة من خلايا مجاورة ( في الملف المرفق جرب وضع التحديد علي الخليه الحمراء ثم اضغط وشاهد النتيجة )

Sub SelectCurrentRegion()
    ActiveCell.CurrentRegion.Select
End Sub

14- كود لتحديد النطاق الموجود به بيانات في الشيت بداية من الخليه A1

Sub SelectActiveArea()
    Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
End Sub

15- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس العمود ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس العمود لتصبح اول خليه فارغة بعد الخليه النشطة

Sub ActivateNextBlankDown()
    ActiveCell.offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.offset(1, 0).Select
    Loop
End Sub

16- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس الصف ناحية اليمين ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس الصف يمينا لتصبح اول خليه فارغة بعد الخليه النشطة

Sub ActivateNextBlankToRight()
    ActiveCell.offset(0, 1).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.offset(0, 1).Select
    Loop
End Sub

17- كود يجعل قيمة الخليه النشطة تساوي قيمة الخليه المجاورة لها بضغطة زر

Sub SwapTextWithCellOnRight()
         Dim CellContent
         CellContent = ActiveCell.Value
         ActiveCell.Value = ActiveCell.offset(0, 1).Value
End Sub

18- كود يعمل عكس الكود السابق اي يجعل قيمة الخليه المجاورة للخليه النشطة هي التي تساوي قيمة الخليه النشطة  ( جرب ذلك )

 Sub SwapTextWithCellOnRight1()
         Dim CellContent
         CellContent = ActiveCell.Value
         ActiveCell.offset(0, 1).Value = CellContent
     End Sub

19- كود يعمل علي انه اذا كانت قيمة الخليه النشطة اكبر من 100 بضغطة زر يجعل الخليه النشطة تساوي 100 واذا كانت القيمة اقل من 100 يتجاهل الامر ويتركها كما هي

    ( في الملف المرفق حدد الخليه الصفراء G8 واضغط الزر)

 Sub MyMacro()
         If ActiveCell.Value > 100 Then
             ActiveCell.Value = 100
         End If
End Sub

20 - كود يقوم بجعل قيمة الخليه المجاورة للخليه النشطة باستخدام   if, ElseIf and Else      مع الخليه النشطة

 

       1- اذا كانت قيمة الخليه النشطة اكبر 1000 يكون الناتج قيمة الخليه النشطة × 0.05
       2- اذا كانت قيمة الخليه النشطة اكبر 500 يكون الناتج قيمة الخليه النشطة × 0.025
       3- ان لم يتحقق الشرطان السابقان في الخليه النشطة اجعل قيمة الخليه المجاورة تساوي 5
           جرب ذلك في الملف المرفق باستخدام قيم جدول 1 .. حدد خلاياه بالترتيب واضغط الزر وشاهد الفرق

Sub MyMacro1()
         If ActiveCell.Value > 1000 Then
             ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.05
         ElseIf ActiveCell.Value > 500 Then
             ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.025
Else
         ActiveCell.offset(0, 1).Value = 5
         End If
End Sub

ارجو ان اكون وفقت في تقديم المطلوب

جزاك الله خيرا

 

 

مجموعة اكواد 10 خاصة بالخليه النشطة2.rar

تم تعديل يونيو 7, 2013 بواسطه حمادة عمر

[رائد 1982]

بالفعل استاذي القدير /  حمادة عمر

روح و دينامو المنتدي

انت كبير جدا جدا جدا

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

والاهم انك في عون المبتدئين دائما ولا تمل ابدا من طلباتهم

والاروع ... طريقتك الممتازة في توصيل المعلومة للمبتدئ

في انتظار جديدك في مواضيعك وردودك او بمعني آخر في انتظار روائعك وابداعاتك

جزاك الله خيرا

[ابراهيم الشال]

الاخ ابوسما 

                   اعمال مميزه و مجهود رائع 

                                                           جزاكم الله خيرا

تم تعديل يونيو 7, 2013 بواسطه ابراهيم الشال

[خالد القدس]

السلام عليكم

أستاذ حمادة

مجهود رائع بارك الله فيك

[حمادة عمر]

السلام عليكم

الاخ الكريم / رائد

بارك الله فيك

وجزيل شكري علي كلماتك الراائعة التي تشجعني

وجعلني الله عند حسن ظنكم

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ العزيز / ابراهيم الشال

بارك الله فيك

مرور طيب وكريم

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

أستاذ حمادة

مجهود رائع بارك الله فيك

 

السلام عليكم

الاستاذ والاخ الحبيب / خالد القدس

بارك الله فيك

تقبل خالص تحياتي وتقديري

جزاك الله خيرا

[احمد فضيله]

بالفعل استاذي القدير /  حمادة عمر

روح و دينامو المنتدي

انت كبير جدا جدا جدا

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

والاهم انك في عون المبتدئين دائما ولا تمل ابدا من طلباتهم

والاروع ... طريقتك الممتازة في توصيل المعلومة للمبتدئ

في انتظار جديدك في مواضيعك وردودك او بمعني آخر في انتظار روائعك وابداعاتك

جزاك الله خيرا

كلمات معبره

اخي الحبيب الاستاذ / حماده

جزاك الله كل خير

[حمادة عمر]

السلام عليكم

الاستاذ الغالي جدا / احمد فضيله

بارك الله فيك

مرور شرف كبير لي

وشهادة من استاذ كبير جدا ... كريم جدا ... راائع دوما

شرفتني وشجعتني واسعدتني

وسلملي علي ( جـــــو )

جزاك الله خيرا

[ضاحي الغريب]

الاخ الحبيب // ابوسما

ماشاء الله

ابداع × ابداع

تسلم الايادي

بارك الله فيك وجزاك خيرا

علي تلك الطروحات الجميلة

تقبل تحياتي

[أبو ردينة]

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

الأخ الحبيب الأستاذ / حمادة عمر 
شكر الله لك و نفع بعلمك و علمك ما ينفع - آمين 
مجهود و تألق غير مستغرب على معطاء مثلك
جزاك الله خيرا

[مجدى يونس]

الاخ مصطفى

شكرا على الهدية

والاخ حمادة الخبير النشط

شكرا على المجهود الرائع

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

مرورك يسعدني كثيرا جدا ...

وهذا ليس لشئ ولكن لأنني احب طلتك ورأيك علي كل المواضيع

احبك في الله

تقبل خالص تحياتي

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الحبيب / أبو ردينة

بارك الله فيك

جزيل شكري علي كلماتك الرااائعة والتي تشجعني اكثر واكثر

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ القدير / مجدى يونس

بارك الله فيك

مرور طيب وكريم ومن استاذ كريم وحبيب

جزاك الله خيرا