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

..... شاهدوا المرفق أخوكم عماد الحسامي

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

‏‏السبت‏، 28‏/10‏/1430هـ الموافق ‏17‏/10‏/2009م السلام عليكم و رحمة الله وبركاته هذه فكرة برنامج اقساط جاري تنفيذها تستطيع الإختيار بين تحديد عدد الشهور - اذا سوف يتم توزيع المبلغ المتبقي على عدد الشهور تحديد قيمة القسط الشهري - اذا سوف يتم تقسيم المبلغ المتبقي على القسط الشهري = عدد الشهور 1-تم عمل قائمة منسدلة تشمل اسماء العملاء ليتم اختيار اسم العميل منها 2-اكتب في الخلايا الصفراء فقط و لا تكتب في الخلايا الحمراء 3-تم عمل التحقق من صحة للخلايا التي لايجب الكتابه فيهااذا ادخلت تاريخ هجري لن تستطيع الكتابة في خانة تاريخ ميلادي الا بعد مسح بيانات التاريخ الهجري و كذلك العكس صحيحاذا ادخلت قيمة القسط الشهري لن تستطيع الكتابة في خانة عدد الأقساط و كذلك العكس صحيح 4-تم عمل حماية للورقة بحيث يمكنك التنقل بين الخلايا المسموح بالكتابة بها ولا يمكن الوقوف على أي خلية غير مخصصة للكتابةبدء العمل على ورقة حفظ بيانات الأقساط 1_توزيع_الأقساط_ومتابعتهاQest.rar

بعد ابحث وجدت هذه الدورة المفصلة باسلوب سهل للمهتمين ارجو الفائدة لكم http://up.top4top.net/downloadf-top4top_3c73789be01-rar.html

السلام عليكم ورحمة الله أخي الكريم ابن مصر، معادلة رائعة جدا جازاك الله خيرا وتقول "لربما تفي بالغرض" بل وتفي بالغرض حتما... وأقدم تبسيطا للمعادلة (في الخلية E2 مع تأكيدها معادلة صفيف ثم سحبها إلى الأسفل)... أخوكم بن علية المعادلة المبسطة : =SUM(IF(FREQUENCY(IF($A$1:$A$1000=$D2, MATCH($B$1:$B$1000,$B$1:$B$1000,0)),ROW($1:$1000)),1))

السلام عليكم ورحمة الله أخي الكريم الساهر، أولا أعتقد أنه يوجد خطأ في العبارة الملونة بالأحمر هل تقصد : 33 شهر؟ وثانيا يجب تصحيح معادلة الربع السنوي بتغيير الجزء (MOD($E$1,4 من المعادلة المضافة للشهور بالجزء: 3*MOD($E$1,4) ... أما بالنسبة لعدم احتساب الإجازات الأسبوعية في المعادلات فهذا أعتقد أنه صعب بعض الشيء لأنه لا يمكن حصر بدقة هذه الإجازات حسب الفترات وحسب تاريخ البداية... والله أعلم أخوك بن علية

بعد اذن الاخ ياسر يمكنك استعمال هذا الكود: Sub InsertRows() i = 3 Do While Cells(i, 1) <> "" Rows(i).Insert i = i + 3 Loop End Sub

مشكورين على مروركم يا اساتذتى و اتمنى ان اتعلم منكم

السلام عليكم ورحمة الله أخي الكريم الساهر، انظر إلى الملف المرفق لعل فيه المطلوب... أخوك بن علية المرفق : Book1_12.rar

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

اخى الفاضل جرب هذه المعادلة لربما تفي بالمطلوب .. مع ملاحظة انها معادلة صفيف اى لابد من الضغط CTRL+SHIFT+ENTER =SUM(IF(FREQUENCY(IF($B$2:$B$100<>"",IF($A$2:$A$100=$D2, MATCH("~"&$B$2:$B$100,$B$2:$B$100&"",0))), ROW($B$2:$B$100)-ROW($B$2)+1),1)) مرفق الملف للتوضيح تحياتي count.rar

السلام عليكم .. اخي العزيز ياسر بارك الله فيك وفي علمك

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

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

اخي العزيز بعد اعمال استاذنا ياسر خليل لا يمكن لأحد ان يشارك بعده لكن هذه مساهمة بسيطة لإثراء الموضوع ايصال امانه.rar

أخي الفاضل إسلام ممكن تفتح الباب (بس متنساش تقفله وراك عشان الجو برد) http://www.officena.net/ib/index.php?showtopic=56941

السلام عليكم ورحمة الله أخي الكريم، أولا أعتذر لعدم شرح المعادلات التي استعملتها في ملفي المرفق، وفي الحقيقة لا أستطيع شرحها لأنها ببساطة مجموع جداء مصفوفتين عموديتين إحداهما ممثلة بأربع خلايا (نطاق لأربع خلايا) والثانية ممثلة بقوة (أس) للعدد عشرة (الأس من 0 -الآحاد- إلى 3 -الآلاف-)... وفي حالة النطاقات التي في الصفوف استعملت الدالة TRANSPOSE لتبديل الصفوف إلى أعمدة... وليس لي شرح آخر... بالنسبة للمعادلات التي استعملها أخي الكريم أبوعيد الذي استعمل فيه الرمز & الذي يعوض الدالة CONCATENATE فهي أيضا تفي بالغرض (وهو حل كنت سأعرضه عليك في الأول وعدلت عليه لتنويع الحلول) فقط كان يكفي أن نضرب في 1 كل شكل للمعادلة مثلما فعلت في المرفق لطلبك الجديد... أخوك بن علية المرفق : Book2.rar

التهنئة بترقية الاخ ibn_egypt الى عضو مميز

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

تم استبدال الكود تم عمل زر واحد للحذف والاضافة للدوائر ayman.rar

اخواني الكرام هذا الكود تم عمله بناءً على طلب احد الاخوة واحببت ان ارفقه في موضوع منفصل ليتم الاستفادة منه بالشكل المطلوب الكود يقوم بادراج صفوف معينه ابتداءً من اي صف نختاره للعلم فقد تم الاستفادة من كود للاخ الخالدي حفظه الله للوصول لهذه الفكرة وكل عام وانتم بخير وخواتم مباركة Sub officna() Set XX = Application.WorksheetFunction X1 = InputBox(" حدد رقم الصف المطلوب ادراج صفوف ابتداءً منه", "OFFICNA") If IsNull(X1) Or X1 = "" Then Exit Sub X2 = InputBox(" حدد عدد الصفوف المراد ادراجها", "OFFICNA") If IsNull(X2) Or X2 = "" Then Exit Sub X3 = XX.Sum(X1, X2) Rows(X1 & ":" & X3 - 1).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & X1).Select End Sub اخوكم ابو احمد ادراج عدد ميعين من الصفوف ابتداء من صف محدد.rar

السلام عليكم هذا مثال لتغيير مكان حفظ المف إلى أي مكان في الجهاز ... اتبع التعليمات فقط أخي الكريم Export TO txt 2015.rar

أين الملف أو كلمة السر

الأخ الفاضل / أيمن برجاء فك الحماية عن الكود أو كتابة الرقم السرى حتى نتمكن من عمل اللازم

على حسب فهمي لطلبك: http://up.top4top.net/downloadf-top4top_1390f9c37f1-rar.html

يستاهل ابن مصر ... الله يوفقه ويسعده ... ويسعد الموجودين في هذا المنتدى الراقي ... بالتوفيق

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

الاستاذ الفاضل // ياسر خليل تحية الله عليكم جميعا مما لاشك فيه أن ماتبذلوه من جهد للإفاده والاستفاده فهو حق جهد كبيرتؤجرن عليه من رب العباد الله أسأل ان يجعل هذا العمل خالصا لوجهه الله تعالى كما أسأله أن يجعله فى موازيين حسناتكم وجميع الساده الزملاء واسمح لى بهذا التعديل بمحفظة الاكواد مراعاة لاصحاب النظرالضعيف فربما تكون بارقة أمل فى التعمق فى دراسة ماتفضلتم به وجميع الساده الزملاء إن كان الامريروق سيادتكم فعلى الرحب والسعة وان لم يكن فالله الامر من قبل ومن بعد ****************************************************** ملحوظة لاأدرى إن كانت فى محلها ام لا بشأن الــ ListFind لماذا لايتم التعامل مع الاسهم بدلا من التعامل بالماوس بمعنى مع تحريك الاسهم لاعلى أو لاسفل يتم إظهار الكود المقابل لعنوانه تقبل وافر احترامى وتقديرى وجزاكم الله عنا وعن الجميع خيرا

تفضل أخي الفاضل الملف Stochastic Oscillator.rar

السلام عليكم ورحمة الله تعالى وبركاته بعد كل الشكر والتقدير والاجلال لكل اساتذتى الذين تعلمت على يديهم فى هذا الصرح الشامخ الاستاذ الكريم ابو الآء ردا على سؤالكم الاتى: وهل من الممكن تصدير التقارير مباشره الى بي دى اف او صور نعم اخى الحبيب ممكن ذلك وارفق لكم مثال مفتوح متعدد التصدير بصيغ متعدده كما يحتوى المثال ايضا على لوحة تحكم بصلاحيات مستخدمين بسيطه على قدر فهمى الضئيل لان هذا الموضوع اتعبنى جدا ويحتوى المثال على وحدة نمطية لاخفاء اطار الاكسس برجاء مراعاة اختيار اسم الدخول برقم الدخول المبين بجوار كل اسم فى شاشة الدخول كل الاسماء لها صلاحية الزر الاول فقط بينما اسير الشروق من صلاحياته تفعيل كل الازرار ☺ واسماء الدخول كالاتى للتأكيد منتظر ردودكم اسم الدخول الباسورد أبـوخليل 1 ابو الآء 2 علي المصري 3 محمدعوض 4 اسير الشروق 5 ولما واجهته من خطأ أثناء رفع الملف على المنتدى فى المرفقات officena.rar تم إلغاء عملية الرفع (خطأ402) قمت برفع المرفق على موقع ميديا فاير رابط التحميل من ميديا فاير كل الشكر والتقدير مرة اخرى لكل استاذتى الذين تعلمت منهم وعلى يديهم فى هذا الصرح الشامخ فلهم كل الفضل بعد رب العزة سبحانه وتعالى فيما وصلت اليه الان فسبحان الله الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله والحمد الله الذى تتم بنعمته الصالحات officena.rar

اخى الكريم ابن مصر الف مليون مبروك و تمنياتى لك بمزيد من الرقى

الف مبروك الترقية المستحقة عن جدارة و تميّز

الاخ الكريم ابن مصر الف الف مليون مبروك على ترقيتك فانت فعلا اعمالك رائعه والشكر موصول لعالمنا عبدالله باقشير

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

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

الف مبروك الترقية المستحقة والى المزيد من العطاء و التقدم يا ابن مصر(ام الدنيا)

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

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

جزاك الله خير الجزاء

وجدتها فارغة.rar

السلام عليكم ورحمة الله وبركاته اذا سمحتم لى بالمشاركة هذا هو تعديل بسيط فى الكود (بوضعه فى حدث فتح الملف ) (ووضعه فى حدث تنشيط الشيت 1) مع تحديد المسار الكامل للخلية o3 داخل شيت 1 لكى لا يتكرر هذا الكود فى باقى الشيتات ارجو ان يكون ذلك المطلوب كل عام وانتم بخير اخوكم konafa4000 h1.rar

السلام عليكم و رحمة الله اخي الساهر منور المنتدى بعد طول غياب كيف زحمة وحرارة الصيف س: بالنسبة للمكرر بعد الترحيل هل تريد حذفة