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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

أخي الكريم أيمن هل اشتغل معك الكود بشكل جيد ؟؟؟ أشك في النتائج ... راجع الملف مرة أخرى ... أخي الغالي ياسر العربي .. ركز معايا في اللي جاااااي إنت بتقول المشرفين بيقفشوا على 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

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

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

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

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

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

والحق واقولك غير كودك بالكود دا عشان في مشرفين هنا بيقفشوا علي الواحدة ويقولك بلاش 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 كود الغاليين

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

السلام عليكم ماذا يجمع في نتيجه يعني اي الحقول التي تجمع في الحقل نتيجه وكيف يقسم على 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 وشكرا

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

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

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

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