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

اخى الكريم المتغيرات : هي عبارة عن حيز من ذاكرة الحاسوب يخزن فيها قيمة معينة كأن تكون رقما أو نصا أو تاريخا أو غيرها مثال عندما نقول أن X = 10 فهذا يعني أن X هو عنوان في ذاكرة الحاسوب يحوي متغير نوعه رقم وقيمته 10 ويتم التصريح عن المتغيرات في VBA باستخدام الإيعاز dim وفق الصيغة التالية : dim Variable [as Type] إن العبارات المكتوبة بين القوسين الكبيرين [ ] هي عبارات اختيارية ولذلك أينما تجد مثل هذه القواس في شرح الكود فاعتبر أن ما بينهما هو اختياري ولكن ماذا يعني اختياري ، dim x as integer dim y as string dim z as variant dim w في المثال السابق صرحنا في السطر الأول عن متغير اسمه X ونوعه عدد صحيح وفي السطر الثاني صرحنا المتغير y ونوعه حرفي وفي السطر الثالث صرحنا عن المتغير z ونوعه مختلف أي يقبل مختلف أنواع القيم وفي السطر الرابع صرحنا عن المتغير w ولكن ما نوعه في الحقيقة كل متغير يصرح عنه دون الإعلان عن نوعه يعتبر مختلف Variant

بسم الله الرحمن الرحيم ............ والصلاة والسلام على رسولنا الكريم ............ أحببت أن أقدم هدية لأحبابي أعضاء وزوار منتدى أوفيسنا ملتقى مبرمجي الأوفيس العرب المدرسة الأولى التي تعلمت منها اساسيات برمجة الأوفيس وخاصة الإكسل فتوكلت على الله وقمت بعمل أبسط كود لتخفيض أمان الأكسس برمجياً لجميع إصدارات الأوفيس حتى التي لم تصدر منها بعد **************** ولقد تعلمت في هذا الصرح أن المبرمج الحق الذي يؤدي ما هو مطلوب بأقل كود ممكن بل قل بأقل عدد لحروف الكود إن أمكن //////////////////////// وكنت قد أصدرت قبل ذلك ملفات كثيرة صغيرة الحجم جداً وتؤدي مهام كبيرة جداً سميت هذه السلسلة ما خف وزنه وغلا ثمنه كان منها على سبيل المثال القرآن بالصوت والصورة إرسال البريد من الأكسس مباشرة أصغر كود لقراءة وتغيير دقة الشاشة وغيرها الكثير +++++++++++++++++ وأخيرا وليس بآخر أتقدم بالشكر لكل من ساهم في حل هذه المشكلة على كل ما قدموه في هذا المجال //////////////////////////////////////// وبناء على النقاشات الممتعة للإخوة الذين ظهرت معهم رسائل خطأ في بعض الأحيان تم اختصار الكود أكثر مما هو عليه ليصبح سطرا واحداً CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" ........... ويوجد مرفق جديد به الملف بعد اختصار الكود وجعله سطرا واحدا ولا تنسوا أخاكم محمد صالح من صالح دعائكم MasAcessSecurity_mdb.rar MasAcessSecurity2.rar

السلام عليكم ورحمه الله وبركاته بسم الله الرحمن الرحيم وبه نستعين على كل شىء وقبل كل شىء اللهم صلى على سيدنا محمد صلى الله عليه وسلم الحمد لله الذى تتم به الصالحات ,,,, برنامج تحليل المصروفات ( اداريه - بيع وتوزيع - تشغيل ) صدقه جاريه على روح والدتى رحمها الله وهديه للمنتدى !! اليوم اقدم لكم برنامج تحليل المصروفات الذى يغى كل محاسب وخاصه من الجيل القديم عن الدفتر الـ 70000 خانه هههههههههههه الـ 36 خانه عمل ممل ان تكتب بالدفتر فكان من وجه نظرى هذا العمل واعلم انه لم يعد يعمل احد بالدفاتر منذ فتره فقد انقرضت مع ظهور الانظمه المحاسبيه التى لا حصر لها واسألكم الفاتحه لوالدتى وولدى رحمهما الله اللذان ستظل روحى معلقه بهما دائما حتى يلحقنى بهما الله فى الجنه وجميع اخواننا المسلمين وانتظر ارائكم واستفساراتكم تلميذكم واخيكم // محمود الاسيوطى ( ابو اياد ) برنامج تحليل المصروفات اوفيسنا.XLSB

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

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

السلام عليكم و رحمة الله و بركاته الي كل الاخوه بالمنتدى علينا جميعاً ان نقوم باستبدال اسماء المستخدمين الخاصه بنا من الانجليزيه الي العربيه والله المستعان

اليك الحل كما يجب ان يكون الرقم القومي.rar

صيغ الصور بامتداد : emf wmf jpg gif bmp tif png عند العرض تظهر صورة مخول واحد فقط في المعاينة اما الاخر يطه في نافذة وحدة لانه مخول ثاني لك فيديو : khez1.rar اما المعاينة موجودة يمكن تزويدك بخيارات للطابعة

ههههههههههههه جمعنا الله فى الخير دائما اخى ابا عبد الله انا ايضا استبدلته باخر لا حرمنا الله منكم

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

1-حدد الخلايا المطلوب التنسيق فيها 2 اضغط ALT+D+L 3- من خانة Allow اختر Custom 4- في خانة Formula اكتب (او انسخ)هذه المعادلة: =AND(ISNUMBER(A1),LEN(A1)=14,COUNTIF($A$1:A1,A1)=1,A1>0) 5- اضغط على OK 6- بالتوفيق (هذا اذا كان العامود المطلوب العمل فيه هو A) يمكنك اختيار النطاق الذي تريده

اخي الوجه الحسن ! هذا الكود المختصرالذي ذكرته سابقا !! وفي حدث قبل التحديث للنموذج ! Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table2", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("غير موجود") If DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And (Me.NewRecord Or alktah.Value <> alktah.OldValue) Then Cancel = MsgBox("مكرر") End Sub وهذه فكرة اخرى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table2", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("غير موجود") If DLookup("[id]", "table1", "rkm_alktah=form!rkm_alktah") <> ID Then Cancel = MsgBox("مكرر") End Sub ملاحظة : ان تلك الاكواد البسيطة هي درس كذلك في كيفية الخروج من الفخ او مصيدة الحدث قبل التحديث للنموذج لكشف المكرر ! حيث ان الفخ هو عبارة عن كيف تتجاهل قيمة السجل الحالي من التكرار ! تحياتي

استاذنا الفاضل ياسر مريت على منتديات كثير ولم اجد مثل منتدى اوفستا من ادب وزوق اعضاؤه ومشرفيه لسانى يعجز عن كلمات المديح

وليش مايكون ياسيدي الحقل الوحيد بالمرفق لديك يصير 3حقول الاول اسم المادة فيزياء الثاني الرقم 04 الثالث الشعبة 14 هذا يكون اسهل للترتيب والتعديل.. مجرد اقتراح

If Me.a.Value = Me.b.Value Then DoCmd.GoToRecord , , acNewRec Else MsgBox "عفوا القيد غير متساوى" Me.b.SetFocus End If اتمنى ان يكون هو المطلوب ta2015.rar

معلومة مهمة لتخفيف حجم الملف طبعاً كلنا يعرف ان اوفيس 2003 يتكون من 65500 صف تقريبا ً و 256 عمود و افيس 2007 تقريباً مليون صف و 16000 عمود لاحظت عند تحديد جميع االصفوف مثلا من 1 : 65500 فى 2003 يزداد حجم الملف بطريقة غير عادية و بالتالى من المهم عند العمل تحديد النطاق المطلوب العمل عليه فقط من صفوف و اعمدة و كذلك التنسيق الشرطى يضاعف حجم الملف بشكل كبير عند التطبيق على جميع الخلايا و الافضل تطبيق التنسيق الشرطى على خلايا محددة

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

اليك هذا النموذج الذي يمكنك البناء عليه اختر القيم من الخلايا C2 and d2 البحث بشروط.rar

هو خطأ مطبعي في أسماء الجداول ! نسخت ولصقت بدون ما اغير الكود ! سهرانيين واسفين ! والحقيقة هناك حل مختصر ولكن حبيت ازيد الحل ب elseif عاجبني شكلها في الكود !! ولا اعلم المصدر الذي به انه ال elseif لا تصلح مع شرطين من جدولين !! حاولت افهم ما قدرت !! Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table2", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("not found") ElseIf DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And Me.NewRecord Then Cancel = MsgBox("duplicate") ElseIf DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And alktah.Value <> alktah.OldValue Then Cancel = MsgBox("duplicate") End If End Sub بالتوفيق

علشان خاطر الاخ مارد !! اللي لحد الان مش مبين حار والا بارد !! هذا الكود لماطلبت ولاحظ انه قبل التحديث للنموذج الفرعي !! Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("not found") Exit Sub ElseIf DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And Me.NewRecord Then Cancel = MsgBox("duplicate") End If End Sub الاخ مارد : اذا تريد شرح الكود الذي رفعته مستعدين لافادتك !! تحياتي

جهد مشكور .. و هو شيت جميل الشكل ؛ لكنه ينقصه أن يتم تقييد الخلايا حتى لا تقبل قيمة أكبر من المسموح ...

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

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

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

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

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

السلام عليكم بعد إذن الاستاذ رجب هذا اختصار للكود واضافة نص الرسالة باللغة الانجليزية Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A" & [A1000].End(xlUp).Row)) Is Nothing Then If Application.CountIf(Range("A2:A" & [A1000].End(xlUp).Row), Target) > 1 Then If MsgBox("Same Value Available in Cell" & Chr(10) & arr & Chr(10) & "Repeat Same Value again", vbYesNo, "Repeated Value") = vbYes Then Exit Sub Target = "": Target.Select: Exit Sub End If End If End Sub

تفضل اخي الكريم Stopsavecode3.rar

الاخ الفاضل "محمد صالح" لاحظ الرابط قد يفيدنا ربط الموضوعين مع بعض ملف تنفيذي