سؤال و جواب في VBA

[يحيى حسين]

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

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

لقد ترددت كثيراً قبل كتابة هذا الموضوع, مع علمي بأهميته حيث أن الرغبة في تعلم برمجة الفيجيوال بيسك الخاصة بتطبيقات مايكروسوفت VBA موجود بقوة لدى أعضاء المنتدى. وسأذكر بعض النقاط المهمة التي تنمي الرغبة في التعلم :

1. وجود إخوان لنا في هذا المنتدى لديهم إبداعات هائله و جميلة تأسر القلوب من روعتها و من هؤلاء الأخوة علي السحيب و ابو تامر و هادي سالم و خبور خير و غيرهم الكثير .

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

3. قيام بعض المشرفين بشرح بعض الأمور و أخص بالذكر هنا الأستاذ الرائع هادي سالم و قيامه بالشرح من الصفر في تسجيل الماكرو في هذه المشاركة :

http://www.officena.net/ib/index.php?showtopic=12203

و قيامه بإكمال موضوعه للمتوسطين من خلال هذه المشاركة

http://www.officena.net/ib/index.php?showtopic=17922

و التي شاركها بها الأستاذ خالد نور في محاولة رائعة منهما لإيصال الأفكار للأعضاء بأبسط الطرق .

4. عدم وجود شرح كامل للأكواد المستخدمة في كثير من المشاركات و التي يصعب على من يرغب في تعلم VBA فهمها لوحده و التي ارغب من خلال هذه المشاركة فهم معظمها .

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

فحسب تصوري إن طريقة التعلم من خلال سؤال و جواب هي من أفضل و أسرع طرق في التعلم و في إيصال الفكرة للأعضاء .

و الله ولي التوفيق

تم تعديل يناير 23, 2008 بواسطه justice

[يحيى حسين]

هذا موضوع للأخ علي السحيب و هو بعنوان "طريقه سريعه لادخال البيانات"

و هو موضع جميل جداً و سؤالي هو

أولاً :

rivate Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
MsgBox "لقد تم مسح محتويات جميع الحقول بنجاح", vbInformation, "تم المسح"
TextBox1.SetFocus
End Sub

فما هو المقصود بـ TextBox1.SetFocus و ثانياً :

Private Sub CommandButton1_Click()
With Columns(1).Rows(65536).End(xlUp)
            .Offset(1, 0) = Label5
            .Offset(1, 1) = Label6
            .Offset(1, 2) = Label7
      End With
      Me.Hide
             MsgBox "تمت إضافة جميع البيانات بنجاح", vbInformation, "تمت الإضافة"
End Sub

و ما هو شرح هذا الكود

With Columns(1).Rows(65536).End(xlUp

و أيضاً استخدام

Me.Hide

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

بإنتظار ردكم

_____________1.rar

[ابو اسامة العينبوسي]

السلام عليكم

textbox1.setfocus

اي انقل التركيزبعد التنفيذ الى textbox1

اما With Columns(1).Rows(65536).End(xlUp

الذهاب الى اول خليه فارغه في العمود الاول 1 بعد ان يكون قد تم تحديد الخليه a65536

اما me.hide فهى كما ذكرت

[يحيى حسين]

أخي أبو أسامه ما رايك بفكرة الموضوع

و سؤال

With Columns(1).Rows(65536).End(xlUp

هل تقرأ هكذا

Columns(1)

العمود الأول

Rows(65536)

و الخلايا في الصف الى رقم 65536

End(xlUp

ان تكون بداية قرآة الخلية من فوق

هل تحلل هكذا

؟؟

[ابو اسامة العينبوسي]

السلام عليكم

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

القراءة من اسفل لاعلى xlup

[يحيى حسين]

السلام عليكم

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

القراءة من اسفل لاعلى xlup

سأعتبره وعد منك

و سأنتظر الأيام القادمة بفارغ الصبر

و أسأل الله أن يكون خيراً إن شاء الله

مع كل الاحترام و الحب لكم

[abbermustfa]

موضوع اكثر من راائع

يارب بارك واحفظ كل من ييسر لنا

شرح الاكواد ....

لعل بعد شرح عدة اكواد يخرج لنا اناس

يجيدون استعمال الاكواد فيظل العطاء مستمرا والخير وافر في امتنا

اين العمالقة علي السحيب وابو هادي ومحمد حجازي والسيد عبد العال وغيرهم كثر ؟

بالطبع غير موجودين معنا بشحومهم ولحومهم وإنما سيظلوا معنا بأعمالهم التي لايختلف عليها اثنان في الروعة

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

لتربعوا القمة دهرا لفراغ الساحة العربية من امثال هذه الشروحات

ونحمد الله ان معنا الآن مجموعة غير عادية مميزة في العلم والخلق

ندعو الله ان يكمل بهم العمل من الشرح للاكواد

واملنا كبير في الله ثم في علماء المنتدى

اللهم حبب فيهم خلقك ويسر لهم العلم لييسروه لنا

واحفظهم من كل سوء

واجمعنا واياهم قي مستقر رحمتك

[يحيى حسين]

نعم يا اخت عبير

هذا ما احاول أن اصل اليه

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

مما سيسهل استخدامها مرة أخرى في مشاريع مختلفة

فليس المهم الإطلاع على الكود و نسخه في برنامج أخر

بل الأفضل فهم الكود و طريقة عمله

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

و ايد أن أسال

الكود

.Offset(1, 0) =

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

و دمتم بود

تم تعديل يناير 23, 2008 بواسطه justice

[omar elhosseini]

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

الاخ justice

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

وقد تجادلنا عدة مرات بهذا الخصوص

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

وكاد ان ينجح معى فى كثير من المرات لتبنى هذه الفكرة

وكانت دائما مخاوفى تدور حول معوقات النجاح التى قد تواجهنا

فقد تطل علينا بعض المعوقات على سبيل المثال (استعراض العضلات كما يحدث كثيرا)

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

وبعد تصفحى للموضوع :

وجدت ان الموضوع بدأ بداية قوية لم اتوقعها

ولا ادرى ما سبب توقف الموضوع

وافضل ان تجتمع مع الاخ ابو اسامة على المسنجر لاستعراض بعض الشروط الواجب توافرها فى الاسئله المعروضة

واذا نضجت الفكرة والشروط معا استطيع تبنى الموضوع

والله المستعان

تم تعديل يناير 23, 2008 بواسطه أبو تامر

[ناصر سعيد]

الاستاذ الكبير ابو تامر

السلام عليكم

احبك في الله ولذا اقول لك وانا الرجل الهرم بفتح الهاء وكسر الراء ( ومعناها الكبير السن )

استعن بالله وابدأ مع إخوانك العلماء فأنت منهم وبهم

وكونوا جماعة واحدة هدفها واضح هو وجه الله الكريم

ثم توضيح وشرح الاكواد فربما تكون هذه طريقة ناجحة

لفهم اكواد الاكسيل

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

وتقبل الله منكم اعمالكم الطيبة

[يحيى حسين]

أخي أبو تامر

هذا هو ما نطمح إليه

و إن شاء الله سنصل إلى ما نريد

و سأكون على إستعداد تام لتقديم أي خدمة أو المساعدة في تطوير أي فكرة تخدم الراغبين في التعلم

و لقد وعدني أخي أبو أسامة بالمشاركة رقم 5 بأن أرى ما يسرني

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

فلدي كثير من الأفكار و الأمور التي ستساعد في انجاح الموضوع

و بإذن الله أن يكون الموضوع مرجع لكل عربي راغب في التعلم من خلال منتدانا الغالي

و بخصوص موضع أستاذنا الغالي هادي سالم

فهو مرجع رائع و استخدم به اسلوب سلس و رائع و نتمنى منه إكمال موضوعه لأنه لا غنى لنا عنه و سيجدنا جميعا معه و بانتظاره و مشجعين له لاكمال موضوعه

نسأل الله له و لنا و لكم و للجميع التوفيق في الدنيا و الآخرة

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

تم تعديل يناير 24, 2008 بواسطه justice

[ناصر سعيد]

السلام عليكم

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

القراءة من اسفل لاعلى xlup

ونحن في الانتظار

سنعد الأيام بالساعات

لالاسنعد الأيام بالدقائق

لالاسنعد الأيام بالثواني

موضوع مفيد ادعو الله لنجاحه

لفك طلاسم الأكواد الموجودة

ولا نعرف تطويعها في عمل آخر

نريد وضع كود مثلا وشرح كل كلمة فيه كما فعل اخي

[يحيى حسين]

لقد سألت عن

Offset

و لم أجد إجابة عنها

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

حيث لاحظت أنها تستخدم مع الدالة sum

أتمنى أن أجد شرحاً كافياً عنها

و لكم جزيل الشكر و العرفان

[يحيى حسين]

لقد وجدت شرح وافي و جميل للاستاذ ابو تامر

في هذه المشاركة

http://www.officena.net/ib/index.php?showtopic=14859

و هي بعنوان

المدى والجدول الديناميكى الابعاد (Dynamic table), شرح (OFFSET) لبناء المدى الديناميكى

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

[ابو ناره]

مشكووووووووووووووووووووووووووور

[علي فاهم]

شرح وافي

اخرج الدرر

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

وهذا كود آخر للاستاذ خبور نرجو شرح كلماته

Sub ترحيل_بشرط()
LastRow_1 = Cells(Rows.Count, "B").End(xlUp).Row
Range("B9:N" & LastRow_1).ClearContents
With Sheets("Sheet1")
S = 9
LastRow_2 = .Cells(.Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For QQ = 8 To LastRow_2
       If .Cells(QQ, 2).Value = [C5] Then
          .Cells(QQ, 2).Range("A1:N1").Copy
           Cells(S, 2).Select
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            S = S + 1
      End If
Next
End With
Application.CutCopyMode = True
End Sub

تم تعديل يناير 24, 2008 بواسطه alyfahem

[علي فاهم]

للرفع

[يحيى حسين]

أخي علي

يا ريت لو انك ارفقت الملف الذي به الكود

و أتمنى من الأخوة الأعضاء أن يجيبوك

[يحيى حسين]

أستغرب عدم إجابة سؤال الأخ علي

[علي فاهم]

لاتستغرب ياأخي

الجو كان ممطرا وسيئا والخط كان معطلا

اشكرك على اهتمامك

وادعو الله ان يجعل هذا الموضوع من انجح المواضيع

وهذا هو المرفق

__________.rar

[علي فاهم]

صورتك عن فلسطين معبرة

لو جعلت سرعة تنقل اللقطات ابطأ لحظة ستكون اكثر تأثيرا

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

[يحيى حسين]

؟

[علي فاهم]

حرمنا من منتدانا الايام الماضية

لانقطاع خطوط النت في مصر

يقولون ان الكابل العمومي الوارد لمصر تعطل

ندعو الله ان تزول الاعطال

[يحيى حسين]

وكانت دائما مخاوفى تدور حول معوقات النجاح التى قد تواجهنا

فقد تطل علينا بعض المعوقات على سبيل المثال (استعراض العضلات كما يحدث كثيرا)

لقد صدقت أخي أبو تامر

فالمشكلة تكمن في إستعراض العضلات

[علي فاهم]

لماذا لم يرد احد الذين يجيدون عمل الاكواد ؟

ربما يكون صاحب الكود مشغولا لامر ما

نأتي له بالأعذار

ندعو الله ان يكون هذا الموضوع من الروائع