تعديل كود

[ابو حمادة]

Private Sub OptionButton1_Click()
With Me
If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ"
If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = True Then

Sheets("Aldata").Select
Range("U2").Select
ActiveCell.FormulaR1C1 = "ÇáÕäÝ"
If OptionButton1.Value = True Then
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
'OptionButton7.Value = False
'OptionButton8.Value = False
On Error Resume Next
Dim data As Range
Dim group1 As Collection
Set group1 = New Collection
For Each data In add.Range("F6:F" & add.Cells(Rows.Count, "F").End(xlUp).Row)
group1.add data, data.Text
Next data
With Me.ComboBox1
.Clear
For i = 1 To group1.Count
If group1(i) <> "" Then
.AddItem group1(i)
End If
Next i

End With
End If
Else
End Sub

يوجد خطأ علي ماعتقد في ترتيب الشروط

المطلوب اجبار المستخدم علي اختيار  امر من 3 اوامر  CheckBox1 او CheckBox2 او CheckBox3
وجزاكم الله خيرا

[عبدالسلام ابوالعوافي]

اول خطا كان في البداية 

If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ"
If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = True Then

عدله الي

If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ"
If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = True Then

لم اراجع الكود بالكامل .. ربما بعد هذا التصحيح ستنحل المشكلة

 

[ابو حمادة]

1 ساعه مضت, عبدالسلام ابوالعوافي said:

اول خطا كان في البداية 

If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ"
If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = True Then

عدله الي

If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ"
If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = True Then

لم اراجع الكود بالكامل .. ربما بعد هذا التصحيح ستنحل المشكلة

 

دا ملف مرفق لو امكن تطبيق الكود الصحيح عليه

تعديل كود.rar

 

[عبدالسلام ابوالعوافي]

Private Sub CheckBox1_Change()
VisUnVis
End Sub
Private Sub CheckBox2_Change()
VisUnVis
End Sub
Private Sub CheckBox3_Change()
VisUnVis
End Sub

Sub VisUnVis()
OptionButton1 = False
OptionButton2 = False
OptionButton3 = False
OptionButton4 = False
OptionButton5 = False

If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then

OptionButton1.Locked = True
OptionButton2.Locked = True
OptionButton3.Locked = True
OptionButton4.Locked = True
OptionButton5.Locked = True
Else
OptionButton1.Locked = False
OptionButton2.Locked = False
OptionButton3.Locked = False
OptionButton4.Locked = False
OptionButton5.Locked = False
End If
End Sub

عمل هذا الكود .. اذا لم يتم اختيار اي من التشك بوكسس .. لايمكن اختيار الاوبش بوتنز

[ابو حمادة]

ارجو تطبيق الكود علي الفورم حيث ان خبرتي لا تكفي 

ولك جزيل الشكر

 

 

تعديل كود.rar

[عبدالسلام ابوالعوافي]

تعديل كود.rar

[ابو حمادة]

الان, عبدالسلام ابوالعوافي said:

تعديل كود.rar

شكرا اخي الغالي

علي اهتمامك ولكن هذه الصفحه لم يتم التعديل عليها مطلقا هي التي ارسلتها ليتم وضع الكود بها

 

[عبدالسلام ابوالعوافي]

تم التعديل اخي .. جرب ان تختار احد الاوبشن بدون ماتختار التشك بوكس

[ابو حمادة]

استاذ عبد السلام 

الملف هو ال انا باعته لم يوجد به اي تعديل ولا اي شئ

 

[عبدالسلام ابوالعوافي]

اسف اخي .. قمت بالتعديل الان .. جرب

تعديل كود_4.rar

[ابو حمادة]

تمام اخي الفاضل مع انى كنت اريد ظهور رساله عند اختيار الاوبشن تفيد بانه لازم يتم تحديد احد ( CheckBox )  ولكن جزاك الله خيرا

 

[عبدالسلام ابوالعوافي]

اخي ابوحمادة

لا افضل استخدام الرسائل الا في عند الضرورة ولكي تبين شئ مهم .. مارائك بان يتم اخفاء الاوبشن بوتن كما في الكود الاتي

Sub VisUnVis()
OptionButton1 = False
OptionButton2 = False
OptionButton3 = False
OptionButton4 = False
OptionButton5 = False

If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then

OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False
OptionButton4.Visible = False
OptionButton5.Visible = False
Else
OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton3.Visible = True
OptionButton4.Visible = True
OptionButton5.Visible = True
End If
End Sub

 

[ابو حمادة]

ماهو للاسف انا مش بفهم في الاكواد وخبرتي محدوده جدا جدا جدا

مش بقدر افهم الكود غير مع التطبيق امامي

وعموما هو كدا شغال معقول ومش مهم الرساله مدام يادي الغرض

وشكرا ليك بجد وذادك الله علما