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

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

أضف هذا الكود Private Sub Text0_AfterUpdate() Me.Text2.Visible = Me.Text0 <> 5 End Sub و لكن قبل ذلك اشطب قيمة المربع 0 من مربع الخصائص لا تجعله = 5 اترك قيمته فارغة

بعد اذن اخي ياسر حل اخر للموضوع تكرار اسم في عدة اعمدة.rar

قريبا ان شاء الله مع الشرح = = = = = = = ‏الثلاثاء‏ 21‏/11‏/1432هـ الموافق ‏18‏/10‏/2011م نظام المستوعات و متابعة المخزون الفكرة من اعداد اخي اسامة العضو في هذا المنتدى هو نظام اكسل يهدف لحساب حركة المخزون لعدد 4 عمليات وهي (استلام + صرف + ارجاع + شطب) المميزات و الخصائص 1. يمكن تسجيل عدة مستخدمين للملف تصل الى 11 مستخدم 2. يمكن تسجيل اضناف او مواد حتى 9000 صنف او مادة 3. قائمة المواد المخزنة مع ملخص بياناتها 4. كل الحركات المسجلة للمواد 5. نموذج خاص لإضافة أي مواد جديدة 6. نموذج للبحث في قائمة المواد 7. البحث خلال فترة محددة عن أي مادة اسماء المستخدمين وكلمات المرور الحالية هي: Admin = 123 موظف 2 = 22 Super_Stores.rar

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط 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 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

السلام عليكم اخواني في المنتدى كما هو موضح من العنوان اليكم هذه الائحة المنسدلة العجيبة LIST FROM 3 COLUMNS.rar

السلام عليكم المرفق يوضح كتابة تاريخ اليوم - الوقت الحالى فى خلية بمجرد الكتابه فى اخرى كتابة التاريخ والوقت فى خلية بمجرد الكتابة فى أخرى.rar

جرب هذا أتمني أن يكون مطلوبك أو أن يفي بالغرض 77-1.rar

من تخطيط الصفحة Page Layout نختار طباعة العناوين Print titles نقف على الصفوف المكررة في الاعلى rows repeated at top نحدد الصفين الاول والثانى ونضغط موافق تحياتى

السلام عليكم Range("b9: c9").Value. ورقه301 = .Range("f9: g9").Value. ورقه301 المعنى أنسخ القيم الموجودة في الخليتين b9 و c9 إلى الخليتين f9 و g9 من نفس الورقة تحياتي

السلام عليكم الأخ الحبيب والأستاذ الفاضل ياسر خليل جزاك الله خيرا

السلام عليكم أضفت ورقة ثالثة وعملت فيها كل ما طلبته أدخل على الورقة الثالثة وستجد جدولين الجدول الأول فيه خليتين باللون الأصفر , أختر رقم الاختبار والتقدير والجدول الثاني كذلك اضغط ترحيل ولاحظ الأسماء ملاحظة : الاختبار رقم 6 يعني التقدير النهائي العام تفضل ‫‫تحليل الاختبارات#1.rar

الأخ الحبيب جرب هذا المرقق Disable X Close.rar

1 - افتح الفيجوال بيزك بتاع المرفق انظر فى اسماء الشيتات هتلاقى كلمة thisworkbook بين اسماء الشيتات دبل كليك عليه انسخ المديول اللى فيه افتح الملف بتاعك وافتح الفيجوال بيزك انظر فى اسماء الشيتات هتلاقى كلمة thisworkbook بين اسماء الشيتات دبل كليك عليه و الصق المديول . 2 - - افتح الفيجوال بيزك بتاع المرفق انظر تحت اسماء الشيتات هتلاقى كلمة userform باسم dahy دبل كليك عليه هتلاقيه فتح قدامك اعمله تصدير من قائمة file من الخيار export واعمله حفظ فى اى مسار تريد ثم روح على الملف بتاعك ومن قائمة file اختر import ودور على المسار اللى حفظت فيه ال userform علم عليه واختر open هتلاقى ال userform فى ملفك . دبل كليك عليه هيظهر قدامك الفورم اللى ظهر دبل كليك عليه هيظهر الكود بتاعها وهتلاقى فيه كلمة سر الدخول الى الملف ( يمكنك تعديلها ) بالنسبه للكلمات التى تظهر فى الفورم : عباره عن صوره معموله ببرنامج الرسام ( خلفيه لها لون معين واكتب عليها ما تريد ) اجعل طولها 4 سم وارتفاعها 1سم واحفظها فى مكان معين فى الفيجوال بيسك اضغط على الصورة القديمه واستبدلها بالجديده بتاعتك واحفظ على كده . أرجو أن أكون وفيت فى الشرح ....................تقبل تحياتى

شكرا لك أخ على أنا أيضا تعلمت ذلك الفرق فى التوقيت فقط وفقك الله

الحل اخي يعتمد على الاسم دعواتك لمن أبدعه ، وليس لي ، إنه من مقتنياتي File N Foler.rar

جميل جدا استاذ عبدالفتاح كيرة عملية اختصارك للكود انا كتبته بالطريقة التالية Private Sub Text0_AfterUpdate() If Me.Text0 = 5 Then Me.Text2.Visible = False Else Me.Text2.Visible = True End If End Sub وبالتالي تعلمت حاجة جديدة من استاذنا الفاضل وهي كيفية اختصار امر مثل ذلك لك جزيل الشكر

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

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

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

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

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

غالبا المشكلة تحدث في الصيغة mde لاني جربت احد المرات في جهاز العميل الذي يشتمل على 2007 حين امتنع عن الفتح حيث حولت الملف الى mde داخل جهازه .. وعمل ومرة اخرى سألت عميلا آخر عن الاوفيس داخل جهازه فأفادني انه 2007 فقمت بتحويل القاعدة الى mde من جهاز آخر عندي يشتمل على 2007 ومشي الحال

أخى الفاضل أ.عادل اسف بجد لم الاحظ انك اجريت تعديل على المشاركة الأخيرة وطلبت ان تكون Option Buttons بدلا من ال Check Boxes الا بعد رسالتك تفضل مرفق ملف به المطلوب تحياتي List_Options.rar

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

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

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

استخدم الجملة التالية DoCmd.SetWarnings False في البداية للكود ثم في نهاية الكود DoCmd.SetWarnings True

جرب هذا الملف Count Distinct.rar

ملف به كل مستندات الكنترول مستندات الكنترول 2014.rar

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

برنامج صغير يحل مشكلة البحث عن "الكلمة" في ملفاتك الوورد مهما كان عددها منقول السلام عليكم ورحمة الله وبركاته من جديد وعودة للأحباب ببرنامج صغير يحل مشكلة البحث عن كلمة أو كلمات في ملفات الوورد التي عندك بالجهاز مهما كان عددها كلنا نعاني من هذه المشكلة: أتذكر كلمة - أو جملة معينة - في ملف وورد ولكنني لا أتذكر أي ملف هو هذا الملف هل أفتح كل الملفات وأبحث فيها؟ ماذا أفعل؟ أخبروني مفيش حل معقول أبدأ الحل اليوم بإذن الله تعالى في برنامج صغير جدًا تجدونه بالمرفقات - كالعادة - يبحث لنا في أي كمية من ملفات الوورد وبمنتهى الدقة ليس هذا فقط، بل بإمكانه أن يفتح لك الملف الذي به الكلمة المختارة، بل ويقوم بتلوين الكلمة أو الجملة وفيه غير هذا من الإمكانيات التي وهبها الله للإنسان وسخَّرها له فقط تابع الصور وقم بالتحميل واستبدال الكراك كما هو مبين بالصور لم أحب أن أضع لكم صور التسطيب لعدم احتوائه على الجديد، فالتسطيب يكون بالطريقة العادية دون اختراعات مني بعد التسطيب لا تفتح البرنامج، بل قم بالذهاب إلى مكان التسطيب واستبدل الكراك ووافق على الاستبدال ثم قبل البحث عن المراد قم باختيار أية لغة عربية من قائمة الفونت التحميل في المرفقات 32exam-setup.rar