اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

قام بنشر

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

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

تقبل تحياتى

 

  • Like 1
قام بنشر

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

قام بنشر

اخى محمد حسن

تحياتى لك

ا

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

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

تقبل تحياتى

 

اخى الصقر

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

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

تقبل تحياتى

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

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

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

تقبل تحياتى

  • Like 2
قام بنشر

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

الدرس الرابع

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")

17.thumb.JPG.a75dbcea160b22ab480c98eb77f

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

Sheets(4)

18.thumb.JPG.2b86bbdbca339c8cd1914c89116

نفترض انك عايز تدخل فى الخليه 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

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

untitled.thumb.JPG.c4f94c2afc4546a5eb1d3

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

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

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

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

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

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

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

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

Text Formatting

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

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

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

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

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

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

untitled.thumb.JPG.1787318aa479a19fc5591

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

على العموم

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

حجم الخط-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

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

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

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

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

untitled.thumb.JPG.0a65005427cd947080af5

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

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

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

شاهده الصوره

untitled.thumb.JPG.7e7c681d1ea475a082823

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

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

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

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

  • Like 2
قام بنشر

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

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

الكود يعمل على النطاق 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

تقبل تحياتي

  • Like 1
قام بنشر

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

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

الكود يعمل على النطاق 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

تقبل تحياتي

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

55f85dc268766__.thumb.jpg.ef9a973145a188

  • Like 3
قام بنشر

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

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

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

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

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

قام بنشر

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

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

الكود يعمل على النطاق 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

تقبل تحياتي

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

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

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

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

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

ممنتحرمش منك

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

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

جاى جاى

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

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

بارك الله فيك

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

تقبل تحياتى

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

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

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

تقبل تحياتى

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

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

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

اخى فايز

منور المنتدى

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

تقبل تحياتى

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

اخى الفاضل

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

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

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

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

تقبل تحياتى

قام بنشر

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

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

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

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

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

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

قام بنشر (معدل)

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

الدرس الخامس

5-Colors

الالوان

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

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

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

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

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

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

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

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

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

untitled.thumb.JPG.3e508c041d64e844f6f62

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

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

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

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

.RGB(red_value, green_value, blue_value)

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

untitled.thumb.JPG.c105cca9bafeab906c8d8

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

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

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

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

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

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

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

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

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

untitled.thumb.JPG.2080ac010a9dc07dd7c85

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

راجع الصوره

untitled.thumb.JPG.662b810c97d9d5b9b11e6

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

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

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

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

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

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

untitled.thumb.JPG.dd3b2caae82b0c2aedabd

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

عن طريق RGB

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

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

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

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

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

untitled.thumb.JPG.0d37411d523133bc0ea38

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

عن طريق RGB

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

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

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

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

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

untitled.thumb.JPG.864014638c0d7d877d680

untitled.thumb.JPG.ce568cd49e2229037304b

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

تم تعديل بواسطه إبراهيم ابوليله
  • Like 6
قام بنشر

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

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

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

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

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

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

اخى محمد

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

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

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

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

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

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

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

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

وخلينا حبايب

ولا ايه

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

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

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

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

تقبل تحياتى

  • Like 2
قام بنشر

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

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

السلام عليكم 

مشكور ماقصرت 

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

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

  • Like 1
قام بنشر

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

اخى ابو يوسف

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

كانت مفيده

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

تقبل تحياتى

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

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

اخى محمد

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

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

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

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

تقبل تحيات

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

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

السلام عليكم 

مشكور ماقصرت 

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

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

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

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

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

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

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

تقبل تحياتى

قام بنشر

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

 

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

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

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

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

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

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

 
قام بنشر

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

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

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

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

أخى مختار

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

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

تقبل تحياتى

  • Like 1
قام بنشر

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

اخى طلعت

منور الموضوع

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

متسبناش

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

تقبل تحياتى

السلام عليكم

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

 نتابع بصمت

شكراً :fff:

اخى محمد

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

تقبل تحياتى

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

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

 

اخى محمد

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

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

تقبل تحياتى

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information