مش مهم تكون محترف vba ولكن مهم يكون عندك معلومات عن vba

[محمد حسن المحمد]

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

وفّقك الله أستاذنا الغالي ابراهيم أبو ليله و سدّد خطاك..بارك الله فيك على المواضيع المميّزة المثيرة .. فعلا أنا أتابع دروسك باهتمام حتى إني أقوم بنسخها لدراستها بتأنٍّ

كم هو رائع و جميل أن نرى هذا النشاط في بيتنا الثاني " أوفيسنا "

                      أكمل المشوار على بركة الله

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

تحياتي لكم جميعاً ...أضم صوتي إلى صوت أخي الحبيب عبد العزيز أعزك الله

على بركة الله...

[الصـقر]

الاستاذ الفاضل / ابراهيم

جزاكم الله خيرا ووفق خطاكم وجعل اعمالكم فى ميزان حسناتكم

تقبل تحياتى

 

[ابو يوسف المصري]

بجد يا استاذ ابراهيم حضرتك بتعمل عملية تشفيه للموضوع ليحصل  امثالي علي الخلاصه التي عن طريقها يستطيع الانتاج في اسرع وقت ممكن ويمكن له ان يستزيد بها وبواقعيه شديده يعد شرحك افضل شرح رؤيته بالنسبه لي ووفقك العلي القدير لما تصبوا اليه لانك لا تبخل علي الموضوع بمجهوك........وفعلا بمجهودك هذا وتركيزك لقد اتعبت من سياتي من بعدك ليشرح ذلك العلم لاننا لن نقبل منه اقل من هذا.

[إبراهيم ابوليله]

اخى محمد حسن

تحياتى لك

ا

الاستاذ الفاضل / ابراهيم

جزاكم الله خيرا ووفق خطاكم وجعل اعمالكم فى ميزان حسناتكم

تقبل تحياتى

 

اخى الصقر

اشكرك على الدعاء

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

تقبل تحياتى

بجد يا استاذ ابراهيم حضرتك بتعمل عملية تشفيه للموضوع ليحصل  امثالي علي الخلاصه التي عن طريقها يستطيع الانتاج في اسرع وقت ممكن ويمكن له ان يستزيد بها وبواقعيه شديده يعد شرحك افضل شرح رؤيته بالنسبه لي ووفقك العلي القدير لما تصبوا اليه لانك لا تبخل علي الموضوع بمجهوك........وفعلا بمجهودك هذا وتركيزك لقد اتعبت من سياتي من بعدك ليشرح ذلك العلم لاننا لن نقبل منه اقل من هذا.

اخى ابو يوسف منور المشاركه

اتمنى ان يكون الموضوع مفيدا

تقبل تحياتى

[إبراهيم ابوليله]

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

الدرس الرابع

4-Properties

الخصائص

وسوف نتناول فى هذه الدرس الاتى

اعطاء الخليه  قيمه عدديه فى الشيت النشط

اعطاء الخليه  قيمه نصيه فى الشيت النشط

اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الشيتات

اعطاء الخليه  قيمه عدديه أو نصيه  باستخدام اسماء الملفات

مسح محتوى الخليه من البيانات--cell contents

Text Formatting

التحكم فى حدود الخلايا-- borders

...........................................

اعطاء الخليه  قيمه عدديه فى الشيت النشط

نفترض انك عايز تدخل
القيمه 10 فى الخليه A3

يمكننا عمل ذلك باستخدام RANGE او بالاشاره الى الخليه مباشرة

سيكون شكل الكود كالاتى

 

Sub properties_NUM()
   'اعطاء الخليه A3 قيمه عدديه
   Range("A3").Value = 10
   [A3].Value = 10
End Sub

اعطاء الخليه  قيمه نصيه فى الشيت النشط

نفترض انك عايز تدخل
الاسم HIMA فى الخليه A6

يمكننا عمل ذلك باستخدام RANGE او بالاشاره الى الخليه مباشرة

سيكون شكل الكود كالاتى

Sub properties_tex()
   'اعطاء الخليه A5 قيمه نصيه
   Range("A6").Value = "hima"
   [A6].Value = "hima"
End Sub

اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الشيتات

يمكن عمل ذلك بالاشاره الى اسم الشيت

  Sheets("4-Properties")

او بالاشاره الى رقم الشيت

Sheets(4)

نفترض انك عايز تدخل فى الخليه A8

قيمه عدديه قدرها 20

او قيمه نصيه hima

وبالتالى سيكون شكل الكود هكذا

Sub properties_num_wor()
   'اعطاء الخليه A10 قيمه عدديه  باستخدام اسماء الملفات
   Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = 22
   ' او
   'Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value  = "Sample text"
End Sub

    Sub properties_num_sh()
       'اعطاء الخليه A8 قيمه عدديه  باستخدام اسماء الشيتات
       Sheets("4-Properties").Range("A8").Value = 22
       ' او
       'Sheets(4).Range("A8").Value = "Sample text"
    End Sub

اعطاء الخليه  قيمه عدديه أو نصيه  باستخدام اسماء الملفات

نفترض انك عايز تدخل فى الخليه A10

قيمه عدديه قدرها 20

او قيمه نصيه hima

وبالتالى سيكون شكل الكود هكذا

Sub properties_num_wor()
   'اعطاء الخليه A10 قيمه عدديه  باستخدام اسماء الملفات
   Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = 22
   ' او
   'Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value  = "Sample text"
End Sub

مسح محتوى الخليه من البيانات--cell contents

نفترض اننا عايزين نمسح البيانات الموجوده فى الخليه a12

يمكننا استخدام اى من الااومر الظاهره بالصوره

ولو  انت ركزت شويه على ما اعتقد من الاسماء هتعرف وظيفه كل امر ايه

يعنى مثلا clear يقوم بحزف البيانات مع ارجاع الخليه الى وضعها الافتراضى

يعنى لو انت مخصص نوع معين من الخطوط او حجم معين للخط هتلاقى

البيانات تم حزفها وتم ارجاع الوضع الافتراضى للاوفيس

ClearContents  دى بتحزف البيانات بس وملهاش دعوه بخصائص الخليه

ClearFormats  دى بتقوم بارجاع الوضع الافتراضى للخليه دون حزف البيانات

وبالتالى سيكو شكل الكود الخاص بحزف البيانات كالاتى

Sub properties_clear()
   'مسح محتوى الخليه a12
   Range("a12").ClearContents
End Sub

Text Formatting

التحكم فى خصائص الخط

طبعا الموضوع ده طويل حبتين

وفيه معلومات كتيره

احنا هناخد ابسط الحاجات الى تمشينا ومتوقفناش

علشان منصعبهاش على نفيسنا

بص الاول على الصوره

طب من مجرد النظر الى الصوره هتفهم الخصائص الخاصه بالخط

على العموم

هنستعرض بعض الخصائص

حجم الخط-size

سمك الخط-bold

جعل الخط مائلا-italicize

وضع خط تحت الكلمه-underline

اسم الخط-NAME

ونيجى نطبق الكلام ده

يعنى مثلا لو عندنا الخليه a15

عايزين نكتب فيها الرقم 10

ونخلى

حجم الخط فيها 20

سمك الخط فيها تخين

نخلى الخط فيها ماي على جنبه اليمين

ونخلى الخط تحيه خط

ونخلى اسم الخط Agency FB

وبالتالى هيكون شكل الكود كالاتى

Sub properties_TEXT_FORMA()
Range("a15").ClearFormats
   Range("a15").Font.Size = 20
      Range("a15").Font.Bold = True
        Range("a15").Font.Italic = True
           Range("a15").Font.Underline = True
             Range("a15").Font.Name = "AGENCY FB"
End Sub

التحكم فى حدود الخلايا-- borders

طبعا الموضوع ده طويل بردو حبتين

وفيه معلومات كتيره

فهنطر ناخد ابسط الحاجات الى تمشينا ومتوقفناش

على العموم شاهد الصوره

يمكننا استخدام الارقام من 1 الى 13

فى تحديد الخليه

ولمعرفة الوظيفه التى يقوم بها كل رقم فى التحديد

شاهده الصوره

ثم قم باستعمال هذه الكود

وشاهد تأثر الكود على هذه الخلايا

Sub properties_BORDER()
Range("a23:E28").ClearFormats
Range("a23").Borders.Value = 1
Range("a24").Borders.Value = 2
Range("a25").Borders.Value = 3
Range("a26").Borders.Value = 4
Range("a27").Borders.Value = 5
Range("a28").Borders.Value = 6
Range("C23").Borders.Value = 7
Range("C24").Borders.Value = 8
Range("C25").Borders.Value = 9
Range("C26").Borders.Value = 10
Range("C27").Borders.Value = 11
Range("C28").Borders.Value = 12
Range("E25").Borders.Value = 13
End Sub

اتمنى ان يكون الدرس مفيدا

مرفق شيت اكسيل به التطبيقات

 learnvba.rar

تقبلوا تحياتى

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

بارك الله فيك أخي الغالي إبراهيم على كل ما تقدمه

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

الكود يعمل على النطاق A1:A26

Sub Borders_Properties()
    Dim I As Long, II As Long
    Range("A1:A26").ClearFormats
    For I = 1 To 26 Step 2
        Range("A" & I).Borders.Value = II + 1
        II = II + 1
    Next I
End Sub

تقبل تحياتي

[عبد العزيز البسكري]

بارك الله فيك أخي الغالي إبراهيم على كل ما تقدمه

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

الكود يعمل على النطاق A1:A26

Sub Borders_Properties()
    Dim I As Long, II As Long
    Range("A1:A26").ClearFormats
    For I = 1 To 26 Step 2
        Range("A" & I).Borders.Value = II + 1
        II = II + 1
    Next I
End Sub

تقبل تحياتي

لم يبق في رصيدي إضافة الاعجاب لهذا اليوم .. فتفضّل خلاصة كلامي أستاذي الغالي ياسر خليل أبو البراء

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

أخي الغالي عبد العزيز العزيز

العزيز التانية مقصودة مش غلطة في الكتابة

مشكور على كلماتك الطيبة ونشاطك الرائع في المنتدى

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

وأحببت أن أشارك أخونا الحبيب إبراهيم الموضوع لكي يعلم تمام العلم أننا متابعون للموضوع جميعنا ، فهات ما عندك .. فنحن معك إن شاء الله

[فايز ياسين]

أستاذي ابراهيم أبو ليله

بارك الله فيك ويعلمك كلنا نتابعك باهتمام سدد الله خطاك

   أكمل المشوار على بركة الله

[ابولمى]

بارك الله فيك اخي ابراهيم الان كل شئ واضح بالنسبه لي

[إبراهيم ابوليله]

بارك الله فيك أخي الغالي إبراهيم على كل ما تقدمه

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

الكود يعمل على النطاق A1:A26

Sub Borders_Properties()
    Dim I As Long, II As Long
    Range("A1:A26").ClearFormats
    For I = 1 To 26 Step 2
        Range("A" & I).Borders.Value = II + 1
        II = II + 1
    Next I
End Sub

تقبل تحياتي

اخى وحبيبى ياسر

طبعا منور الموضوع

واضافتك على العين والراس

ومجرد انك تطل علينا

فده شئ يسعدنا ويكفينا

ممنتحرمش منك

............................................

وموضوع الحلقات التكراريه

جاى جاى

ومش هنلاقى طبعا افضل منك

يشاركنا ويفيدنا

بارك الله فيك

..........................

تقبل تحياتى

اخى عبد العزيز البسكري

كل التحياط الطيبه لكل

فانت دائما ما تسعدنا بمرورك علينا

تقبل تحياتى

أستاذي ابراهيم أبو ليله

بارك الله فيك ويعلمك كلنا نتابعك باهتمام سدد الله خطاك

   أكمل المشوار على بركة الله

اخى فايز

منور المنتدى

نتمنى لك الاستفاده والتوفيق

تقبل تحياتى

بارك الله فيك اخي ابراهيم الان كل شئ واضح بالنسبه لي

اخى الفاضل

الحمد لله على استفادتك

فكل ما يهمنا فى المقام الاول

هو توصيل المعلومه بقدر

الامكان طالما كانت لدينا القدره على ذلك

تقبل تحياتى

[محمد حسن المحمد]

أخي العزيز إبراهيم أبو ليلة السلام عليكم:

أقترح عليكم أمراً يرجى الاستجابة له ...تعلم أننا نقابل الحاسوب كثيراً في العمل ومتابعة المنتدى الكريم والأعمال الرائعة التي

تسطرونها به .ولذلك خوفاً من أن تغيب عن عيوننا التعبة بعض الأحرف 

فإنني أرى أن يكون الخط Times New Roman ......Bold.....22 أما اللون فأنت حر باختياره

مجرد اقتراح لك أن تجيبه أو تتجاهله .لأننا لا نستطيع إلزام علماءنا بما نريد .

تقبل تحياتي...

[إبراهيم ابوليله]

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

الدرس الخامس

5-Colors

الالوان

وسوف نتناول فى هذه الدرس الاتى

استخدام الخاصيه color

استخدام الخاصيه ColorIndex

استخدام الخاصيه Interior.Color

استخدام الخاصيه  borders.color

استخدام الخاصيه Tab.Color

.............................................................

استخدام الخاصيه color

تستخدم الخاصيه COLOR فى تلوين الخطوط FONT

يجب ان نشير الى اننا حينما نتعامل مع color

فاننا نستخدم الخاصيه الخاصه بالالوان RGB

سنجد ان قيمة RGB مكونه من ثلاث معطيات هى

الاحمر -- الاخضر --الازرق

.RGB(red_value, green_value, blue_value)

وسوف نقدم بعض القيم والالوان الخاصه ب RGB

الان نتعرف على كيفية استخدام هذه الخاصيه فى تلوين الخط

نفترض اننا لدينا الاسم HIMA فى الخليه A17

ونريد تلوين الخط باللون الازرق

سيكون شكل الكود كالاتى

Sub colorfont()
Range("a17").Font.Color = RGB(0, 0, 255) ' blue
End Sub

وطبعا لو عايز تغير اللون لاى لون انت عايزه

كل الى عليك ان هتغير الارقام الخاصه بالخاصيه RGB

استخدام الخاصيه ColorIndex

تستخدم ايضا فى التعامل مع تلوين الخطوط

ولكن يتم الاشاره هنا الى الالوان بالارقام العدديه من 1 الى 56

راجع الصوره

فمثلا لو لدينا الاسم HIMA

فى الخليه A21 ونريد تلوينه باللون الاحمر

سيكون شكل الكود كالاتى

Sub ColorIndexfont()
Range("A25").Font.ColorIndex = 3 'red
End Sub

استخدام الخاصيه  borders.color

تستخدم هذه الخاصيه فى تلوين حدود الخلايا

وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR

عن طريق RGB

نفترض اننا عايزن نحدد الحليه B33:D33 باللون الازرق

سيكون شكل الكود كالاتى

Sub coloredborders()
Range("b33:d33").Borders.Color = RGB(0, 0, 255) ' blue
End Sub

استخدام الخاصيه Interior.Color

تستخدم هذه الخاصيه فى تلوين الخلايا

وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR

عن طريق RGB

نفترض اننا عايزين نلون الخلايا من B41:D41 باللون الاخضر

سيكون شكل الكود كالاتى

Sub backgroundcolor()
Range("b41:d41").Interior.Color = RGB(0, 255, 0) ' green
End Sub

استخدام الخاصيه Tab.Color

تستخدم هذه الخاصيه فى التعامل مع تبويب الشيتات

Sub colorwsheettab()
Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue
End Sub

فلو احنا عايزين نلون تبويب الشيت المسمى

ب 5-Colors باللون الازرق مثلا

هيكون شكل الكود كالاتى

Sub colorwsheettab()
Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue
End Sub

اتمنى ان يكون الدرس مفيدا

مرفق شيت اكسيل به التطبيقات

 learnvba.rar

تقبلوا تحياتى

learnvba.rar

تم تعديل سبتمبر 16, 2015 بواسطه إبراهيم ابوليله

[ابو يوسف المصري]

بجدد دي اول احس اني فاهم vab  اكسيل جعل الله ذلك في ميزان حسناتك

[محمد حسن المحمد]

أخي العزيز إبراهيم أبو ليلة السلام عليكم:

جزاكم الله خيراً...شرح وافٍ ومتميز ٍ وسنحاول متابعته قدر الإمكان حسب قدرتي الذهنية على الاستيعاب.

تقبل تحياتي العطرة.

[إبراهيم ابوليله]

أخي العزيز إبراهيم أبو ليلة السلام عليكم:

أقترح عليكم أمراً يرجى الاستجابة له ...تعلم أننا نقابل الحاسوب كثيراً في العمل ومتابعة المنتدى الكريم والأعمال الرائعة التي

تسطرونها به .ولذلك خوفاً من أن تغيب عن عيوننا التعبة بعض الأحرف 

فإنني أرى أن يكون الخط Times New Roman ......Bold.....22 أما اللون فأنت حر باختياره

مجرد اقتراح لك أن تجيبه أو تتجاهله .لأننا لا نستطيع إلزام علماءنا بما نريد .

تقبل تحياتي...

اخى محمد

طلبك عزيز عليا

ولكن اسمح لى ان اصر على نفس نوع الخط

مش عارف ليه يا اخى انا بحب الخط ده اوى

بس علشان انا مقدرش على زعلك

فخليت حجم الخط 22

وسمكله كمان ياعم تخين

وبكده تبقى انت الكسبان

انت اخد اتنين وانا اخدت واحده بس

وخلينا حبايب

ولا ايه

..................................................

وعلى العموم نطلب من اخوانا ياسر

يظبطلنا الحتى دى

علشان يبقى حجم الخط واحد فى جميع المشاركات

تقبل تحياتى

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

بسم الله الرحمن الرحيم 

الاستاذ ابراهيم 

السلام عليكم 

مشكور ماقصرت 

لي ملاحظة بسيطة وهي انك بشرحك لخاصية colorlndex كان على الخليه a21 وفي الكود كان المثال على الخلية a25

حتى تعرف اننا متابعينك جدااا

[مختار البركاني]

شكرا استاذنا القدير على الدروس الرائعة 

وفقك الله ونفع بك

واود الاستفسار في هذا الموضع عن تحديد الخلايا التي تحتوي على قيم .

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

[طلعت محمد حسن]

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

[محمد الورفلي1]

السلام عليكم

جهد مبذول ........ تقبل الله منك

 نتابع بصمت

شكراً

[إبراهيم ابوليله]

بجدد دي اول احس اني فاهم vab  اكسيل جعل الله ذلك في ميزان حسناتك

اخى ابو يوسف

الحمد لله انت الدروس

كانت مفيده

واتمنى ان يوفقنى الله فى الدروس القادمه

تقبل تحياتى

أخي العزيز إبراهيم أبو ليلة السلام عليكم:

جزاكم الله خيراً...شرح وافٍ ومتميز ٍ وسنحاول متابعته قدر الإمكان حسب قدرتي الذهنية على الاستيعاب.

تقبل تحياتي العطرة.

اخى محمد

لا بجد انا كده هزعل

انت مش لازم تحاول

انت لازم تكون موجود

وجودك يشرفنا ويعطى للموضوع الحيويه والنشاط

تقبل تحيات

بسم الله الرحمن الرحيم 

الاستاذ ابراهيم 

السلام عليكم 

مشكور ماقصرت 

لي ملاحظة بسيطة وهي انك بشرحك لخاصية colorlndex كان على الخليه a21 وفي الكود كان المثال على الخلية a25

حتى تعرف اننا متابعينك جدااا

اخى الفاضل عمار

بالفعل كما قلت

ومثل هذه الملاحظات تسعدنى

لانها تدل على ان هناك بالفعل من يتابع جيدا

اتمنى من الله ان يزيدك من فضله وعلمه

تقبل تحياتى

[محمد حسن المحمد]

أخي العزيز إبراهيم أبو ليلة السلام عليكم:

 

كم يسعدني ويشرفني أن أنهل من علمكم وأرجو الله تعالى أن يكون لي حظاً وافراً مما تلقونه

من دروس ومحاضرات في جامعة أوفيسنا الموقرة.

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

وكل علم نظري لا نطبقه عملياً نظن أنفسنا استوعبناه وأدركناه لكنه لا يرسخ إلا بالتطبيق العملي

أتشرف بكم ثانية ...وأرجو الله أن يجعل ذلك بميزان حسناتكم 

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

 

[إبراهيم ابوليله]

شكرا استاذنا القدير على الدروس الرائعة 

وفقك الله ونفع بك

واود الاستفسار في هذا الموضع عن تحديد الخلايا التي تحتوي على قيم .

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

أخى مختار

ممكن التوضيح اكتر

عما تريد الاستفسار عنه

تقبل تحياتى

[محمد عبدالسلام]

الاستاذ الفاضل / ابراهيم

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

 

[إبراهيم ابوليله]

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

اخى طلعت

منور الموضوع

انت فين من زمان ياراجل

متسبناش

علشان بالتاكيد هنحتاجك الفتره الى جايه

تقبل تحياتى

السلام عليكم

جهد مبذول ........ تقبل الله منك

 نتابع بصمت

شكراً

اخى محمد

اتمنى لك الاستفاده

تقبل تحياتى

الاستاذ الفاضل / ابراهيم

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

 

اخى محمد

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

وتقبل الله منا ومنك صالح الدعاء

تقبل تحياتى