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

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

بسم الله الرحمن الرحيم Formula To VBA ضع الماوس على الخلية التي يوجد فيها معادلة معينة وإضغط على بسم الله ستظهر لديك المعادلة محولة و جاهزة للنسخ , قم بنسخها ثم قم بوضعها داخل كود أخونا الكريم عبد الله باقشير جزاه الله خيرا . الطريقة و الكود في المرفقات لكم مني أطيب التحيات محول المعادلات السريع.rar

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

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

استاذنا العزيز الوزير الف مبروك الاحتراف وتستاهل اكثر

وعليكم السلام أخي الكريم جرب الملف التالي (لم أجربه من قبل ...) Excel To vCard.rar

السلام عليكم ورحمة الله اعتقادي كان خاطئا... وكما ذكر أخي الكريم ياسر صحيح كل الصحة "القيمتان في الخليتين مختلفتان تماما" في الخلية B2 القيمة هي في الأصل 123456789 تقسيم 10000000000 وفي B2 القيمة هي 12345679 تقسيم 1000000000 والتنسيق الذي طبق عليهما أطهر أنهما متساويتان وهذا غير صحيح.... ما يفسر النتيجة في الخلية C2... والله أعلم بن علية

جرب هذا حسب فهمي للسؤال =IF(OR(F7="ى";F7="ط");0;1)

انظر الى هذا المثال قمت بعمل ثلاث قواعد بيانات واحد 2014 و 2015 و 2016 انت قم بفتح 2016 وقم بختيار القاعدة التي تناسبك New folder (5).rar

جزاكم الله خير اخواني في الله ..

وجدت لكم بالجعبة الفقيرة السطر التالي ولطلب الاخ محمد سلامة Private Sub Form_BeforeInsert(Cancel As Integer) ID = "S" & Replace(Nz(DMax("id", "tbl1", "id like 's" & Right(Year(Date), 2) & "*'"), "s" & Right(Year(Date), 2) & "00000"), "s", "") + 1 End Sub كما يمكن وضع السطر السابق كقيمة افتراضية للعنصر وبدون كود بالتوفيق

الأخ الفاضل والأستاذ الجليل / ياسر خليل سلمت يداك .. الف شكر هذا هو ما أريده تقبل تحياتى

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

يمكن اخفاء زر الاغلاق ولكن سيختفي ضمنا زري التكبير والتصغير ما رأيك ؟

انظر لهذه الطريقة واعطني رأيك Copy.rar

السلام عليكم جرب المرفق 2حذف و لصق.rar

أخي الكريم ابن الملك عوداً حميداً .. لقد اشتقنا إليك ولمشاركاتك الرائعة والقيمة بارك الله فيك على الموضوع الجميل .. في الحقيقة في بداية الأمر لم أفهم الملف ثم قمت بالإطلاع على الأكواد لأعرف ما يحدث فوجدت العجب العجاب .. :) وفي الحقيقة أعجبتني فكرة الملف ونظرت نظرة مدقق ووجدت أن الأمر أيسر من كل ذلك .. لما كل هذه الموديولات والأكواد واستخدام الـ Selection العديد من المرات .. واستخدام عمود مساعد لابجاد التاريخ المطابق للتاريخ الموجود في الخلية H2 (وعامل إخفاء قال يعني فيه حاجة بتخفى علينا في الإكسيل :) ) المهم هديتي لك بمناسبة رجوعك للمنتدى كود واحد وبس .. لكل الأزرار الثلاثة (شاي وقهوة ومية .. بس متنسانيش بإزازة حاجة ساقعة .. صفرا إذا أمكن) المهم الكود بالشكل التالي Sub Tea_Coffee_Water_Proc() 'Author : YasserKhalil 'Release : 18 - Aug. - 2016 '-------------------------- Dim Obj As Object Dim iCol As Long Dim Rng As Range Dim strDate As Date Dim iRow As Long Application.ScreenUpdating = False With Sheets("Sheet1") 'Get Column Number For Form Button Set Obj = .Buttons(Application.Caller) iCol = Obj.TopLeftCell.Column 'Get Row Number For Date strDate = CLng(.Range("H2").Value2) Set Rng = .Columns(3).Find(What:=strDate, LookIn:=xlValues) If Not Rng Is Nothing Then iRow = Rng.Row 'The Mission .Cells(iRow, iCol).Value = .Cells(iRow, iCol).Value + 1 .Cells(.Cells(Rows.Count, iCol).End(xlUp).Row, iCol).Select End With Application.ScreenUpdating = True End Sub فكرة الكود بتعتمد على إني بعرف رقم العمود المطلوب العمل عليه من خلال زر الأمر .. المرسوم في الخلية (شاي - قهوة - مياة) وبعد كدا بجيب رقم الصف بالاعتماد على البحث ولكن بالأكواد .. وموضح دا في التعليقات (التعليقات بالإنجليزي عشان محدش يفهمني غلط) وأخيراً تقدر تضع القيمة المطلوبة وهي زيادة مقدار الخلية بمقدار واحد من خلال سطر واحد .. وفي النهاية يتم تحديد آخر خلية في نفس العمود أرجو أن يكون الكود مفيد ومختصر .. تقبل وافر تقديري واحترامي

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

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

السلام عليكم ورحمة الله وبركاته ،،، بناء على طلب احد الاصدقاء في المنتدى فيما يلي قاعدة بيانات تحوي نموذج به زر امر يقوم بتوليد ملف اكسل به قاعدة التحقق من الصحة بين رقمين اتمنى الفائدة للجميع :: تحياتي Excel-validation.rar

السلام عليكم جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير على ما تقدموه للمنتدى من كل جديد

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

السلام عليكم أيها الأحبة نزلت أكسس 2007 والمشكلة في حال استخدام لوحة المفاتيح في الحفظ أو النسخ واللصق ... تأتي رسال لم يتم العثور على خلايا فما المشكلة ؟؟؟!!ّ

ثانيا : الوظيفة هي الدالة التي تحتوي على عبارة Function وتتكون من عدد من الأسطر مهمتها التوصل إلى قيمة معينة ويمكن أيضا أن تقوم ببعض الأعمال . ونلاحظ أن الفرق بين الوظيفة والروتين الفرعي أن الوظيفة تعطي قيمة ، أما الروتين الفرعي فلا يعطي قيمة وإنما ينحصر دوره في القيام بعمل . تبدأ الوظيفة بالسطر Function FunctionName() وتنتهي بالسطر End Function ولا بد من تسمية الوظيفة باسم على ما سبق بيانه في الروتين الفرعي . وبما أن الوظيفة تعطي قيمة لذا فمن المستحسن بيان نوع القيمة التي تعيدها الوظيفة ، وأنواع القيم هي نفسها أنواع المتغيرات ، وسيأتي بيانها . ومثال بيان نوع القيمة التي تعيدها الوظيفة Function MyNumber() As Byte فالوظيفة هنا تعطينا قيمة من نوع Byte. وفي حال لم يبين نوع القيمة كما في المثال قبل السابق فإن البرنامج سيعتبرها من نوع Variant

أولا : الروتين الفرعي : وهو الدالة التي تحتوي على عبارة Sub وتتكون من عدد من الأسطر تقوم بعمل محدد . يبدأ الروتين الفرعي بالسطر Sub SubName() وينتهي بالسطر End Sub ولا بد من تسمية الروتين الفرعي باسم يستدعى بواسطته ، ويمكن تسميته بأي اسم يرغب فيه المبرمج ما لم يكن هذا الاسم محجوزا . ويفضل أن يكون الاسم دالا على ما يقوم به الروتين الفرعي من عمل . فمثلا يمكن للمبرمج أن يسمى الروتين الفرعي بالاسم AAA بحيث يبدأ بالسطر التالي : Sub AAA() إلا أن اسم AAA لا يدل على ما يقوم به الروتين الفرعي من عمل ، لذا فالأولى أن يسمى باسم يدل عليه ، فمثلا لو كانت مهمة الروتين الفرعي هي فتح نموذج اسمه Form1 ، فيمكن أن يسمى بالاسم Sub OpenForm1()