سما محمد قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 السادة الاساتذة بارك الله فيكم في الفورم الموجود في الصورة وفي الملف احتاج عند الضغط علي الزر الموجود بالفورم ان تظر لي اسماء التشيك بوكس الموجود امامها علامه صح فقط اي انه لو قمت بتحديد التشيك بوكس .... الخاص ... بالفئة الاولي والتشيك بوكس .... الخاص ... بالفئة الثالثة والتشيك بوكس .... الخاص ... بالفئة السادسة وعند الضغط علي الزر المقصود تظهر القيمة في التيكست بوكس كالتالي الفئة الاولي - الفئة الثالثة - الفئة السادسة والغرض من ذلك الامر هو جعل قيمة خلية ما في شيت معين تساوي قيمة التكست بوكس بعد التحديد للتشيك بوكسات فحبذا لو كان الامر بطريقة مباشرة دون الحاجة للتسكت بوكس من الاساس وفي انتظار ردكم الكريم التشيك بوكس.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 السلام عليكم يمكن استعمال هذا الكود Private Sub CommandButton1_Click() Dim i As Byte For i = 1 To 13 If Me.Controls("CheckBox" & i).Value = True Then TextBox1 = TextBox1 & Me.Controls("CheckBox" & i).Caption & "-" Sheet1.Range("A1") = Sheet1.Range("A1") & Me.Controls("CheckBox" & i).Caption & "-" End If Next i End Sub رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 السلام عليكم جرب الكود التالي Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.Frame1.Controls If TypeOf Cntl Is MSForms.CheckBox Then If Cntl.Value = True Then Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption End If End If Next Range("B2").Value = Txt End Sub تحياتي 4 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 أحى الحبيب المبدع / أبو حنين تسلم ايديك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 أستاذى الحبيب أستاذ الإبداع / عبد الله باقشير تسلم ايديك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 الأخ الحبيب : رجب جاويش جزاكم الله خيرا على المرور حفظكم الله و رعاكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك فعلا وبحق تسلم ايديك وحتي دائما اظل بجوارك ... اضافه لاتذكر علي كود سيادتكم لمسح بيانات الخلية المحددة ( لمنع التكرار فقط ) Private Sub CommandButton1_Click() Dim i As Byte '============================= Sheet1.Range("A1").Value = "" '============================= For i = 1 To 13 If Me.Controls("CheckBox" & i).Value = True Then TextBox1 = TextBox1 & Me.Controls("CheckBox" & i).Caption & "-" Sheet1.Range("A1") = Sheet1.Range("A1") & Me.Controls("CheckBox" & i).Caption & "-" End If Next i End Sub تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 السلام عليكم الاستاذ القدير العلامه الخبير / عبدالله باقشير بارك الله فيك دمت لنا معلما وقائداً عظيما فالاكسيل انت وانت الاكسيل تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر فبراير 23, 2014 مشاركة قام بنشر فبراير 23, 2014 اخي حمادة تصويب في مكانه جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سما محمد قام بنشر فبراير 23, 2014 الكاتب مشاركة قام بنشر فبراير 23, 2014 منتهي منتهي الشكر لكم اساتذتي الكرام الاجلاء لقد جعلتموني افتخر بنفسي لوجود هذه الكوكبة من العباقرة في موضوع لي لكم مني ارق التحيات رابط هذا التعليق شارك More sharing options...
سما محمد قام بنشر فبراير 24, 2014 الكاتب مشاركة قام بنشر فبراير 24, 2014 الاستاذ القدير / عبد الله باقشير بالنسبة لكود حضرتك هل يمكن ان يعمل الكود في حالة عدم وجود الفرام الموجود بالفورم وتكون التشيكات بوكس متواجدة علي الفورم مباشرة حيث حاولت التعديل علي الكود ولكني تأكدت من ان الكود مرتبط بوجود الفرام فهل يمكن عمل هذا التعديل جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر فبراير 24, 2014 مشاركة قام بنشر فبراير 24, 2014 الاخوه الافاضل بسم الله ما شاء الله ايه الحلاوه والجمال والادب فى التنافس على توصيل المعلومه بارك الله فيكم جميعا اكواد متنوعه مستفاد منها باذن الله كل الشكر والتقدير للاخ والاستاذ ابوحنين و الاخ والاستاذ عبدالله رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر فبراير 24, 2014 أفضل إجابة مشاركة قام بنشر فبراير 24, 2014 الاستاذ القدير / عبد الله باقشير بالنسبة لكود حضرتك هل يمكن ان يعمل الكود في حالة عدم وجود الفرام الموجود بالفورم وتكون التشيكات بوكس متواجدة علي الفورم مباشرة حيث حاولت التعديل علي الكود ولكني تأكدت من ان الكود مرتبط بوجود الفرام فهل يمكن عمل هذا التعديل جزاك الله خيرا نعم ممكن مع تعديل بسيط Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.Controls If TypeOf Cntl Is MSForms.CheckBox Then If Cntl.Value = True Then Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption End If End If Next Range("B2").Value = Txt End Sub تحياتي 2 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 24, 2014 مشاركة قام بنشر فبراير 24, 2014 بعد اذن أستاذى الحبيب أختى الفاضلة / سما محمد يكون التعديل فى الكود كالآتى Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.Controls If TypeOf Cntl Is MSForms.CheckBox Then If Cntl.Value = True Then Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption End If End If Next Range("B2").Value = Txt End Sub وبالنسبة للفورم يتم ازالة الـ FRAME1 التشيك بوكس.rar 2 رابط هذا التعليق شارك More sharing options...
سما محمد قام بنشر فبراير 24, 2014 الكاتب مشاركة قام بنشر فبراير 24, 2014 منتهي منتهي الشكر لكم اساتذتي الكرام الاجلاء لقد جعلتموني افتخر بنفسي لوجود هذه الكوكبة من العباقرة في موضوع لي لكم مني ارق التحيات رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 24, 2014 مشاركة قام بنشر فبراير 24, 2014 أختى الفاضلة / سما محمد جزاك الله كل خير على هذه الكلمات الطيبة رابط هذا التعليق شارك More sharing options...
سما محمد قام بنشر فبراير 24, 2014 الكاتب مشاركة قام بنشر فبراير 24, 2014 كل الشكر لك استاذي العملاق كما ذكر استاذي / حمادة عمر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها