رشراش قام بنشر أبريل 20, 2018 مشاركة قام بنشر أبريل 20, 2018 ارجو ان اجد من يضع لي اكواد هذا الفورم.... لانه بالاساس يهمنيOptionButton شكرا OptionButton.rar رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر أبريل 23, 2018 الكاتب مشاركة قام بنشر أبريل 23, 2018 اعتقد ان الموضوع هذا لم يمر عليه احد اساتذتنا ولا حتى هوَّات ال VB سننتظر والاكيد ستمر استاذي من هنا... تحية لك مسبقا رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر أبريل 25, 2018 الكاتب مشاركة قام بنشر أبريل 25, 2018 الاكيد لست الوحيد الذي يريد هذا الفورم سننتظر والاكيد ستمر استاذي من هنا... تحية لك مسبقا رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر أبريل 28, 2018 الكاتب مشاركة قام بنشر أبريل 28, 2018 تأتي او لا تأتي او إفعل بملفي ما تشاء... سأنتظرك استاذي بعد الفطور وعند الغداء وحتى بعد صلاة العشاء.. فأنت يا استاذي لا مفر لك من مساعدتي اليوم او غداً او متى مررت من هنا... .... رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر أبريل 29, 2018 الكاتب مشاركة قام بنشر أبريل 29, 2018 ساظل منتظرا دوري.... ولو استمر طلبي جاثما هنا.... .... رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر مايو 6, 2018 الكاتب مشاركة قام بنشر مايو 6, 2018 ساظل منتظرا دوري.... ولو استمر طلبي جاثما هنا...... رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر مايو 9, 2018 الكاتب مشاركة قام بنشر مايو 9, 2018 هل طلبي هذا مستحيل؟! أم ان اساتذتنا لم يمروا من هنا!؟ سانتظر..... سأظل قابعا هنا حتى تنهال الحلول... ورمضان مبارك ☺👼☺👼 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر مايو 11, 2018 الكاتب مشاركة قام بنشر مايو 11, 2018 ....... يوم آخر يمر...... شكرا لكل كن مر من هنا 👈🚩📍 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر مايو 13, 2018 الكاتب مشاركة قام بنشر مايو 13, 2018 رمضان مبارك ☺👼 💜❤💖 1 رابط هذا التعليق شارك More sharing options...
am3h80 قام بنشر مايو 14, 2018 مشاركة قام بنشر مايو 14, 2018 جرب الكود ده مع ترتيب اداة optionbutton في كل frame وجاري عمل حلقة علي الاداة لكي يتم التسجيل التلقائي في الخالية الخاصة بها وجاري ,Private Sub CommandButton1_Click() Dim x Dim LR As Long Dim MX As Double For x = 1 To x If Me.OptionButton1.Value = True Then Dim ws As Worksheet Dim iRow As Long Set ws = Worksheets("feuil1") With Feuil1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 MX = WorksheetFunction.Max(.Range("A1:A" & LR)) End With iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = MX + 1 ws.Cells(iRow, 2).Value = Me.TextBox1.Value ws.Cells(iRow, 3).Value = Me.TextBox2.Value ws.Cells(iRow, 9).Value = "X" End If GoTo 1 Next 1 End Sub رابط هذا التعليق شارك More sharing options...
am3h80 قام بنشر مايو 14, 2018 مشاركة قام بنشر مايو 14, 2018 شوف كده بالتوفيق OptionButton.xlsm 2 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر يونيو 17, 2018 الكاتب مشاركة قام بنشر يونيو 17, 2018 عيد الجميع مبارك وأثابكم الله خيرا... أما آن الاوان لملفي أن يجد حلا نهائيا! تقبلوا مني اسمى عبارات التقدير والاحترام. دعواتي لكم خير الجزاء وجزيل العطاء من الله. رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر يونيو 18, 2018 الكاتب مشاركة قام بنشر يونيو 18, 2018 عيد الجميع مبارك وأثابكم الله خيرا... أما آن الاوان لملفي أن يجد حلا نهائيا! تقبلوا مني اسمى عبارات التقدير والاحترام. دعواتي لكم خير الجزاء وجزيل العطاء من الله. رابط هذا التعليق شارك More sharing options...
am3h80 قام بنشر يونيو 19, 2018 مشاركة قام بنشر يونيو 19, 2018 تفضل اخي كما تريد الله الموفق update OptionButton.xlsm رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر يونيو 21, 2018 الكاتب مشاركة قام بنشر يونيو 21, 2018 جازاك الله عني خيرا واثابك الجنة... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.