أبو أدم قام بنشر مايو 1, 2013 مشاركة قام بنشر مايو 1, 2013 اخواني واستاذتي الأعزاء في هذا الصرح العظيم السلام عليكم ورحمة الله هذه اول تجربـة لي في الفورم بعد عدة محاولات فاشلة والحمد لله رب العالمين بفضل الله ثم بفضل ما تعلمته منكم تم الوصول الي عمل مقبول بعض الشيء بالنسبة لمبتدء بارك الله فيكم طلبي ورجائي عندكم لدي بيانات للاشتراكات معينة لها تاريخ بداية ويتم تحديد تاريخ الانتهاء بالمعدلات وكذلك النسبة مع التقريب بالنسبة للمعادلات داخل الشيت انا سويتها لكن ما ينقصني هو ان تتم تلك العمليات داخل الفورم وبالمرفق شرح تفصيلي جزاكم الله كل خير الاشتركات.rar رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مايو 1, 2013 مشاركة قام بنشر مايو 1, 2013 الأخ العزيز // أبو أدم السلام عليكم ورحمة الله وبركاته بالنسبة لباكورة اعمالك الفورم جميل جدا واتمني لك مزيدا من التقدم ان شاء الله وان تكون من احد اعمدة صرحنا العظيم تفيدنا وتستفيد تم عمل المطلوب (العمليات الحسابية ) داخل الفورم كما يلي : الشـرح من الكود في كود 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 رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر مايو 1, 2013 مشاركة قام بنشر مايو 1, 2013 أخى العزيز الفاضل / ضاحى " ابوعمرو" جزاكم الله خيرا مشاركتكم دائما فعاله على أيديكم أحببت التعامل بالاكواد وخصوصا أن الموضوع مشفوعا بالشرح بارك الله فيكم وفى أولادكم رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مايو 1, 2013 مشاركة قام بنشر مايو 1, 2013 اخي الحبيب أبو سلمي الغالي الأستاذ / سعيد بيرم مرورك زين الموضوع واعطي له تلك الابتسامة الجميلة التي تظهر مع المشاركة والتي تعكس روحكم وحسكم الرائع بارك الله فيك واتمني ان اكون عند حسن ظنكم بي مع اني اسلوبي في الشرح علي قد حاله لكن ان شاء الله اكون قد وصلت الفكرة للاخ السائل ولايـأتي شيئا امام كلماتك الجميلة ومشاراكتك الخفيفة ادام الله علينا محبته في سبيله تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الصاوي حسن قام بنشر مايو 1, 2013 مشاركة قام بنشر مايو 1, 2013 جزا الله كل خير استاذ / ضاحي كما عهدناك سباق إلى مساعدة الاخوة الاعضاء جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 2, 2013 مشاركة قام بنشر مايو 2, 2013 السلام عليكم يا لروعتك اخي الحبيب ضاحي الغريب شرح ولا احلي ولا اروع من كدة جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
seee2005 قام بنشر مايو 3, 2013 مشاركة قام بنشر مايو 3, 2013 جزاكم الله كل خير ... رابط هذا التعليق شارك More sharing options...
أبو أدم قام بنشر مايو 6, 2013 الكاتب مشاركة قام بنشر مايو 6, 2013 اخي الاستاذ/ ضاحي اعتذر لتاخري في الرد جزاك الله كل خير وبارك في اولادك علي هذا المجهود اتبعت الخطوات وقمت بتنفيذها والحمد لله ربنا يجعله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مايو 9, 2013 مشاركة قام بنشر مايو 9, 2013 الاخ ابو ادم بارك الله فيك وجزاك الله خير تقبل تحياتي رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مايو 9, 2013 مشاركة قام بنشر مايو 9, 2013 جزاكم الله كل خير ... وجزاك خيرا اخي الكريم رابط هذا التعليق شارك More sharing options...
حليم ناصر قام بنشر مايو 9, 2013 مشاركة قام بنشر مايو 9, 2013 بارك الله فيكم وجزاكم الله خير تقبلو تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان