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

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

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

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

لن أقول أفضل مما قاله أخي الحبيب عبد العزيز فالأمر هنا ليس بالمناصب بل بخدمة الآخرين تبتغي بها وجه الله الكريم. والسلام عليكم. لن ندعم قرارك هذا يا أستاذنا الكريم حسام بل سنقف وقفة رجل واحد حتى تعود عنه لاحظ أنني ظننت وإن بعض الظن إثم في هذا التنقل بين الشارات بأن الأمر فيه ما فيه لكن الحمد لله أنك كنت من طلب هذا الأمر... إكراماً لنا - إن قبلت جاهنا - أن ترجع عن هذا القرار والسلام عليكم

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

السّلام عليكم و رحمة الله و بركاته أخي الغالي و أستاذي القدير المحترم " حسام عيسى " أعرف تمام المعرفة أنّ الأمر يخصّك أنت وحدك .. و أنّ الفكرة فكرة جد شخصيّة .. لكن من باب الأخوة فقط لا غير .. و من باب أنّنا بهذا المنزل التعليمي الكبير .. أعتبر نفسي و إيّاك أخويْن في الله .. نعيش معًا و جميع أفراد هذه الأسرة وسط هذا الصرح التربوي التعليمي الكبير .. أٍرجو أن ترجع الأمر إلى نصابه .. شرف كبير أن أقرأ مجرّد اسمك بالمشاركات و شرف أكبر أن أرى عزيزي " الصقر " بدرجة خبير معتمد .. لا تنقص هذه العبارة أو تزيد من تجاربك و علمك الذي أمدّك الله به في شيء .. لكن من باب مسايرة المنتدى .. مسايرة تطلّعات الأسرة الواحدة .. و كم تمنيت عدم تلبية طلبك .. لكن بنهاية المطاف أنت المسؤول و الكلمة الأولى و الأخيرة تعود إليك بالدرجة الأولى .. تقبّل فكرتي بصدر رحب أستاذي القدير .. فائق إحتراماتي أخوك و تلميذك / عبد العزيز البسكري

بسم الله الرحمن الرحيم فكرة وياريت الكل يتفاعل لتنشط القسم اثبت حضورك بكلمة صباح البركة استيقظنا على عظيم هبات اللهروحٌ عادت..ونعم زادت..صباح أطل..وأمن أظل..من أدام التسبيح : فرجت أسراره ومن أدام الحمد : تتابعت عليہ آلخيراتومن أدام الاستغفار : فتحت لہ المغاليق اللهم اجعل أيامنا سعيدةوهمومنا بعيده وفرجنا قريب .. وسرورنا يزيد وعيشنا رغيد واجعلنا ممن قلت فيهم " لَهُمْ مَا يَشَاءُونَ فِيهَا وَلَدَيْنَا مزيد" ياسر العربي

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

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

السّلام عليكم و رحمة الله و بركاته بدوري أبارك و أُؤيّد كلامك أستاذي القدير محمد حسن المحمد .. كلام العُقَلاء .. و أرجو فضلاً لا أمرًا من كل أعضاء بيت أوفيسنا دعوة أستاذنا الغالي " الصّقر " الرجوع و العدول عن قراره .. فائق إحتراماتي عبد العزيز البسكري

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

السلام عليكم ورحمة الله وبركاته كما وجّه الأخ الحبيب الصقر نداء للأستاذ المحترم محمد طاهر للعودة عن ترقيته فإنني أتوجّه إلى أعضاء منتدى أوفيسنا وخصوصاً قسم الإكسل الذين تابعوا دروسه ومشاركاته الفعالة والناجحة بنداءٍ لكم جميعاً للمشاركة بهذا الموضوع ليصبح موضوعاً ساخناً تدعون الأستاذ الصقر لثنيه عن قراره هذا وكلّي رجاء بكم وبجهودكم وأظنه لن يخذل كل هذه الوجوه الطيبة لأنكم أهل كرامة عنده ولكم محبة وافرة والسلام عليكم.

الَلَهِمِ كمِا أدُعَـوِك لَنفسي أدُعَـوِك لَمِنٌ أعَـزَهِمِ وِأحًـبّـــهِمِ فيــك أنٌ تُرزَقَهِمِ فُيّ كلَ خٌـفُقَة قَلَبّـٍ فُرحًـآً وِاطٌمِئنٌانٌا وِفُيّ كلَ طٌرفُة عَـيّنٌٍ مِخٌـرجَـآً وِ اسًـتُقَرارآً و ِأمِنٌآً وِ فُيّ كلَ دُعَـاءٍ إًسًـتُجَـابّـةً وِرحًـمِةً وِ غّـفُرانا

السلام عليكم ورحمة الله وبركاته: أصبحنا على فطرة الإسلام وعلى كلمة الإخلاص وعلى دين نبينا محمّد صلى الله عليه وسلم وعلى ملة أبينا إبراهيم حنيفاً مسلماً وما كان من المشركين. اللهم ما أصبح بي من نعمة أو بأحد من خلقك فمنك وحدك لا شريك لك فلك الحمد ولك الشكر. بارك الله بكم إخوتي على كلمات تنعش القلب وتبعث على الطمأنينة فاليوم سجل عملك يشهد عليك فاظفر بخيره وارض ربك به وأسعد من حولك فأنت للجميع لا لنفسك فحسب والدليل قولك في كل صلاة:" اهدنا الصراط المستقيم" لم تقل اهدني.. والسلام عليكم.

اسعد الله صباحك يا عم ياسر

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

ههههههههههههههههههههه والله انتو ناس زي العسل و بصراحه انا لسه متعلم الماكرو النهرده و ما اخدتش فيه الا نص ساعه كده قرايه و عملت الكومند ده و عايز احترف الماكرو هل في اسلوب اتعلم منه الماكرو و بجد استفدت من مناقشتكو و خصوصا ال 10 اخطاء ;) ربنا يباركلكو والله انتو ناس ميه الميه الميه الميه

أخي الحبيب سليم بارك الله فيك على إثراء الموضوع ، ولكن الكود لا يعطي نتائج صحيحة يرجى مراجعة الكود أخي الحبيب أبو يوسف كما ذكر أخونا الغالي الخباز المحترف ياسر العربي .. كلنا هنا لازم نعجن لحد ما الخبز يطلع في أحسن صورة بالعكس أنا مبسوط جداً بمشاركتك ..لازم عشان تتعلم لازم تشارك وتغلط وتحاول وتفشل وتمشي وتقع وتقوم تقف تاني (هكذا يكون التعلم) ... لا أن نركن في جنب ونستنى دايماً المعلومة الجاهزة .. وبالمشاركات الكل بيتطور وبيتقدم ويتعلم وأنا أولكم والله .. أنا أبحث عن أكثر من حل حتى لو كان لدي حل .. فالبحث يزيد المعرفة ويوثق عملية التعلم إليكم هذا الكود أيضاً ليؤدي الغرض وهو أسرع بكثير (جرب اأن تضع الآف البيانات في العمود الاول ونفذ الكود وستجد الفرق) Sub ExtractNumber() Dim X, SP, I As Long With Range("A1", Cells(Rows.Count, 1).End(xlUp)) X = Application.Trim(.Value) For I = 1 To UBound(X) SP = Split(X(I, 1)) X(I, 1) = Val(Val(SP(3)) & "." & SP(2)) Next I .Offset(0, 1).Value = X End With End Sub تقبلوا تحياتي

اتفق دهاقنة مصممي قواعد البيانات وكبراؤها من أولهم إلى آخرهم إلى أن على مصمم قاعدة البيانات أن يبدأ بتصميم القاعدة على الورق أولاً وقبل أن يتجه إلى الحاسب .. فيأتي بالأفكار من هنا وهناك ويعرضها على عقله ويتأملها فيكتب ويشطب ويزيد وينقص ويضيف ويحذف ويخطط لقاعدة البيانات كما تخطط المدن حتى تكون القاعدة التي يريد إنشاءها واضحة لديه تماماً .. فعند بداية فكرة القاعدة تكون القاعدة في المخيلة كمدينة كثيرة الأحياء كثيرة الطرق متشعبة المداخل والمخارج فيجلس المصمم مدة كافية يخطط ويدرس حتى تكون المدينة في مخيلته كقرية صغيرة جداً يعرف مداخلها ومخارجها .. هذا أمر لابد منه قبل الانتقال إلى الحاسب الآلي لتجسيد ما كتب على الورق إلى واقع ملموس .. ومن لم يتبع هذه الطريقة التي اتفق عليها خبراء مصممي قواعد البيانات فسوف يلهث خلف سراب لن يدركه وسيصلى بحر التعب والإرهاق بلا فائدة . وهنا بعض من أسس بناء قواعد البيانات فمن خلالها نبني القاعدة على أساس سليم . (راجع في ذلك الكتب التي تتكلم عن بناء قواعد البيانات مثل كتاب (بناء قواعد البيانات تأليف (ألين تايلور) وهو مترجم) بالإضافة إلى ما كتبه الأستاذ الفاضل (إنترنت ماستر) من هنافي الفريق العربي للبرمجة ) .. وبإلماحة سريعة عن بناء قواعد البيانات فإن هناك مفاهيم ومصطلحات لابد من معرفتها : 1- الجدول الأب والجدول الابن : فالقاعدة من خلال هذا المصطلح تقول : كل ابن لابد أن يكون له أب .. هذه سنة الحياة .. وفي سنة قواعد البيانات : لابد أن يوجد لكل ابنٍ أبٌ ينتسب إليه الابن .. بمعنى : لتكامل قواعد البيانات لابد أن يكون لكل سجل في الجدول الفرعي (الابن) سجل في الجدول الرئيسي (الأب) .. فهذه قاعدة مهمة جداً لأنه من الخلل الكبير في بناء قواعد البيانات أن يوجد أبناء لا آباء لها فوجودها سيكون مربكاً للغاية وسوف تحمل قواعد البيانات عبأً هي في غنية عنه .. قد يوجد الأب بلا أبناء ولا يشكل خطراً على البيانات ولكن لا يمكن السماح بوجود أبناء بلا آباء . وتظهر فائدة هذه القاعدة في معرفة الجداول التي لابد من فرض التكامل المرجعي في علاقاتها مع بعض .. لأنه قد توجد علاقات جداول مع بعضها ولكن دون فرض التكامل المرجعي لأنه حينها لا يهمنا وجود الابن دون أب في هذا الوقت . مثال ذلك جدول بيانات صاحب الهاتف يعتبر أباً لجدول أرقام الهواتف فقد يوجد لشخص ما عدة أرقام .. فهنا قد يوجد أب لم يسجل له أرقام هواتف .. ولكن لن نسمح بوجود أرقام صالحة للاتصال دون صاحب لها . 2- الجدول التابع والجدول المتبوع(المستقل) : القاعدة هنا تقول : كل جدول يستند في وجوده (وجود سجلاته) إلى جدول آخر يسمى تابعاً .. وكل جدول لا يستند في وجوده (وجود سجلاته) إلى جدول آخر يسمى متبوعاً أي غيره يتبعه (مستقلاً) .. وتظهر فائدة هذه القاعدة في معرفة من هو الأب ومن هو الابن من الجدولين لنبني عليها العلاقات واحد لكثير . 3- توحيد الجداول : لابد من التخطيط الجيد وإعطاء نفسك مهلة كافية للتخطيط لقاعدة البيانات لكي تؤدي ما هو مطلوب منها بكل جدارة بالإضافة لإمكانية تطويرها وصيانتها فيما بعد فكما أن العقل السليم في الجسم السليم فكذلك هنا فإنا نقول القاعدة السليمة في البناء السليم .. فمن خلال البناء السليم نستطيع منع حدوث الكوارث والزحامات والبيانات المهدرة .. لذا يجب علينا توحيد الجداول بمعنى أنه يجب تحديد هدف كل جدول فعند انبثاق فكرة القاعدة تكون المعلومات كثيرة جداً يجمعها جدول واحد في الذهن فنقوم بتوحيدها وتفصيلها بوضع كل بيانات تخص موضوعاً معيناً في مجموعة واحدة (جدول واحد) .. مثال ذلك فكرة بناء قاعدة (مكتبة) فهناك البيانات التالية : بيانات الكتاب بيانات الناشرين بيانات المؤلفين .. الخ فنقوم بتفصيلها كالتالي : فجدول بيانات الكتاب يضم الحقول التالية : اسم الكتاب ، تاريخ الطبع ، عدد المجلدات ، سعر الشراء .. الخ وجدول بيانات الناشرين يضم الحقول التالية : اسم الناشر ، المدينة ، البلد ، الهاتف ، صندوق البريد .. الخ وجدول بيانات المؤلفين يضم الحقول التالية : اسم المؤلف ، كنيته .. الخ فنلاحظ أنا قمنا بتوحيد وتفصيل البيانات ووضع كل بيانات مترابطة في جدول واحد مما يعني أنه لن تضيع بيانات ولن تهدر مساحات من القرص . 4- المفتاح الأساسي والمفتاح الفرعي : كما مر معك فإن حقل المفتاح الأساسي لا يمكن أن تتكرر قيمه بينما يمكن أن تتكرر قيم حقل المفتاح الفرعي المرتبط به .. فالجدول الأب هو من سيكون لديه حقل المفتاح الأساسي أما الجدول الابن فهو الذي لديه المفتاح الفرعي . 5- التكامل المرجعي : يحتم فرض التكامل المرجعي على العلاقة بين جدولين على ضمان تطابق المعلومات في الجدولين ( الرئيسي والفرعي ).. فمن خلاله لن يسمح نظام قواعد البيانات بإدراج سجل في الجدول الفرعي (الابن) ما لم يكن له سجل سابق في الجدول الرئيسي (الأب) .. وحين إضافة ابن بلا أب ستخرج رسالة خطأ وتمنعك من إضافة السجل الابن . ويشتمل التكامل المرجعي على شيئين وهما : 1- تتالي التحديث : وتعني أنه عند تغيير قيمة المفتاح الأساسي في الجدول الأب فإن التغيير سيسري إلى أبناءه في الجدول الابن وسيأخذون القيمة الجديدة لضمان التحاقهم بأبيهم . 2- تتالي الحذف : وتعني أنه عند حذف أب من جدول الأب سيحذف معه أبناؤه في جدول الابن لكي لا يترك أبناء بلا أب لهم . لكن يمكنك حذف ابن من جدول الابن ما لم يكن هذا الابن له أبناء لأنه قد تتسلسل القاعدة إلى آباء وأبناء فقد يكون هناك أب له ابن وهذا الابن يكون أباً لأبناء .. وهكذا فلا يمكن حذف هذا الابن إلا بعد حذف أبناءه ولو اخترت تتالي الحذف في علاقاتها كله مع بعض سيتم حذف الأب والابن وأبناء الابن .. الخ . هناك توجيهات تخصك كمطور قواعد بيانات منها : 1- تجنب الحروف العربية في تسمية كائنات قاعدة البيانات واستخدم الحروف الإنجليزية عوضا ًعنها بدءاً من اسم القاعدة إلى أسماء الجداول وأسماء النماذج والتقارير والاستعلامات والماكروا والوحدات النمطية حتى تتجنب مشقة الكتابة في محرر فيجول بيسك عند كتابة الأكواد . 2- ابتعد عن تسمية الكائنات بأسماء محجوزة لدى نظام قاعدة البيانات فمثلاً لا تسم الجدول باسم Table أو Tables أو النماذج باسم Form أو Forms كذلك Report للتقارير ، User وكل الكلمات والعبارات المحجوزة من قبل نظام قواعد البيانات حتى لا تقع في مشاكل أنت في غنى عنها . 3- اختر الأسماء كما تفهمها أنت والتي تدل على ما يراد منها . 4- بعد أن تنجح في كتابة كود وتعتمده اكتب تعليقاً يوضح عمله . 5- احتفظ بنسخ من قاعدة البيانات حتى لا يذهب جهدك سدى . هذه بعضاً منها مما يحضرني الآن ولعل الإخوة الإكرام يثرون هذا الموضوع بخبراتهم وتجاربهم واطلاعاتهم .

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

هذا موضوع مبارك ما أكثر زائريه جزى الله خيرا من قام برفعه أنا متواجد بمنتدى الإكسل أغلب الوقت أما الأكسيس فتركته منذ فترة لدى بعض التساؤلات لمن يجمعون بين الإكسل و الأكسس و هم غير قليلين 1- بم يمتاز أكسيس على إكسل 2 - متى لا يسد أحدهما مسد الآخر 3 - أيهما أسهل شيت إكسل أم قاعدة أكسيس 4 - أيهما أسهل برمجة إكسل أم برمجة أكسيس 5 - برمجة أكسيس هل أستفيد فيها من خبرتى فى برمجة إكسل بحيث تقصر الطريق ؟ 6 - أيهما أكثر مرونة؟ على أساس الإجابات سأبدأ فى دراسة برمجة الأكسيس بعد دراسة قواعد البيانات طبعا أو أصرف النظر و أكتفى بالإكسل جزاكم الله خيرا

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي القدير مختار حسين محمود على الكلمات الطيّبة .. يا طيّب والله ألف شكر على الملاحظات الدّقيقة .. البنت التي أمامك بالصورة لم تتركني أركّز بصراحة ..و أخرجتني من طوعي هذا من جهة .. من جهة أخرى وجدت ملف الأخ السّائل به خلل .. قد يكون من عندي .. فقمت بتصميم ملف آخر ربما قد لاحظتَ ذلك مع نقل الورقتين إلى الملف الجديد .. فخرجت تقريبا عن الموضوع من جهة ثالثة فكرت بطريقة أخرى للدخول لكل الشيتات بكلمة مرور مع ترك شاشة افتتاحية .. تفضّل هذا الملف ريثما يُعدّل الأول حسب ملاحظاتك أستاذي الغالي فائق إحتراماتي عبد العزيز البسكري الدخول لكل أوراق الملف بكلمة مرور.rar

أخى ايهاب الغريب بارك الله فيك أنت مش غريب أنت بين اخوانك ان شاء الله أخى العزيز زيزو يعلم الله عز وجل كم أنت عزيز الى قلبى بدماثة خلقك وطيب نفسك ومشكور جدا جدا على المرفق الجميل بس لسه فيه جزئين ناقصين : فين زر الخروج فى الفورم ؟ - وفين اختفاء الشيت سرى عند الانتقال الي شيت آخر زى ما طلب الأستاذ حسين ؟ يلا كمل الملف تحياتى أخوك مختار

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

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

اخى الكريم اسف جدا نظر لضيق وقتى لانى بالدوام جرب هذا الحل 0 يعنى اجعل تنسيق التاريخ رقم يعنى تاريخ اليوم على سبيل المثال 29-10-2015م هذا التاريخ كرقم يساوى 42306 ------------------------------------------------- بالنسبه لطلبك الثانى تعبئة الكمبوبوكس بالاشهر جرب هذا الكود فى حدث الفورم Private Sub UserForm_Initialize() For i = 1 To 12 ComboBox1.AddItem Format(DateSerial(2015, i, 1), "mmmm") Next i End Sub ----------------------------------------------------------------------- الطريقه الاخرى وهذا الكود لو حبيت يكون للكمبوبوكس عدد 2 عمود عمود فيه اسماء الشهور واخر فيه ارقام الشهور Private Sub UserForm_Initialize() With ComboBox1 For i = 1 To 12 .AddItem Format(DateSerial(2015, i, 1), "mmmm") .List(.ListCount - 1, 1) = Format(DateSerial(2015, i, 1), "mm") Next i End With End Sub وضع هذا الكود ايضا Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value End Sub ومتنساش فى الخاصيه Bound Column للكمبوبوكس توضع رقم 2 وايضا الخاصيه Column count للكمبوبوكس توضع رقم 2 انصحك تراجع شروحات الفورم ستستفيد اعذرنى لضيق وقتى كنت عايز ارفق لك فورم عليه التضبيق تقبل تحياتى

السّلام عليكم و رحمة الله و بركاته تصدّق بالله عزيزي عبد النّاصر محمود .. أنّي لم أفهم القصد لحد الآن .. إعتبرني تلميذ ابتدائي .. و أنتَ معلّمي .. أفهم بهذه الطريقة " هذه تُرحّل إلى هذه .. و الأخرى إلى هناك .. و تلك لا ترحّل أو نرحلها حينَ ميسرة .. " أرجو من الأساتذة الأعزّاء جزاهم الله خيرًا و زادها بميزان حسناتهم أن يتفاعلوا مع موضوعك .. فائق إحتراماتي

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

اعزائي واخواني اعضاء المنتدى الرائد اقدم اعتذاري للانقطاع المؤقت والذي لن يدوم طويلا وذلك لانشغالي قليلا متمنيا للجميع التوفيق والسداد ! تحياتي للجميع

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

هذا الموضوع في غاية الأهمية للمبتدئين لبدء الدخول إلى عالم البرمجة والأكواد فطريق الألف ميل يبدأ بخطوة

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

أخي الكريم أيمن هل اشتغل معك الكود بشكل جيد ؟؟؟ أشك في النتائج ... راجع الملف مرة أخرى ... أخي الغالي ياسر العربي .. ركز معايا في اللي جاااااي إنت بتقول المشرفين بيقفشوا على Activate أو Select .. اتفضل القفش في الكود القفشة الأولى زي ما أبطلت تحديث الشاشة كان عليك ترجع الإعدادات مرة تانية وتشغل الخاصية في النهاية Application.ScreenUpdating = True القفشة التانية عند نسخ الكود .. هناك خطأ في هذا السطر لديك aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 حضرتك نسيت أقواس التنصيص عشان تقفل اسم ورقة العمل القفشة التالتة في نفس السطر الل فوق ..دا كدا بيجيب آخر صف به بيانات ..يعني لما تيجي تلصق البيانات فيه آخر سطر سيتم اللصق عليه (قفشة في الجون) وليه اللفة الطويلة دي واستخدام دالة Counta وتزود عليها 4 كان ممكن يكون السطر بهذا الشكل أفضل aseel = Sheets("تحويل داخلي").Cells(Rows.Count, "B").End(xlUp).Row + 1 القفشة الرابعة بدلاً من أن تكتب وتشير إلى ورقة العمل Sheets("تحويل داخلي") الأفضل الإعلان عن متغير باسم ورقة العمل مرة في أول الكود لسهولة استخدام المتغير بمعنى أن تضع في أول الكود هذين السطرين Dim SH As Worksheet Set SH = Sheets("تحويل داخلي") وبعد ذلك يمكنك استخدام المتغير SH القفشة الخامسة حضرتك بتتسخدم أسماء أشخاص في المتغيرات ودا شيء مش مستحب لأن اسم المتغير بيعبر عن وظيفته في الغالب (دا أفضل) ..صحيح مش قفشة صحيحة بنسبة 100% ، ولكن أنا بكلم واحد محترف ، يعني لازم تستخدم اسماء في المتغيرات تعبر عن المتغير وعن نوعه كمان يعني مثلاً المتغير mohamed المفروض إنه بيجيب رقم آخر صف في ورقة العمل اللي فيها الكود ... كان ممكن نسميه lRow (حرف الـ l اختصار للنوع Long .. أو لو حبيت تستخدم Integer يبقا iRow) .. والمتغير المسمى aseel المفروض بيعبر عن آخر صف في ورقة العمل "تحويل الداخلي" أو على الأدق أول صف فارغ بعد آخر صف به بيانات ... ممكن تسميه iRowTar أي آخر صف في الورقة الهدف (الورقة الهدف : الورقة المراد الترحيل إليها) القفشة السادسة يفضل أيضاً الإشارة إلى ورقة العمل الحالية .. عشان تقدر تنفذ الكود من أي مكان تاني (لأن الكود بهذا الشكل مينفعش يتنفذ غير وإنت واقف في ورقة العمل Sheet1 فالأفضل تعيين متغير تاني لورقة العمل الأولى عشان تقدر تنفذ الكود من أي مكان زي ما قلت فيكون بهذا الشكل أيضاً .. Dim WS As Worksheet Set WS = Sheets("Sheet1") والأفضل كمان إنك تستخدم الاسم البرمجي بدلاً من اسم ورقة العمل ، نظراً لأن المستخدم قد يرغب في كثير من الأحيان إلى تغيير اسم ورقة العمل ، بالتالي راعي هذه النقطة أيضاً القفشة السابعة السطر التالي ايه لازمته ...عايز أعرف ايه الفايدة منه بعد انتهاء أسطر الكود aseel = aseel + 1 ملوش لازمة إلا لو كنت داخل حلقة تكرارية مثلاً وتريد زياد رقم الصف بمقدار واحد شفت إزاي ممكن كود صغير نقفش منه سبع قفشات ... قول ورايا : خشب السقف سبع خشبات واتمسكت بسبع قفشات (قولها 10 مرات) تقبل تحياتي أخوك وحبيبك أبو البراء الكود بالشكل النهائي يمكن أن يكون بهذا الشكل ... Sub Rectangle1_Click() Dim WS As Worksheet, SH As Worksheet Dim lRow As Long, lRowTar As Long Set WS = Sheet1: Set SH = Sheet5 lRow = WS.Cells(Rows.Count, "A").End(xlUp).Row lRowTar = SH.Cells(Rows.Count, "A").End(xlUp).Row + 1 Application.ScreenUpdating = False WS.Range("A2:H" & lRow).Copy SH.Range("A" & lRowTar).PasteSpecial Paste:=xlPasteValues Range("A1").CurrentRegion.Offset(1).ClearContents Application.ScreenUpdating = True End Sub

ياعم وائل اعمل كلمة مرور جامدة كدا المبتدئ ممكن يخمن كدا 123456789 ومنها عرفت حماية الشيت كامبتدئ Wael وجاري اختبار بقيت نقط الضعف باذن الله انا بتكلم كا مبتدئ مش خبير خالص

اخي ياسر اظن ان الخطأ هو في طريقة تعامل الاكسل مع اللغات (العربية الاجنبية) لكن وجدت لك معادلة تفي بالغرض و تعطينا نتائج رقمية =TEXT(RIGHT(SUBSTITUTE(A1,"المبلغ النهائي",""),9)&"."&TRIM(LEFT(SUBSTITUTE(A1,"المبلغ النهائي",""),6))*1,"#.#0")*1

السّلام عليكم و رحمة الله و بركاته أساتذتي الأفاضل : ياسر العربي طلعت محمد حسن مصطفى محمود مصطفى زيادة لما تقدّمتم به جزاكم الله خيرًا و زادها بميزان حسناتكم .. كود آخر بدون كلمة فقط " ONLY " .. لإثراء الموضوع " فقط " لا غير .. فاتورة المؤسسة .rar

لا يشترط أخي نايف الضغط على إنتر ، يكفي الخروج من التكسب بوكس وتنشيط تكست بوكس آخر أو أي Control على الفورم اكتب على سبيل المثال أي نص في التكست بوكس الاول ومن خلال الماوس انقر في التكست بوكس الثاني

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

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

تفضل لعل هذه يفيدك http://www.officena.net/ib/topic/63797-دعوة-لتطوير-اداه-لنسخ-قاعدة-البيانات-المرتبطة-كل-مدة-زمنية-ساعةيومشهرسنة/ المثال لاستاذنا ابوخليل يقوم المثال بعمل نسخه جديدة حسب ما انت تختار (ساعة-يوم-شهر-سنه) باي صيغه تريدها وعند الخروج يعمل نسخه احتياطية اتوماتيكيا وذلك في المسار الذي تحدده انت وكل هذا تقوم بضبطه مرة واحدة من خلال النموذج تحياتي

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

لعله خيرا باذن الله وترجع بالسلامة

أخي الحبيب زيزو العجوز أشكرك على كلماتك الرقيقة وشعورك الطيب ولكن اعلم أن المدح لا يعنيني في شيء ، إنما يعنيني فقط مروركم العطر وشعوركم الطيب نحوي وحبكم لي في الله

الأخ الكريم أناناس .. بارك الله فيك ..إحنا ممكن نعمل سلسلة جديدة باسم "حديث الناس عن السيد أناناس .. مفجر الأساس" الأخ الحبيب أبو حنين جزيت خيراً بمثل ما دعوت وسلمت من كل مكروه وسوء تقبلا تحياتي

مرحبا اخي الكريم من خلال الاكسل يمكنك ان تضيف او تعدل او تحذف بيانات من SQL Server أولا : كود استعلام البيانات Private Sub GetSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "------" ServerName = "------" UserId = "------" Password = "------" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "SELECT * from transactions WHERE CustomerID= '2648' " cn.Open strconn rs.Open sql_string, cn Range("a3").CopyFromRecordset rs rs.Close Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub ثانيا: كود الاضافة Private Sub InsertSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "-----" ServerName = "-----" UserId = "----" Password = "----" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "Insert Into transactions (CustomerID, Amount) values ( '1',1000) " cn.Open strconn rs.Open sql_string, cn Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub ثالثا: كود التعديل Private Sub UpdateSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "----" ServerName = "----" UserId = "----" Password = "----" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "update transactions set CustomerID='2' where amount =1000 " cn.Open strconn rs.Open sql_string, cn Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub طبعا بدل القيم الافتراضية التي انا ادخلتها يمكنك الاعتماد على قيم موجودة في خلايا اكسل او تكس بوكس في نماذج مثلا بدل كتابة sql_string = "update transactions set CustomerID='2' where amount =1000 " يمكنك كتابة sql_string = "update transactions set CustomerID= "& "'" & range("a2") & "'" & " where amount =" & range("b2") لاحظ إضافة ' امام وخلف أي قيمة لا تكون مبنية في اس كيو ال انها قيمة int وشكرا

أخي الكريم مصطفى في ورقة العمل المسماة "جدول لوحة إعلانات" ضع المعادلة التالية في الخلية E7 ثم قم بسحبها =IFERROR(INDEX(Table1[المكان],MATCH('جدول لوحة اعلانات'!$D7,Table1[المعلم],0)),"") إذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية في المعادلة بفاصلة منقوطة (ومتنسناش بنص كيلو أوطة .. عشان غالية اليومين دول ) تقبل تحياتي

جزاكم الله خيرا اخوتي الكرام كلماتكم الرقيقة تخجلني ، و تزيد من ندمي على التقصير فى المشاركة مع هذا الجمع الطيب

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

السلام عليكم =========== اخوانى واحبائى واحب الناس الى قلبى ( اعضاء - مشرفين - مسئولى )ممنتدى اوفسينا كم تعلمت منكم وكم زادنى شرف الردود لكم وعليكم والان موعدى معكم لرد جميلكم الثقيل على كتفى خفيف على قلبى الى كل من علمنى حرفا فى هذا المنتدى وسيعلنى اهديكم هذا البرنامج داعيا الله ان يكون على المستوى اللائق واعطائى ولو درجة النجاح والنجاح فقط ميزات البرنامج ============== 1) يصلح للصفين معا فهو يتعامل مع صيغتى الاناث والذكور ( طالبات - وطلبة ) بمجرد اختيار بنين او بنات فى صفحة البيانات فمعادلاته مجهزة لذلك . 2) يتعامل مع الصفين الاول والثانى عند اختيار الصف فى صفحة البيانات فالمعادلات ايضا مجهزة لذلك 3)البرنامج يجمع فى طياته كل افكار الكنترولات السابقة فقط مع اضافة توزيع اللجان وارقام الجلوس لاى صف من الصفين دون التدخل لكتابة الصف او الجنس . 4)صفحة السرى ( لها رقم سرى لعدم الاطلاع من قبل اعضاء الكنترول والسرى هو 12) لعالمنا الجليل خبور 5)فى صفحة ف د 1 يوجد زر للكتشنة وفك الكتشنة وكانت الفكرة للاستاذ ايسم بارك الله فيه 6) يوجد فى نفس الصفحة زر للتقريب بما يتناسب مع قوانين الرفع وهو اختيارى والكود للاستاذ الكبير ابو تامر . 7)شهادة الفصل الدراسى الاول صفحة واحدة فقط وهى فقط كعملية جمالية تعمدت الا يكون الصفحة بها اكثر من شهادة وذلك لتجنب القص وغيرة ( رزمة الورق تقص فى المطبعة كما هى الى نصفين وتوضع فى الطابعة كما هى ) 8)ما اعتبره اهم ميزة هو شهادة الفصل الدراسى الثانى تكون بالدوائر . 9) ترحيل الشيت الى ناجح ودور ثانى للطباعة وايضا بالدوائر 10) لا املك اى كود فى هذا البرنامج الا كود التجهيز فقط اما باقى الاكواد قكلها موجودة فى المنتدى 11) اشكر كل من ساهم بفكرة واخص وسامحونى بالترتيب الاستاذ مجاهد اعادة الله لنا سالما العالم الجليل خبور خير الاستاذ الفذ ابو تامر اخى وصديقى ايسم واترككم مع البرنامج فى رعاية الله وفى انتظار تعليقاتكم