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

العنوان يدل على الموضوع جرب هذا الملف ولا تنسَ الدعوات....... واضغط اعجبني جمع في نفس الخلية.rar

السلام عليكم ورحمة الله وبركاته معادله فى غاية البساطه تحويل الصف الى عمود تقبلو تحياتى تحويل الصفوف الى اعمده.rar

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاة الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا أوفيسنا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لكم برنامجى المتواضع تعليم الرياضيات بالاكسل لرياض الأطفال والمدارس الابتدائية مميزات البرنانج 1- يناسب الفئات العمرية المختلفة من رياض الأطفال وتلاميذ المرحلة الابتدائية بل والاعدادية 2- التحكم الكامل فى البرنامج من حيث التدرج فى السهوله إلى الصعوبة 3- البرنامج مدعم بالموسيقى لجذب الأطفال وتحقيق نوع من السعادة لهم 4- امكانية التعديل فى أصوات البرنامج ووضع أصوات جديدة تجنباً للملل الذى قد يشعر به الطفل من كثرة الإستعمال لتغيير صوت يجب أن يكون الصوت بامتداد wave وبنفس الاسم المرفق مع البرنامج 5- البرنامج يعلم الجمع والطرح والضرب والقسمة كما يعلم الأطفال مبادئ الاكسل مثل : تحديد خلية - ادخال بيان فيها - التنقل بين الأوراق فتح ملف اكسل - غلق ملف اكسل - .........إلخ 6- البرنامج يشجع على التعلم الذاتى واكتشاف الخطأ ومن ثم تصحيحه . 7- لا أدرى هذا عيب أم ميزة وهو أن البرنامج يغلق بصوت لذلك عند غلق الملف نضغط مرتين على علامة الإغلاق x الأولى يعمل عندها صوت النهاية والثانية تغلق الملف وأخيرا أتوجه بالشكر الى كل من ساهم فى هذا العمل 1- الأستاذ الفاضل بن عليه حاجى 2- الأستاذ الفاضل سليم حاصبيا 3- الأستاذ الفاضل أبوتراب 4- الأستاذ الفاضل ابن مصر كما أتوجه بالشكر الى كل أساتذتى فى المنتدى الذين تعلمت منهم الكثيرأمثال الأستاذ ياسر خليل أهدي البرنامج لأطفالكم واخوانكم وأخواتكم وكل طفل عربى والى أبنائى احمد وحسام الدين ورانيا البرنامج على هذا الرابط http://www.mediafire.com/download/1r7e0pp7oz3bke5/تعليم_الرياضيات_بالاكسل_لرياض_الأطفال__والمدارس_الابتدائية.rar أتمنى أن تسعدوا به ويسعد به أولادكم لكم منى كل الاحترام والتقدير ************************

السلام عليكم ورحمة الله أخي الكريم، تجد حلا في الملف المرفق مع بعض الشرح... أخوك بن علية الملف المرفق : بحث عن صورة.rar

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 Me.Caption = "هذه الخاصية لا تعمل فضلا استخدم زر الخروج" MsgBox "هذه الخاصية لا تعمل فضلا استخدم زر الخروج" End Sub السلام عليكم ورحمة الله اخي انا نزلت المرفق الثاني من النت وجربتة اشتغل لانة لايوجد شي تغيير سوى سطرين والكود

السلام عليكم ورحمة الله اخي تفضل تم عمل منع إغلاق الفورم بعلامة الخروج إكس X X منع إغلاق الفورم من علامة.rar

اين المرفق

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

السلام عليكم هل هذا المطلوب؟ 1. نعمل استعلام نحسب فيه عدد الوظائف: 2. وهذه نتيجة الاستعلام: 3. والآن للاعداد الافتراضية: يمكنك ان تدخلين هذا الرقم يدويا في الجدول ، ولكني ادخلتهم بالطريقة التي اعتقد بأنها صحيحة ، وهي العدد المطلوب لكل ادارة: 4. نعمل استعلام نحسب فيه عدد الوظائف الافتراضية: 5. وهذه نتيجة استعلام عدد الوظائف الافتراضية: 6. والآن عندنا استعلامين بهما المعلومات التي نريد ، لذا سنربطهما مع بعض ، لنحصل على النتائج: 7. وهذه النتيجة: 8. الآن للنتائج في الاستعلام: 9. والنتيجة: هل هذا المطلوب؟ جعفر 40.tast66.accdb.zip

لا يوجد اى متابعة نهائيا من اى عضو للرد على طلبى ؟؟؟؟؟؟

أخى صلاح الأكواد فى اليوزرفورم مربوطة بــ CommandButton يتم ادراجه أثناء عمل اليورزفورم والأكواد المستخدمة فى اليوزرفورم هى Option Explicit Private Sub CommandButton1_Click() Call Shell("C:\Program Files\Microsoft Games\Chess\Chess.exe", vbNormalFocus) ActiveWindow.WindowState = xlMaximized End Sub Private Sub CommandButton2_Click() Call Shell("C:\Program Files\Microsoft Games\SpiderSolitaire\SpiderSolitaire.exe", vbNormalFocus) End Sub Private Sub CommandButton3_Click() Call Shell("C:\Program Files\Microsoft Games\Solitaire\Solitaire.exe", vbNormalFocus) End Sub Private Sub CommandButton4_Click() Call Shell("C:\Program Files\Microsoft Games\FreeCell\FreeCell.exe", vbNormalFocus) End Sub Private Sub CommandButton5_Click() Call Shell("C:\Program Files\Microsoft Games\Hearts\Hearts.exe", vbNormalFocus) End Sub Private Sub CommandButton6_Click() Call Shell("C:\Program Files\Microsoft Games\Purble Place\PurblePlace.exe", vbNormalFocus) End Sub Private Sub CommandButton7_Click() Call Shell("C:\Program Files\Microsoft Games\Mahjong\Mahjong.exe", vbNormalFocus) End Sub Private Sub CommandButton8_Click() Call Shell("C:\Program Files\Microsoft Games\Minesweeper\Minesweeper.exe", vbNormalFocus) End Sub Private Sub CommandButton9_Click() Unload Me Application.Quit End Sub أما لو تحب استعماله مثل أى كود عادى بزر هيكون الكود بالشكل ده على سبيل المثال : Sub Chess() Call Shell("C:\Program Files\Microsoft Games\Chess\Chess.exe", vbNormalFocus) ActiveWindow.WindowState = xlMaximized End Sub وأى شىء تحت أمرك تقبل تحياتى

اشكرك يابشمهندس دائما يسعدنى مروركم بارك الله فيك

وعليكم السلام أخي سهلة SeqNumber = Nz(DMax("[SeqNumber]", "ClientExchange", "[DateExchange]=#" & Date & "#")) + 1 جعفر

أخي ابو حبيبة اليك الملف وان شاء الله يكون المطلوب تواريخ.rar

وممكن طريقة أبسط عن طريق تظليل كامل العمود ثم كليك يمين ثم " FORMAT CELLS " ثم " NUMBER " ثم " thousand separator " أى تقوم بالتعليم على المربع ثم إختار عدد الفواصل كما تريد من " DECIMAL PLACE" وأختر الرقم الذى تريدة " 3-4-5 " تقبل تحياتى

ظلل أخى العمود الذى يحتوى على الأرقام التى تريد تغييرها ثم " كليك يمين ثم " FORMAT CELL " ثم " CUSTOM " ثم فى مستطيل "TYPE " إكتب هذه #,##0.######## أو هذه #,##0.### أو هذه #,##0.000 وهذا بالطبع يتوقف على العلامة العشرية تقبل تحياتى

السلام عليكم الاخ الكريم / A.El Sheikh بارك الله فيك وبعد اذن اخي الحبيب / طلعت محمد حسن ... جزاه الله خيرا شاهد اخي المرفق الكريم ان شاء الله به طلبك ... علي حسب فهمي لطلبك تقبل خالص تحياتي items-SAMA.rar

سلام شباب ايش رايكم ، حل بدون كود طريقتين ، اختر اللي يعجبك 1. في النموذج ، للحقل A1 فقط: 2. في الجدول ، للحقل A2 فقط: 3. التجربة (انقر على الصورة حتى ترى تتحرك): 4. والنتيجة في الجدول: جعفر 38.Small_Letters.mdb.zip

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

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

الأخ الفاضل أبا اسماعيل .. جرب الملف المرفق لعله يكون المطلوب Userform Keyboard.rar

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

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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

الحلقة الثالثة طبعا واحد هيقولي ارحم نفسك .. كفاية كدا النهاردة ..!! أقولك ايه النهاردة أجازة وبعدين أنا عايز أخلص الشوية اللي دايما بنطول فيهم عشان نبدأ نتعلم جديد .. مش كل اما دورة تبدأ تلاقي الموضوع يبقا زي الفل وياخد وقته في البدايات والأساسيات وفجأة الدورة تتقطع .. هنتكلم شوية في الحلقة دي عن تسجيل الماكرو .. واحد رفع ايده وبيقول أيوا أنا متمكن فيها (أقوله كتر خيرك !) بس أنا مش عايزك متمكن .. إحنا بس هنستفيد من حكاية التسجيل دي في أمور معينة .. واحد تاني هيرفع ايده ويقول طيب أنا أقدر أعمل الكود بالشكل اللي أنا عايزة من غير ما يكون عندي فكرة بالأكواد ووجع الدماغ هقوله إنت صح وغلط .. صح من جهة وغلط من جهة .. بس مش هناقش الموضوع ده المهم نبدأ نشوف ايه حكاية التسجيل دي.. قبل ما نبدأ نتعلم إزاي نخلي نافذة الإكسيل ونافذة محرر الأكواد جبنا إلى جنب خلي عينك ع الاتنين ..!! نفتح الاتنين (بلاش الجمعه عشان أجازة الموظفين) نفتح النافذتين وبعدين نفعل نافذة الإكسيل ونضغط على علامة الويندوز اللي ف لوحة المفاتيح اللي ما بين CTRL و ALT في الناحية الشمال .. لو ملقتهاش يبقا إنت مرجعتش لوحة المفاتيح اللي قلت لك رجعها أو رجعتها بس نصب عليك تاني !! بنضغط على زر الويندوز + سهم شمال مثلا .. ونروح نفعل النافذة التانية ونضغط على زر الويندوز + سهم يمين . بحيث تكون النافذتين جنب بعض عشان نتأمل في جمالهم وهما جنب بعض كدا زي عريس وعروسة .. في محرر الأكواد : هندرج موديول جديد أو مش شرط .. وفي الإكسيل هنروح للتبويب Developer طبعا خلاص عرفنا إزاي نوصله ونضغط على Record Macro قبل ما نضغط منستعجلش نبص الأول على الشكل المرفق مع الأمر هنلاقي علامة دايرة حمرا ولو ركزنا في شريط الحالة اللي في أسفل تطبيق الإكسيل هنلاقي نفس العلامة .. معنى كدا إن تسجيل الماكرو متاح في التبويب وفي شريط الحالة (أضف إلى معلوماتك) لما نضغط عليه هنلاقي نافذة طلعت لنا بنسجل فيها اسم الماكرو واتعرفنا شروط الاسم ..وممكن نعمله اختصار وأنا مش بحب الحركة دي لأن الإكسيل ملياااااااااان اختصارات فممكن يحصل تعارض ما بين اختصارات الإكسيل والاختصار اللي سيادتك هتعمله .. إحنا شوية وهنتعلم إزاي نربط الكود بزر لتشغيله من داخل الإكسيل أو ورقة العمل أفضل. وبعدين بيقولك هتخزنه فين وأنا أفضل تتركه زي ما هو This Workbook لو فتحت القايمة دي هتلاقي فيه مصنف باسم Personal.XLSB ودا بيكون مكانه في البارتشن C: وبيكون مخفي وممكن تظهره عن طريق التبويب View ثم Unhide هتلاقي اسم المصنف موجود ممكن تظهره ..أنا بقا لا أحب أظهره ولا أخفيه أنا بحذفه عشان بيضايقني بظهوره في محرر الأكواد في نافذة المشروع .. دا مجرد ارتياح شخصي وطبعا إنت ليك كامل الحرية في حذفه أو عدم حذفه عشان ممكن شركة مايكروسوفت تزعل مني عموما المصنف دا لزمته ايه .. المصنف معمول إنك تخزن فيه الأكواد الخاصة بك عشان تقدر تنفذها في أي مصنف مفتوح بدون إدراج الكود مرة أخرى (بس يا سلام بقا لو أكوادك كلها اللي بتستعملها محفوظة فيه ومعندكش منها نسخة تانية وفجأة الكهربا تقطع ودا مبيحصلش كتير في مصر والحمد لله تلاقي الويندوز سقط والحمد لله أكوادك في خبر كان ) عموما هي ميزة بس أنا شايفها مش ميزة .. بالنسبة لمسار المصنف دا بيكون في : C:\Users\Administrator\AppData\Roaming\Microsoft\Excel طبعا Administrator دا اسم المستخدم بيختلف من جهاز للتاني .. روح للمسار ده هتلاقي المصنف احذفه وريح بالك (ليك مطلق الحرية) أنا طبعا شرحته بالتفصيل أهو رغم إني مش بستخدمه بس عشان محدش يقول إني قصرت ... آخر حاجة وصف الكود واللي هتكتبه هنا هيظهر لك على شكل تعليق .. بصراحة دي بقا رغم إن فيه كتير بيطنشها بس أنا شايف إنها مهمة .مهم جدا توثق أكوادك بتعليقات عشان تقدر بعد فترة لو حبيت تعدل على الأكواد تكون الأمور واضحة بالنسبة لك .. هتقولي أنا اللي كاتب الكود وحافظ كل كبيرة وصغيرة فيه ... يتهيأ لك والله أنا ساعات أندمج في كتابة كود بشكل معين وبعد فترة أحتاج للكود تاني أقوم أروح للكود الاقي نفسي تايه رغم إني أنا اللي كاتبه ومطبقه قبل كدا .. التوثيق مهم صدقوني .. المهم بيظهر التعليق في الكود بلون أخضر .. طيب إزاي أعمل تعليق طبعا بيكون بالضغط على ' طبعا اللي نظرهم ضعيف مشافوش .. لما يكون اتجاه الكتابة إنجليزي نضغط حرف الطاء اللي بعد العلامة دي بيتم تجاهله تماما يعني متقلقش مش هيتنفذ الأمر لو كان قبله علامة ' دي .. جمد قلبك واضغط أوك هتبدأ عملية التسجيل (وطبعا مننساش المايك والكاميرا يكونوا راكبين في الجهاز وكله تمام بس المشكلة إننا مش محتاجينهم اخلعهم تاني يا مراد بلاش وجع قلب) اضغط أوك ولاحظ علامة التسجيل اللي قلنا عليها من بدري هنلاقيها اتغيرت لشكل مربع صغير لونه أزرق اللي هو دليل إن التسجيل شغال .. العلامة موجودة زي ما قلنا في التبويب وفي شريط الحالة كمان (بيل جيتس مش حارمنا من حاجة أبداً) طيب واحد هيقولي خلص ابدأ تسجيل عشان الوقت هيتحسب في التسجيل هقوله متقلقش التسجيل بيكون لكل حركة إنت بتعملها ملهاش علاقة بالوقت ... طيب نعمل ايه ؟ فكروا معايا أنا بحاول الاقي فكرة .. قول إنت يا جمال .. جمال رد وقال : حدد الخلية اللي فيها اسمي وخلي المحاذاة لليمين .. الخلية اللي فيها اسم جمال هي A3 مثلا ننقر عليها بزر الماوس الأيسر (تعليم تقليدي) يا عم حدد الخلية بس خلاص وبعدين من التبويب Home نعمل محاذاة لليمين (اللي ميعرفش يسأل اللي جنبه) نسيت أقولكم على أهم حاجة (منك لله يا جمال نسيتني كنت عايز أقول ايه) .. عنينا وإحنا نسجل على محرر الأكواد (إنتو نسيتو إن النافذتين مفتوحتين ولا ايه ) عشان نشوف سعادته شغال إزاي .. نبدأ تاني نحدد الخلية A3 واحد هيقولي مفيش حاجة حصلت هقولك عشان إنت واقف في المكان الغلط .. لما بنيجي نسجل الماكرو بيتم إضافة موديول جديد يعني ارجع تاني خطوة لورا واضغط على موديول 2 اللي تم إدراجه من غير ما تاخد بالك.. دبل كليك عليه عشان تتابع من الأول .. معلش يا جماعة أنا مركز على حكاية المتابعة دي عشان تقدروا تستفيدوا من التسجيل نحدد الخلية A3 هوب اقف عندك Range("A3").Select السطر دا اتكتب لوحده يا سلام سلام دا أحلى كلام ولا في الأحلام .. بيكتب لوحده يا عمر .!! طيب نحدد خلية تانية هنلاقي السطر اللي فات اتغير وأصبح A4 ايه الحكاية هي الأسطر مش بتفضل ثابته .. أقولك آه بتفضل ثابتة لكن الشغل بيكون على خلايا محددة يعني إنت حددت A3 وبعد شوية غيرت رأيك وحددت A4 هتلاقي محرر الأكواد غير رأيه عشان مينفعش يشتغل على اتنين في نفس الوقت إلا إذا حددتهم مع بعض نروح للتبوبيب Home وركز عينك على محرر الأكواد هتلاقي With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With كل دا تم إضافته لما دوست على محاذاة لليمين .. طيب جرب بقا إنت اعمل شوية تنسيقات هتلاقي الدنيا بقت هيصة .. طبعا دا كله ميلزمناش أقصد الأسطر الكتير دي كلها أنا يهمني المفيد وبس ..يعني ممكن أختصر الكود اللي فات أقولك آه وبسطر واحد بس مش بدا كله بالشكل ده Range("A3").HorizontalAlignment = xlRight شفتوا بقا إني أشطر من التسجيل .. طبعا دا اللي يأكد كلامي في الأول إنه مينفعش نستخدم التسجيل بشكل دائم وبردو منستغناش عنه ..طيب ايه الفايدة إننا بندور على اللي يهمنا ونبدأ نكتبه بطريقتنا .. طبعا اتعلمنا إزاي نشير إلى الكائن Range بنفتح بعديه قوس وعلامة تنصيص ومننساش بردو نفس القفلة بس علامة التنصيص الأول وقفلة القوس ..معلش أصل الجو برد شوية عليه.. بعد كدا بنتبعه بنقطة ونكتب الخاصية Property طبعا خلاص استوعبتوها كويس HorizontalAlignment معناها محاذاة أفقية وطبعا قلنا إن الخاصية بيتحدد ليها قيمة وهنا القيم معروفة المحاذاة بتكون إما لليمين (ربنا يجعلنا من أهل اليمين) XlRight وإما توسيط وإما محاذا لليسار XlCenter (واحد متوقع إني هقول ربنا لا يجعلنا من أهل الشمال .. بس أنا هكسفه ومش هقولها) XlLeft >> أظن كدا بقا الكود واضح .. يعني التسجيل اللي اتعمل في 12 سطر (أراهن فيه ناس هتعد ورايا) عملناه في سطر واحد ..بس أنا استفدت ايه إني أقدر أطلع الكلمات اللي عايزاها وأشكلها زي ما أنا عايز .. يعني خلاصة الكلام في الحلقة دي إحنا اشتغلنا خبازين (خدنا العجينة اللي هي الماكرو المسجل .. وشكلناها بمهارة عشان تقدر تطلع بالشكل اللي إحنا عايزينه ) وإلى لقاء مع رغي جديد .. الواجبات : قم بتسجيل ماكرو حدد فيه النطاق من A1:B10 وخلي نوع الخط أي نوع ترغبه وحجم الخط 14 ولون الخط أزرق بلاش الأحمر عشان واحد هيقولي ايه حكايتك مع اللون الأحمر وخلي عريض Bold يعني وخلي المحاذاة الأفقية توسيط .. وطبعا اللي هيجيب الواجب تسجيل ماكرو مش هقبله منه .. أنا عايزك تختصر الأسطر الكتير اللي هتظهرلك في أسطر قليلة ... في رعاية الله كان معكم أخوكم أبو البراء من فرن أوفيسنا (يلا ورورني مين هياكل العيش طازة)

السلام عليكم ورحمة الله وبركاته أخي عبد الله لقد قمت إدراج موديل kh_ChngPwd إلى ملف خاص بي لكنه لم يعمل أرجو منك أن تطلع على الملف وتضع لي الكود إن تكرمت مع الشرح كلمة المرور:2012 اسم المستخدم:dah أخوك محمد واجهة ملف.rar

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