نجوم المشاركات

دائما أخى هذا النداء يطلب من الجميع " وهو " أن يكون السؤال مشفوع " بمثال " أى عينة من المطلوب والنتائج المتوقعة من هذا المثال حتى تكون الأجابة دقيقة وهى التى تريدها بالضبط فتخيل لوكان المثال موجود كان من الممكن أن يكون هذا الرد هو الأجابة لطلبك تقبل تحباتى

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)

السلام عليكم إخواني الكرام في المنتدى الغالي هل فكرت يوماً في أن تضيف أمر إلى القائمة المختصرة داخل الإكسيل؟ أي قائمة الكليك يمين؟ ربما لسبب أو آخر تحتاج أن تضيف عنصر في القائمة المختصرة .. إليكم الملف المرفق .. بعد فتح الملف قم بعمل كليك يمين في أي خلية ستجد الأمر Hide Column A In All Sheets هذا الأمر يقوم بلإخفاء الأعمدة A في كل الشيتات الموجودة بالمصنف وعند الخروج من الملف وفتح ملف آخر ستجد أن العنصر تم حذفه .. Custom Item In Shortcut Menu.rar

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

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

اخي بن عليه الله يبارك لك ويجزيك كل خير

بعد تجربة المرفق بعد إذنك تعديل بسيط استاذنا الفاضل في الكود ليصبح كالتالي Private Sub TextBox1_Change() Sheets("Sheet1").Range("B3") = Val(TextBox1) TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub Private Sub TextBox2_Change() Sheets("Sheet1").Range("B4") = Val(TextBox2) TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub Private Sub UserForm_Activate() TextBox1 = Sheets("Sheet1").Range("B3") TextBox2 = Sheets("Sheet1").Range("B4") TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub

السلام عليكم ورحمة الله وبركاته اخى الكريم هل تقصد هكذا جدولة الموظفيين.rar

جرب المعادلة في المرفق... المرفق : نسبة التحصيل لادارة الصيانة يونيو 2013).rar

السلام عليكم أخي العزيز لم أكن قد قرأت ردود الأخوة الأعزاء وكنت قد جهزت ردا ثم وجدت الردود وحملت المثال الذي رفعته أنت ووجدت أنني قمت بالشرح لأقرب مايكون لما تريد بالمرفق تجد 3 شيتات (المعطيات - التنبؤ الخطي - التنبؤ المنحني) وبه شرح تفصيلي إن شاء الله يكون هذا ماتريد وتستطيع تطويعه لما تريد تفضل التنبؤ.rar

برجاء التوضيح اكثر مع مثال عملي

السلام عليكم 1/ اضغط الملف المراد أرفاقه بأحد برامج الضغط zip أو rar 2/ لما تكتب المشاركة ستجد في الأسفل زر (المحرر الكامل) اضغط عليه 3/ اضغط (اختيار ملف) ثم حدد الملف المضغوط 4/اضغط رفع الملف وانتظر قليلا حتى يتم رفعه 5/اضغط إضافة رد تحياتي

شكرا أخى الحبيب " عباس " دائما مرورك مشجع ورائع لكل زملائك تقبل الله منا ومنكم صالح الأعمال تقبل تحيات : أخيك

المشكلة تنسيق أخى وسعة عمود تفضل المرفق Book1.rar

تفضل أخى أعتقد هذا ماأردتة تقبل تحياتى قائمة فصل بشروط عدة.rar

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

انظر المرفق 0.rar

السلام عليكم الموضوع فيه فكره حلوة بس مطلوب توضيح اكثر حتى نتمكن من المساعده

السلام عليكم هذه الفكرة أظنها في هذه المشاركة والله أعلم http://www.officena.net/ib/index.php?showtopic=52363&p=326884

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

الدرس الثامن جملة Do While Loop تُستخدم العبارة Do Loop لتنفيذ العبارات ضمنها، مادام الشرط المحدد محققاً. مثال تعد حلقة Do.Loop التالية من 1 وحتى 1000 : Dim Counter Counter=1 Do While Counter < 1001 Counter = Counter + 1 Loop ملاحظات : 1 - يتم تجهيز المتغير Counter بإسناد القيمة الابتدائية 1 اليه ، ثم تبدأ بعدها حلقة DoWhile.Loop 2 - يتحقق السطر الأول من أن قيمة Counter أصغر من ١٠٠١ فإذا كان الأمر كذلك، تنفذ العبارات الواقعة بين السطر DoWhile والسطر Loop وفي مثالنا هذا ، توجد عبارة واحدة بين هذين السطرين Counter = Counter +1 والتي تزيد قيمة العداد Counter بمقدار 1 3 - يعود البرنامج بعد ذلك إلى السطر Do While ويتحقق من قيمة العداد Counter والتي تساوى الى الآن 2 4 - لهذا فسوف يعاد تنفيذ العبارة الواقعة بين السطر Do While والسطر Loop وتستمر المعالجة حتى تصبح قيمة Counter مساوية إلى 1001 وعندها يختل الشرط ويستأنف تنفيذ البرنامج بدءا من العبارة التي تلي السطر Loop جملة Do-Loop-While العبارات ضمن الحلقة Do While.Loop في الفقرة السابقة قد تنفذ أو لا تنفذ ، تبعاً لتحقيق الشرط. فمثلاً العبارات في حلقة DoWhile.Loop التالية لن تنفذ أبداً Dim Counter Counter = 2000 Do While Counter < 1001 Counter = Counter + 1 Loop فعندما يتحقق البرنامج من السطر DoWhile فإنه سيكتشف أن Counter تساوى 2000 ولهذا فلن تنفذ العبارة الواقعة بين السطر DoWhile والسطر Loop يتطلب البرنامج أحياناً الدخول ضمن الحلقة لمرة واحدة على الأقل دون تحقيق أي شرط لذلك تُستخدم الحلقة Do.Loop While مثل هذه الحاله Dim Counter Counter = 2000 Do Counter = Counter + 1 Loop While Counter < 1001 ينفذ البرنامج العبارات الواقعة بين السطر Do والسطر Loop While مهما تكن الأحوال وبعد ذلك يحدد البرنامج إذا كان الشرط محققاً (أي Counter أصغر من 1001 ) يعيد البرنامج تكرار تنفيذ الحلقة إذا تحقق الشرط وبالتالي يعيد تنفيذ العبارات الواقعة بين السطر Do والسطر Loop While أما إذا اختل الشرط (أي Counter ليست أصغر من 1001 ) فعندها يستأنف التنفيذ من العبارة التي تأتي مباشرة بعد السطر Loop While وفى المثال التالى تعد جملة Do.Loop While من 50 الى 200 Dim Counter Counter = 50 Do Counter = Counter + 1 Loop While Counter < 201 العبارة Exit DO تنتهي الحلقة DoWhile.Loop باستخدام Exit DO مثال : Dim I I = 1 Do While I < 10001 (txtResult.Text = Str(I I = I + 2 If I > 500 Then Exit Do End If Loop تعد الحلقة السابقة بدءاً من الواحد وبزيادة قدرها 2 وينتهى تنفيذ الحلقة عندما تصبح قيمة I أكبر من 500 الحلقة اللامنتهية قد تقع أحياناً في خطأ يشبه ذلك المبين في الحلقة التالية : Dim I I = 1 Do While I < 10001 (txtResult.Text = Str(I If I > 500 Then Exit Do End If Loop نلاحظ أننا نسينا كتابة العبارة التالية: I = I + 2 تبقى قيمة Counter ثابتة في الحلقة Do While.Loop السابقة (I = 1 ) وهذا بسبب نسيان زيادة قيمته. يبقى البرنامج في هذه الحالة ضمن الحلقة إلى اللانهاية لأن قيمة I دوماً أصغر من 1001 ولكن تكون أبداً أكبر من 500 بل في الواقع تساوي 1 على الدوام الحلقة For Next التكرارية تعتبر جملة For Next وسيلة أخرى لصنع الحلقات التكرارية مثال تعد الحلقة التالية من 1 الى 100 Dim7 I For I = 1 to 100 Step 1 (txtMyTextArea.Text = Str(I Next أما للتعداد من 1 وحتى 100 وبخطوة زيادة في كل مرة قدرها 2 فتستطيع استخدام الحلقة For Next التالية : Dim I For I = 1 to 100 Step 2 (txtMyTextArea.Text = Str(I Next تعد هذه الحلقة بالشكل التالي 1 ، 3 ، 5 ، .... 99 تساوي قيمة Step في الحالة الافتراضية أي عند تجاهل كتابتها الى 1 وبالتالي فالحلقتين التاليين متشابهان الحلقة الأولى Dim I For I = 1 to 100 Step 1 (txtMyTextArea.Text = Str(I Next الحلقة الثانية Dim I For I = 1 to 100 (txtMyTextArea.Text = Str(I Next العبارة Exit For تستطيع الخروج من الحلقة For.Next باستخدام عبارة Exit For مثال Dim I For I = 1 to 1000 (txtResult.Text = Str(I If I = 500 Then Exit For End If Next يعد جزء البرنامج هذا بدءاً من الواحد وبزيادة قدرها 1 للمتغير Z مع كل تكرار للحلقة يتحقق شرط عبارة If الداخلية عندما تصبح قيمة I مساوية إلى 500 ونتيجة ذلك تنفذ العبارة Exit For التي تنهي بدورها تنفيذ الحلقة For.Next قبل انتهاء الحلقة الدالة Inputbox تستخدم فى إدخال بيانات بواسطة المستخدم من خلال مستطيل يطلب منه إدخال البيان المطلوب . مثل إدخال معدل الضريبة الكلى يتم حساب الضرائب التي تستقطع من العاملين أو إدخال الراتب الاساسى لموظف حساب صافى مستحقاته بعد إضافة الحوافز والمكافآت وخصم الضريبة والاستقطاعات وتأخذ هذه الدالة الشكل التالي : الشكل العام للدالة Inputbox مثال : الدرس 8.rar

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

أخى الفاضل / ابو سلام جزاك الله كل خير أخى الفاضل / gfranses جزاك الله كل خير بالنسبة للطلب الأول أرجو إرفاق ملف حتى يتم توضيح المطلوب أكثر ليتم العمل عليه بالنسبة للطلب الثانى الخاص بشرح الدالتين math & index هذا الرابط يحتوى على شرح الدالة index http://www.officena....showtopic=37497 وفى هذا الرابط سوف تجد كتاب رائع لشرح جميع دوال الاكسل http://www.officena....ds&showfile=133 من اعداد الرائعين الاستاذ / محمد يحياوى والاستاذ / عيد مصطفى

تفضل أخى استدعاء بيانات من عدة ملفات workbooks pc sales.rar

تفضل أخى استدعاء البيانات من عدة شيتات pc sales.rar

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