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

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

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

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

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

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

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

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

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

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

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

موضوع بصراحه رائع التعلم من الاخطاء يجعل المعلومه تلزق فى الجمجمه ... بصراحه السيد ياسر خليل والسيد ياسر العربى صرح من اكواد 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

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

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

أستاذ حسين يرجى تغيير اسم الظهور الى اللغة العربية لسهولة التواصل ثانيا هذا شرح للكود ببعض التعليقات عليه الكود الاول يوضع فى حدث المصنف Private Sub Workbook_Open() Application.ScreenUpdating = False ' منع تحديث الشاشة Sheets("سري").Visible = 2 ' اخفاء الورقة سرى عند فتح الملف وعدم القدرة على اظهاره يدويا Sheets("بيانات").Activate ' تنشيط ورقة العمل بيانات فى بداية فتح الملف Application.ScreenUpdating = True ' اعادة تشغيل تحديث الشاشة End Sub الكود الثانى يوضع فى حدث ورقة بيانات Private Sub Worksheet_Activate() ' فى حالة تنشيط ورقة بيانات فانه يتم Application.ScreenUpdating = False Sheets("سري").Visible = 2 ' اخفاء الورقة سرى Application.ScreenUpdating = True End Sub Sub showsheet() Dim pwd As String ' اعتبارالمتغير من نوع نص pwd = "123" ' كلمة السر يمكنك تعديلها Application.ScreenUpdating = False Application.DisplayAlerts = False If Application.InputBox("What is the password to view this sheet?", "Access Password", "***") <> pwd Then ' اذا كانت كلمة السر المدخلة غير 123 فان MsgBox "sorry Wrong password" ' ظهور رسالة للمستخدم بأنها كلمة السر خاطئة Sheets("بيانات").Activate ' تنشيط ورقة العمل بيانات Else ' اذا كانت كلمة السر صحيحة فان With Sheets("سري") .Visible = True ' اتاحة الشيت للمستخدم .Activate ' تنشيط الشيت End With End If Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تحياتى

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

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

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

اخى الكريم اسف جدا نظر لضيق وقتى لانى بالدوام جرب هذا الحل 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 انصحك تراجع شروحات الفورم ستستفيد اعذرنى لضيق وقتى كنت عايز ارفق لك فورم عليه التضبيق تقبل تحياتى

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

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

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

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

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

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

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

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

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

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

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

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

والحق واقولك غير كودك بالكود دا عشان في مشرفين هنا بيقفشوا علي الواحدة ويقولك بلاش Select or Activate Application.ScreenUpdating = False Dim mohamed As Integer mohamed = [A100000].End(xlUp).Row Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 Sheets("تحويل داخلي").Range("A" & aseel).PasteSpecial Paste:=xlPasteValues aseel = aseel + 1 Range("a2:h100000").ClearContents كود الغاليين

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

السلام عليكم ماذا يجمع في نتيجه يعني اي الحقول التي تجمع في الحقل نتيجه وكيف يقسم على 2 هل في الحقل فصلين يتم التقسيم ؟ انتظر التوضيح بالتوفيق

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

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

مرحبا اخي الكريم من خلال الاكسل يمكنك ان تضيف او تعدل او تحذف بيانات من 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 وشكرا

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

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

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