حسام نور

euro_999 .. أشكرك وأتمنى أن يكون البرنامج قد نال رضاكم . Wise .. لقد جربت جميع الروابط وتعمل بشكل سليم .. إذا لم تعمل معك أضغط بزر الماوس الأيمن على رابط التحميل وأختر Save Target As وشكراً

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

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

سؤالك واضح ... والرد ببساطه شديده سنفترض أن الصفحه الأم أسمها ( sheet1 ) وأنت تريد طباعة ( sheet2 ) ثم العوده الي الصفحه الأم مرة أخرى سيكون هذا هو الكود .. وللتوضيح مرفق ملف Sub زر1_نقر() Sheets("sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("sheet1").Select Range("D3:G4").Select End Sub print.zip

- أخي noursh الرابط يعمل بشكل صحيح وهناك طريقه أخرى وهي الضغط بزر الماوس الأيمن ثم أختار Save Target As وإذا لم يعمل معك أبلغني بأيميلك وسأذودك بالبرنامج - أخي Anwar خالص شكري لكلماتكم وتشجيعكم المستمر .. ولقد شاهدت سؤالك وسأرد عليه حال توفر معلومات عن ذلك وشكراً

- أخجلتم تواضعنا بهذه الكلمات الطيبه أخي ( أبن سيناء ) .. والحقيقه أن ما أضعه بين أيديكم هو خلاصة ما تعلمته من هذا المنتدى الجميل ومن أستاذي ( محمد طاهر ) وبالتالي فأقل رد للجميل هو ما أقدمه لكم الآن . - ويعلم لله أنني أفكر يومياً في الجديد وأتمنى أن يعود عليكم بالنفع وتكفيني دعواتكم وكلماتكم الطيبه وفقنا الله واياكم

- العفو أخي الفاضل وأتمنى أن يحقق الغرض .

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

- في البدايه أرجو أن يكون البرنامج الخاص بتسجيل المصروفات المنزليه وحصر المصروف قد نال رضاكم وحقق الفائده - والآن أضع بين أيديكم برنامج صغير ومتواضع لمتابعة حساباتك في البنوك ( شهرياً ) وهناك العديد من الحسابات بداخله - بعد الأنتهاء من الشهر الحالي يمكنك مسح كامل البيانات الموجوده بالبرنامج وسيقوم بالمسح وكذلك سيقوم بما هو أهم حيث سيحتفظ بالرصيد في نهاية الشهر ويقوم بتسجيله في بداية الشهر الجديد ( كرصيد بداية الشهر ) - ستحتاج لتزويد البرنامج بكلمة السر للدخول لصفحة المسح وذلك للمزيد من التأكيد والكلمه هي ( بسم الله ) - أي أضافات أو تعديل حسب ما يتناسب مع متطلباتكم فنحن في خدمتكم - لمشاهدة الماكروهات والـ Modules الموجوده بالبرنامج أضغط على Alt+F11 - البرنامج مضغوط بالـ Winzip وحجمه ( 91 كيلو ) وبعد فك الضغط حجمه (260 كيلو ) أضغط هنا لتحميل البرنامج - أي مساعده أو أستفسار لا تترددوا مع الشكر

مثال جميل أخي أبومؤنس .. نشكرك

- شكراً الأستاذ المتمكن أبومؤنس على هذه الفكره الجميله .. الحقيقه كل ردودك وموضوعاتك قيمه ونستفيد منها جميعا

- وصلني الملف في رساله وسأطلع عليه وأي استفسار سنكون على التواصل

hoodahooda بالنسبه لوضع برنامجك هنا فالموضوع غير متاح للجميع حسب قوانين المنتدى وبالنسبه للمساعده في برنامجك فأنا حاضر وفي خدمتكم دائماً . وكل ما عليك هو أن ترسل لي فكرة البرنامج المطلوب وشرح تفصيلي لكل خطواته على الأيميل الخاص بي HOSAMNOOR@YAHOO.COM وخطوه بخطوه لنصل للبرنامج كما يرضيكم بإذن الله وشكراً

- بناءً على طلب الأخوه الكرام أليكم نسخه تستطيعون من خلالها الأطلاع على جميع الماكروهات تفضلوا بالضغط هنا لتحميل النسخه لمشاهدة الماكروهات وبعد التحميل وفتح البرنامج أضغط على ALT+F11 وستشاهد الماكروهات وكذلك الـ Modules - ومن سئل على البرنامج الذي تم به تصمصم الأزرار في البرنامج فأليكم رابط تحميل مباشر للبرنامج تفضل هنا تحميل برنامج تصميم الأزرار وبالطبع برنامج الأزرار غير مجاني ولذلك ستجدون السيريال الخاص به في المرفقات وأشكر تواصلكم والله الموفق serial_1_.txt

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

- أخي bagher الصفحه موجوده والتحميل متاح للجميع .. ويمكنك الضغط على الرابط بزر الماوس الأيمن وأختار Save Target As وأن شاء الله سيتم التحميل . - أخي Anwar أشكر كلماتك الطيبه وسأضع نسخه أخرى من البرنامج يمكن من خلالها مشاهدة جميع الماكروهات من خلال الضغط على Alt+ F11 . وبالنسبه للأزرار فقمت بتصميمها عبر برنامج سأضعط لك أسمه ورابط تحميله - أخي أبوتركي ... أبشر ومشكورين

السلام عليكم ورحمة الله وبركاته لهذا المنتدى أفضال كثيره علي شخصياً في تعلم الأمور الكثيره في الأكسيل وأخص بالذكر الأستاذ القدير ( محمد طاهر ) والذي لا يتردد في تقديم المساعده واليوم أقدم لكم هديه متواضعه بها كل ما تعلمته من المنتدى الجميل وأتمنى أن تنال رضاكم وتحقق الفائده . * صمم البرنامج على Microsoft Excel XP * إذا كان خيار الأمان الخاص بالماكرو لديك في الوضع متوسط أو مرتفع فستظهر لك رساله تسئلك قبل التشغيل هل تريد ( تمكين وحدات الماكرو ) أم لا ..؟ بالطبع أختر ( تمكين وحدات ماكرو ) وهذا لكي يتمكن البرنامج من تنفيذ الأوامر المطلوبه منه * إذا أردت أن لا تظهر هذه الرساله لديك مرة أخرى ويتم التشغيل مباشرة أذهب الي ( أدوات - ماكرو - أمان ) وأختار ( منخفض ) فلا تظهر لك الرساله من جديد . * البرنامج يتم التسجيل فيه بشكل شهري وعليك فقط أختيار الشهر والسنه من صفحة الأصناف وسوف تظهر تلقائياً بباقي الصفحات * هناك خيار لمسح كافة البيانات بشكل سهل وبسيط ولكن للمزيد من التأكيد تم وضع صفحه مخصصه لذلك تحتاج فيها لأدخال كلمة السر ثم الضغط على( نعم ) للمسح أو( لا ) للتراجع * كلمة السر للمسح هي ( بسم الله ) * يمكنك أدخال مبلغ ( كحد صرف ) شهري وسوف يقوم البرنامج بحساب الفرق بين المبلغ وبين المصروف ويظهر لك النتيجه في صفحة مستقله * هناك صفحه يظهر بها المصروف الكلي ومصروف كل بند على حده ويمكنك البحث عن الصنف المراد بطريقتين ( الأولى ) بالأسم ... والثانيه ( برقم الصنف ) * لا تقلق من مسح البيانات فالبرنامج محمي لكي لا تتضررالمعادلات والأوامر الهامه به * حجم البرنامج مضغوط ( 447 كيلو بايت ) بعد فك الضغط ( 2.40 ميجابايت ) تفضل بتحميل البرنامج أضغط هنـــــــــا وفقنا الله واياكم لما يحب ويرضى .

وعليكم السلام والرحمه أنظر المثال المرفق ... هل هذا ما تقصده أم تريد ظهور رساله توضح النتيجه ؟ __________.zip

العفو أخي العجمي هذا ما تعلمناه من هذا المنتدى الجميل ومن الأستاذ الغالي محمد طاهر

شكراً أستاذ محمد طاهر ... وللأخ العجمي مرفق المثال Quit.zip

ولكن يبقى الأكسيل مفتوحا ولا يعتبر ذلك خروجاً نهائياً ... لماذا ؟

أكثر من رائع ... سلمت يداك

بعد إذن مشرفنا القدير ( محمد طاهر ) مرفق مثال لعملية البحث والكود هو Private Sub CommandButton1_Click() Worksheets("Search").Activate Range("b1:IV65536").Select Application.SendKeys ("^f") End Sub Search.zip

شكر دكتور محمد سأجرب وأرد عليك

إذا تم تحميل الأوفيس وكانت اللغه صينيه فهل يمكن تغييرها الي الأنجليزيه أو العربيه ؟؟