يحيى حسين قام بنشر يناير 23, 2008 مشاركة قام بنشر يناير 23, 2008 (معدل) بسم الله الرحمن الرحيم السلام عليكم و رحمة الله و بركاته لقد ترددت كثيراً قبل كتابة هذا الموضوع, مع علمي بأهميته حيث أن الرغبة في تعلم برمجة الفيجيوال بيسك الخاصة بتطبيقات مايكروسوفت 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 1 رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 23, 2008 الكاتب مشاركة قام بنشر يناير 23, 2008 هذا موضوع للأخ علي السحيب و هو بعنوان "طريقه سريعه لادخال البيانات" و هو موضع جميل جداً و سؤالي هو أولاً : 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 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 23, 2008 مشاركة قام بنشر يناير 23, 2008 السلام عليكم textbox1.setfocus اي انقل التركيزبعد التنفيذ الى textbox1 اما With Columns(1).Rows(65536).End(xlUp الذهاب الى اول خليه فارغه في العمود الاول 1 بعد ان يكون قد تم تحديد الخليه a65536 اما me.hide فهى كما ذكرت رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 23, 2008 الكاتب مشاركة قام بنشر يناير 23, 2008 أخي أبو أسامه ما رايك بفكرة الموضوع و سؤال With Columns(1).Rows(65536).End(xlUp هل تقرأ هكذا Columns(1) العمود الأول Rows(65536) و الخلايا في الصف الى رقم 65536 End(xlUp ان تكون بداية قرآة الخلية من فوق هل تحلل هكذا ؟؟ رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 23, 2008 مشاركة قام بنشر يناير 23, 2008 السلام عليكم رايى سترى ما يسرك في الايام القادمه القراءة من اسفل لاعلى xlup رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 23, 2008 الكاتب مشاركة قام بنشر يناير 23, 2008 السلام عليكم رايى سترى ما يسرك في الايام القادمه القراءة من اسفل لاعلى xlup سأعتبره وعد منك و سأنتظر الأيام القادمة بفارغ الصبر و أسأل الله أن يكون خيراً إن شاء الله مع كل الاحترام و الحب لكم رابط هذا التعليق شارك More sharing options...
abbermustfa قام بنشر يناير 23, 2008 مشاركة قام بنشر يناير 23, 2008 موضوع اكثر من راائع يارب بارك واحفظ كل من ييسر لنا شرح الاكواد .... لعل بعد شرح عدة اكواد يخرج لنا اناس يجيدون استعمال الاكواد فيظل العطاء مستمرا والخير وافر في امتنا اين العمالقة علي السحيب وابو هادي ومحمد حجازي والسيد عبد العال وغيرهم كثر ؟ بالطبع غير موجودين معنا بشحومهم ولحومهم وإنما سيظلوا معنا بأعمالهم التي لايختلف عليها اثنان في الروعة ولكن لو زادو هذه الروعه بشرح الفيجوال بيسك الخاص بأكواد الاكسيل او مجموعة الاوفيس بصفة عامة لتربعوا القمة دهرا لفراغ الساحة العربية من امثال هذه الشروحات ونحمد الله ان معنا الآن مجموعة غير عادية مميزة في العلم والخلق ندعو الله ان يكمل بهم العمل من الشرح للاكواد واملنا كبير في الله ثم في علماء المنتدى اللهم حبب فيهم خلقك ويسر لهم العلم لييسروه لنا واحفظهم من كل سوء واجمعنا واياهم قي مستقر رحمتك رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 23, 2008 الكاتب مشاركة قام بنشر يناير 23, 2008 (معدل) نعم يا اخت عبير هذا ما احاول أن اصل اليه هو محاولة فهم طريقة كتابة الكود و فهم معنى كل كلمة في الكود و لماذا استخدمت مما سيسهل استخدامها مرة أخرى في مشاريع مختلفة فليس المهم الإطلاع على الكود و نسخه في برنامج أخر بل الأفضل فهم الكود و طريقة عمله و لذلك اتمنى ان ينجح موضوعي في لفت الانتباه للمشكلة التي تواجه الكل في طريقة فهم الكود و ايد أن أسال الكود .Offset(1, 0) = الى ماذا يشير و ما معناه و كيف يستخدم و دمتم بود تم تعديل يناير 23, 2008 بواسطه justice رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 23, 2008 مشاركة قام بنشر يناير 23, 2008 (معدل) السلام عليكم ورحمة الله وبركاتة الاخ justice منذ امد وهذه الفكرة تراود اخى ابو اسامة العينبوسي وقد تجادلنا عدة مرات بهذا الخصوص وقد استعرضنا سابقا الشروط الواجب الالتزام بها حتى لا تخرج عن الهدف وكاد ان ينجح معى فى كثير من المرات لتبنى هذه الفكرة وكانت دائما مخاوفى تدور حول معوقات النجاح التى قد تواجهنا فقد تطل علينا بعض المعوقات على سبيل المثال (استعراض العضلات كما يحدث كثيرا) وقد حاول الاخ هادى بدأ هذا الموضوع سابقا وكنت متغيبا حينذاك ووجهنى الاخ ابو اسامة فى احد حوارتنا الى موضوع الاخ هادى وبعد تصفحى للموضوع : وجدت ان الموضوع بدأ بداية قوية لم اتوقعها ولا ادرى ما سبب توقف الموضوع وافضل ان تجتمع مع الاخ ابو اسامة على المسنجر لاستعراض بعض الشروط الواجب توافرها فى الاسئله المعروضة واذا نضجت الفكرة والشروط معا استطيع تبنى الموضوع والله المستعان تم تعديل يناير 23, 2008 بواسطه أبو تامر رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يناير 23, 2008 مشاركة قام بنشر يناير 23, 2008 الاستاذ الكبير ابو تامر السلام عليكم احبك في الله ولذا اقول لك وانا الرجل الهرم بفتح الهاء وكسر الراء ( ومعناها الكبير السن ) استعن بالله وابدأ مع إخوانك العلماء فأنت منهم وبهم وكونوا جماعة واحدة هدفها واضح هو وجه الله الكريم ثم توضيح وشرح الاكواد فربما تكون هذه طريقة ناجحة لفهم اكواد الاكسيل جعلها الله في موازيين اعمالكم المباركة وتقبل الله منكم اعمالكم الطيبة رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 24, 2008 الكاتب مشاركة قام بنشر يناير 24, 2008 (معدل) أخي أبو تامر هذا هو ما نطمح إليه و إن شاء الله سنصل إلى ما نريد و سأكون على إستعداد تام لتقديم أي خدمة أو المساعدة في تطوير أي فكرة تخدم الراغبين في التعلم و لقد وعدني أخي أبو أسامة بالمشاركة رقم 5 بأن أرى ما يسرني و أتمنى من الأخ أبو أسامه أن يرسل أيميله لأضيفه على الماسنجر فلدي كثير من الأفكار و الأمور التي ستساعد في انجاح الموضوع و بإذن الله أن يكون الموضوع مرجع لكل عربي راغب في التعلم من خلال منتدانا الغالي و بخصوص موضع أستاذنا الغالي هادي سالم فهو مرجع رائع و استخدم به اسلوب سلس و رائع و نتمنى منه إكمال موضوعه لأنه لا غنى لنا عنه و سيجدنا جميعا معه و بانتظاره و مشجعين له لاكمال موضوعه نسأل الله له و لنا و لكم و للجميع التوفيق في الدنيا و الآخرة و الحمد لله رب العالمين تم تعديل يناير 24, 2008 بواسطه justice رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يناير 24, 2008 مشاركة قام بنشر يناير 24, 2008 السلام عليكم رايى سترى ما يسرك في الايام القادمه القراءة من اسفل لاعلى xlup ونحن في الانتظار سنعد الأيام بالساعات لالاسنعد الأيام بالدقائق لالاسنعد الأيام بالثواني موضوع مفيد ادعو الله لنجاحه لفك طلاسم الأكواد الموجودة ولا نعرف تطويعها في عمل آخر نريد وضع كود مثلا وشرح كل كلمة فيه كما فعل اخي رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 24, 2008 الكاتب مشاركة قام بنشر يناير 24, 2008 لقد سألت عن Offset و لم أجد إجابة عنها أرجو أن أجد شرحها و طريقة استخدامه في الكود او في الاكسيل مباشرة حيث لاحظت أنها تستخدم مع الدالة sum أتمنى أن أجد شرحاً كافياً عنها و لكم جزيل الشكر و العرفان رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 24, 2008 الكاتب مشاركة قام بنشر يناير 24, 2008 لقد وجدت شرح وافي و جميل للاستاذ ابو تامر في هذه المشاركة http://www.officena.net/ib/index.php?showtopic=14859 و هي بعنوان المدى والجدول الديناميكى الابعاد (Dynamic table), شرح (OFFSET) لبناء المدى الديناميكى فجزاه الله كل خير رابط هذا التعليق شارك More sharing options...
ابو ناره قام بنشر يناير 24, 2008 مشاركة قام بنشر يناير 24, 2008 مشكووووووووووووووووووووووووووور رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 24, 2008 مشاركة قام بنشر يناير 24, 2008 (معدل) شرح وافي اخرج الدرر جزاكم الله خيرا وهذا كود آخر للاستاذ خبور نرجو شرح كلماته 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 رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 25, 2008 مشاركة قام بنشر يناير 25, 2008 للرفع رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 26, 2008 الكاتب مشاركة قام بنشر يناير 26, 2008 أخي علي يا ريت لو انك ارفقت الملف الذي به الكود و أتمنى من الأخوة الأعضاء أن يجيبوك رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يناير 28, 2008 الكاتب مشاركة قام بنشر يناير 28, 2008 أستغرب عدم إجابة سؤال الأخ علي رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 28, 2008 مشاركة قام بنشر يناير 28, 2008 لاتستغرب ياأخي الجو كان ممطرا وسيئا والخط كان معطلا اشكرك على اهتمامك وادعو الله ان يجعل هذا الموضوع من انجح المواضيع وهذا هو المرفق __________.rar رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 29, 2008 مشاركة قام بنشر يناير 29, 2008 صورتك عن فلسطين معبرة لو جعلت سرعة تنقل اللقطات ابطأ لحظة ستكون اكثر تأثيرا لك شكري ودعواتي ان يفك الله المحنة عن شعوبنا رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر فبراير 1, 2008 الكاتب مشاركة قام بنشر فبراير 1, 2008 ؟ رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر فبراير 2, 2008 مشاركة قام بنشر فبراير 2, 2008 حرمنا من منتدانا الايام الماضية لانقطاع خطوط النت في مصر يقولون ان الكابل العمومي الوارد لمصر تعطل ندعو الله ان تزول الاعطال رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر فبراير 3, 2008 الكاتب مشاركة قام بنشر فبراير 3, 2008 وكانت دائما مخاوفى تدور حول معوقات النجاح التى قد تواجهنا فقد تطل علينا بعض المعوقات على سبيل المثال (استعراض العضلات كما يحدث كثيرا) لقد صدقت أخي أبو تامر فالمشكلة تكمن في إستعراض العضلات رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر فبراير 3, 2008 مشاركة قام بنشر فبراير 3, 2008 لماذا لم يرد احد الذين يجيدون عمل الاكواد ؟ ربما يكون صاحب الكود مشغولا لامر ما نأتي له بالأعذار ندعو الله ان يكون هذا الموضوع من الروائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.