ضاحي الغريب

تفضل اخي الكريم الفورم أوفيس 2003 2003.rar

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

الأخ الحبيب أبوسما ((روح المنتدي )) بارك الله فيك وجعله في ميزان حسناتك تقبل تحياتي

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

اخي الكريم // اليك الطريقة لرفع الملفات علي الموقع لكن اذا كان حجم الملف تتجاوز 1.95 ميجا قم برفعه علي احد المواقع وضع الرابط في المشاركة

أخي الكريم // ابو جمانة برجاء ارفاق حتي يتم العمل عليه والتجربة لكن بصفة عامة لو فرضنا ان قيمة العمولة في الخلية (D2) وتريد المعادلة في الخلية مثلا (E2) ضع المعادلة في E2 =IF(D2<=0;"0";D2) واسحبها للاسفل

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

الأخ العزيز // أبو أدم السلام عليكم ورحمة الله وبركاته بالنسبة لباكورة اعمالك الفورم جميل جدا واتمني لك مزيدا من التقدم ان شاء الله وان تكون من احد اعمدة صرحنا العظيم تفيدنا وتستفيد تم عمل المطلوب (العمليات الحسابية ) داخل الفورم كما يلي : الشـرح من الكود في كود Private Sub ComboBox1_Change() 1- بما ان عدد الشهور = K3 تم اضافة السطر التالي عدد الشهور (تكست بوكس 3) = الخلية (K39) في الشيت النشط Me.TextBox3 = ActiveSheet.[K3 2- لحساب النسبة والتقريب لاقرب عدد صحيح تم اضافة السطر التالي مع دالة Ceiling النسبة بعد التقريب (تكست بوكس 5) = معادلة التقريب (المبلغ (تكست بوكس 5) X (النسبة الموجود بالشيت النشط خلية (j3) ورقم الواحد ليقرب لك الكسر لاقرب واحد صحيح TextBox6.Value = Application.Ceiling((TextBox5.Value * ActiveSheet.[J3]), 1) 3- للحصول علي اجمالي المبلغ(تكست بوكس 7) = (المبلغ(تكست بوكس 6) + النسبة بعد التقريب(تكست بوكس 5) ) تم اضافة السطر التالي Me.TextBox7 = Val(TextBox6) + Val(TextBox5) ليصبح الكود النهائي في Private Sub ComboBox1_Change() Private Sub ComboBox1_Change() On Error Resume Next Sheet1.Activate III = 3 Do Until Sheet1.Cells(III, "A").Text = "" If Me.ComboBox1.Text = Sheet1.Cells(III, "A").Text Then Cells(III, "A").Activate Me.TextBox1 = ActiveCell.Offset(0, 1).Text Me.TextBox2 = ActiveCell.Offset(0, 2).Text Me.TextBox3 = ActiveSheet.[K3] Me.TextBox4 = ActiveCell.Offset(0, 2).Text Me.TextBox5 = ActiveCell.Offset(0, 4).Text TextBox6.Value = Application.Ceiling((TextBox5.Value * ActiveSheet.[J3]), 1) Me.TextBox7 = Val(TextBox6) + Val(TextBox5) Exit Sub End If III = III + 1 Loop MsgBox ("!!! ÇáÑÞã ÇáÐì ÇÏÎáÊå ÛíÑ ÕÍíÍ") Me.TextBox1.SetFocus Me.TextBox1.Text = "" Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox7.Text = "" Spin1.Value = ComboBox1.Text End Sub ثانيا للحصول علي فترة انتهاء الاشتراك في حدث Private Sub TextBox4_Change() تم اضافة مايلي 1- لحساب تاريخ الانتهاء كما يلي تاريخ الانتهاء (تكست بوكس 4) = اضافة شهر (M) عدد الشهور (تكست بوكس 3) - تاريخ الاشتراك (تكست بوكس 2) TextBox4.Value = DateAdd("m", TextBox3.Value, TextBox2.Value) واضافة السطر التالي لتغير فورمات التاريخ يوم / شهر / سنة TextBox4.Text = Format(TextBox4, "YYYY /MM /DD") ليكون شكل الكود في حدث Private Sub TextBox4_Change() كالتالي Private Sub TextBox4_Change() TextBox4.Value = DateAdd("m", TextBox3.Value, TextBox2.Value) TextBox4.Text = Format(TextBox4, "YYYY /MM /DD") End Sub وتم اضافة تنسيق تاريخ الاشتراك ايضا في تكست بوكس 2 Private Sub TextBox2_Change() TextBox2.Text = Format(TextBox2, "YYYY/MM /DD") End Sub اتمني اكون قدرت افهم لك كيف تمت العمليات الحسابية واتاسف لضعف قدرتي في الشرح التطبيق في الملف المرفق الاشتركات.rar

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

أخي الكريم // اتمني ان ترفق ملف للعمل عليه وبصفة عامة المشكلة ان تنسيق الخلية مضبوط علي تنسيق تاريخ قم بتغير التنسيق الي رقم كالتالي قف علي الخلية كليك يمين - اختار (تنسيق خلايا) - تظهر شاشة اختار تبويب (رقم) -من التبويب اختار رقم واختار المنازل العشرية (0) جرب واعلمني بالنتيجة ووفقك الله

أخي الكـريم // أبـو أدم جزاك الله خيرا بارك الله فيك اللهم يجعلني عند حسن ظنكم تقبل تحياتي

أخي الكـريم الأستاذ// إبراهيــم أبوليلة جزاك الله خيرا بارك الله فيك اللهم يجعلني عند حسن ظنكم تقبل تحياتي

اخي الكريم/// جزاك الله كل خير علي مشاركتك الجميلة وبارك الله فيك ولك دعوة طيبـة بتغير اسم الظهور الي اللغة العربية حتي نتمكن من التواصل معك علي الرابط التالي http://www.officena.net/ib/index.php?showannouncement=21&f=135 بارك الله فيك

أخي الحبيب // ضي النور جرب الموضوع التالي في فتح قاعدة البيانات علي اوفيس 2007 عسي تجيب نتيجة معك الموضوع (( فتح ملفات اوفس 2007 و 2010 مع اوفس 2003)) http://www.officena.net/ib/index.php?showtopic=46732

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

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

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

الأخ الحبيب // فتحي اولا ارحب بك أخـا وعضوا كريمــا وفردا داخل العائلة وادعوا الله ان تستفيد وتفبد والشكر لاخي الحبيب الأستاذ // مجدي يونس (جزاه الله خيرا عنا وبارك الله فيه) وكا قال لك في موضوع عمل شاشة باحترافية للمبدع الخلوق اخي الحبيب أ. حمــادة عمر بشرح ميسر وسهل جدا وخطوات جميلة علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=45232 تابع الخظوات واخطا في العمل مرة مرة وحاول ونحن كلنا معك حتي تنجح وتبدع ان شاء الله ولا تتردد في طلب السؤال وان شاء الله تجد الاجابة من كوكبة الاخوان هنا والله ولي التوفيق تقبل تحياتي

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

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

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

تفضل اخي الكريم باستخدام دالة VLOOKUP فاتورة مبيعات-2013.rar

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

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

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