اذهب الي المحتوي
أوفيسنا

تعديل كود ترحيل قيمة أوبشن بوتن

أبوســـارة1973

بواسطه أبوســـارة1973
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

أبوســـارة1973

أبوســـارة1973

قام بنشر
قام بنشر

تعديل الكود التالي حيث يوجد به خطا فيما يخص تحويل قيمة   option Button

Private Sub CommandButton1_Click()
Dim r As Integer, lastrow As Long

'Sélectionner la feuille avant de compter son nombre de lignes
    Sheet4.Activate
    lastrow = DerniereLignePleine(1) + 1


    'If ajout_code_employe.Value <> "" Then
   
      '  For i = 2 To lastrow - 1
           
        Range("A" & lastrow) = TextBox1
        Range("B" & lastrow) = TextBox6
        Range("C" & lastrow) = ComboBox3
        Range("D" & lastrow) = TextBox3
        Range("E" & lastrow) = TextBox4
        Range("F" & lastrow) = TextBox5
        Range("G" & lastrow) = ComboBox1
        Range("H" & lastrow) = ComboBox2
        Range("I" & lastrow) = TextBox2
        Range("J" & lastrow) = ComboBox4
        Range("K" & lastrow) = ComboBox5
        Range("L" & lastrow) = TextBox33
       
     

 If OB1_1.Value = True Then Range("N" & lastrow) = 4
 If OB1_2.Value = True Then Range("N" & lastrow) = 3
 If OB1_3.Value = True Then Range("N" & lastrow) = 2
 If OB1_4.Value = True Then Range("N" & lastrow) = 1
 
 
 If OB2_1.Value = True Then Range("O" & lastrow) = 4
 If OB2_2.Value = True Then Range("O" & lastrow) = 3
 If OB2_3.Value = True Then Range("O" & lastrow) = 2
 If OB2_4.Value = True Then Range("O" & lastrow) = 1

 If OB3_1.Value = True Then Range("P" & lastrow) = 4
 If OB3_2.Value = True Then Range("P" & lastrow) = 3
 If OB3_3.Value = True Then Range("P" & lastrow) = 2
 If OB3_4.Value = True Then Range("P" & lastrow) = 1

 If OB4_1.Value = True Then Range("Q" & lastrow) = 4
 If OB4_2.Value = True Then Range("Q" & lastrow) = 3
 If OB4_3.Value = True Then Range("Q" & lastrow) = 2
 If OB4_4.Value = True Then Range("Q" & lastrow) = 1
 
 If OB5_1.Value = True Then Range("R" & lastrow) = 4
 If OB5_2.Value = True Then Range("R" & lastrow) = 3
 If OB5_3.Value = True Then Range("R" & lastrow) = 2
 If OB5_4.Value = True Then Range("R" & lastrow) = 1
 
 If OB6_1.Value = True Then Range("S" & lastrow) = 4
 If OB6_2.Value = True Then Range("S" & lastrow) = 3
 If OB6_3.Value = True Then Range("S" & lastrow) = 2
 If OB6_4.Value = True Then Range("S" & lastrow) = 1

 If OB7_1.Value = True Then Range("T" & lastrow) = 4
 If OB7_2.Value = True Then Range("T" & lastrow) = 3
 If OB7_3.Value = True Then Range("T" & lastrow) = 2
 If OB7_4.Value = True Then Range("T" & lastrow) = 1
 
 If OB8_1.Value = True Then Range("U" & lastrow) = 4
 If OB8_2.Value = True Then Range("U" & lastrow) = 3
 If OB8_3.Value = True Then Range("U" & lastrow) = 2
 If OB8_4.Value = True Then Range("U" & lastrow) = 1
 
 If OB9_1.Value = True Then Range("V" & lastrow) = 4
 If OB9_2.Value = True Then Range("V" & lastrow) = 3
 If OB9_3.Value = True Then Range("V" & lastrow) = 2
 If OB9_4.Value = True Then Range("V" & lastrow) = 1

 If OB10_1.Value = True Then Range("W" & lastrow) = 4
 If OB10_2.Value = True Then Range("W" & lastrow) = 3
 If OB10_3.Value = True Then Range("W" & lastrow) = 2
 If OB10_4.Value = True Then Range("W" & lastrow) = 1
     
 If OB11_1.Value = True Then Range("X" & lastrow) = 4
 If OB11_2.Value = True Then Range("X" & lastrow) = 3
 If OB11_3.Value = True Then Range("X" & lastrow) = 2
 If OB11_4.Value = True Then Range("X" & lastrow) = 1
         
 If OB12_1.Value = True Then Range("Y" & lastrow) = 4
 If OB12_2.Value = True Then Range("Y" & lastrow) = 3
 If OB12_3.Value = True Then Range("Y" & lastrow) = 2
 If OB12_4.Value = True Then Range("Y" & lastrow) = 1
         
 If OB13_1.Value = True Then Range("Z" & lastrow) = 4
 If OB13_2.Value = True Then Range("Z" & lastrow) = 3
 If OB13_3.Value = True Then Range("Z" & lastrow) = 2
 If OB13_4.Value = True Then Range("Z" & lastrow) = 1

 If OB14_1.Value = True Then Range("AA" & lastrow) = 4
 If OB14_2.Value = True Then Range("AA" & lastrow) = 3
 If OB14_3.Value = True Then Range("AA" & lastrow) = 2
 If OB14_4.Value = True Then Range("AA" & lastrow) = 1

 If OB15_1.Value = True Then Range("AB" & lastrow) = 4
 If OB15_2.Value = True Then Range("AB" & lastrow) = 3
 If OB15_3.Value = True Then Range("AB" & lastrow) = 2
 If OB15_4.Value = True Then Range("AB" & lastrow) = 1
         
 If OB16_1.Value = True Then Range("AC" & lastrow) = 4
 If OB16_2.Value = True Then Range("AC" & lastrow) = 3
 If OB16_3.Value = True Then Range("AC" & lastrow) = 2
 If OB16_4.Value = True Then Range("AC" & lastrow) = 1
             
 If OB17_1.Value = True Then Range("AD" & lastrow) = 4
 If OB17_2.Value = True Then Range("AD" & lastrow) = 3
 If OB17_3.Value = True Then Range("AD" & lastrow) = 2
 If OB17_4.Value = True Then Range("AD" & lastrow) = 1
             
 If OB18_1.Value = True Then Range("AE" & lastrow) = 4
 If OB18_2.Value = True Then Range("AE" & lastrow) = 3
 If OB18_3.Value = True Then Range("AE" & lastrow) = 2
 If OB18_4.Value = True Then Range("AE" & lastrow) = 1
 
 If OB19_1.Value = True Then Range("AF" & lastrow) = 4
 If OB19_2.Value = True Then Range("AF" & lastrow) = 3
 If OB19_3.Value = True Then Range("AF" & lastrow) = 2
 If OB19_4.Value = True Then Range("AF" & lastrow) = 1
    
 If OB20_1.Value = True Then Range("AG" & lastrow) = 4
 If OB20_2.Value = True Then Range("AG" & lastrow) = 3
 If OB20_3.Value = True Then Range("AG" & lastrow) = 2
 If OB20_4.Value = True Then Range("AG" & lastrow) = 1
    
 If OB21_1.Value = True Then Range("AH" & lastrow) = 4
 If OB21_2.Value = True Then Range("AH" & lastrow) = 3
 If OB21_3.Value = True Then Range("AH" & lastrow) = 2
 If OB21_4.Value = True Then Range("AH" & lastrow) = 1
    
 If OB22_1.Value = True Then Range("AI" & lastrow) = 4
 If OB22_2.Value = True Then Range("AI" & lastrow) = 3
 If OB22_3.Value = True Then Range("AI" & lastrow) = 2
 If OB22_4.Value = True Then Range("AI" & lastrow) = 1
    
 If OB23_1.Value = True Then Range("AJ" & lastrow) = 4
 If OB23_2.Value = True Then Range("AJ" & lastrow) = 3
 If OB23_3.Value = True Then Range("AJ" & lastrow) = 2
 If OB23_4.Value = True Then Range("AJ" & lastrow) = 1
    
 If OB24_1.Value = True Then Range("AK" & lastrow) = 4
 If OB24_2.Value = True Then Range("AK" & lastrow) = 3
 If OB24_3.Value = True Then Range("AK" & lastrow) = 2
 If OB24_4.Value = True Then Range("AK" & lastrow) = 1

 If OB25_1.Value = True Then Range("AL" & lastrow) = 4
 If OB25_2.Value = True Then Range("AL" & lastrow) = 3
 If OB25_3.Value = True Then Range("AL" & lastrow) = 2
 If OB25_4.Value = True Then Range("AL" & lastrow) = 1
    
 If OB26_1.Value = True Then Range("AM" & lastrow) = 4
 If OB26_2.Value = True Then Range("AM" & lastrow) = 3
 If OB26_3.Value = True Then Range("AM" & lastrow) = 2
 If OB26_4.Value = True Then Range("AM" & lastrow) = 1
    
 If OB27_1.Value = True Then Range("AN" & lastrow) = 4
 If OB27_2.Value = True Then Range("AN" & lastrow) = 3
 If OB27_3.Value = True Then Range("AN" & lastrow) = 2
 If OB27_4.Value = True Then Range("AN" & lastrow) = 1
    
 If OB28_1.Value = True Then Range("AO" & lastrow) = 4
 If OB28_2.Value = True Then Range("AO" & lastrow) = 3
 If OB28_3.Value = True Then Range("AO" & lastrow) = 2
 If OB28_4.Value = True Then Range("AO" & lastrow) = 1

 If OB29_1.Value = True Then Range("AP" & lastrow) = 4
 If OB29_2.Value = True Then Range("AP" & lastrow) = 3
 If OB29_3.Value = True Then Range("AP" & lastrow) = 2
 If OB29_4.Value = True Then Range("AP" & lastrow) = 1
    
 If OB30_1.Value = True Then Range("AQ" & lastrow) = 4
 If OB30_2.Value = True Then Range("AQ" & lastrow) = 3
 If OB30_3.Value = True Then Range("AQ" & lastrow) = 2
 If OB30_4.Value = True Then Range("AQ" & lastrow) = 1
 
 If OB31_1.Value = True Then Range("AR" & lastrow) = 4
 If OB31_2.Value = True Then Range("AR" & lastrow) = 3
 If OB31_3.Value = True Then Range("AR" & lastrow) = 2
 If OB31_4.Value = True Then Range("AR" & lastrow) = 1
 
 
     
    
     '  For r = 0 To 8
    'Me.Controls(myCon(r)) = ""
'NexT
 
 

       
       
        MsgBox Prompt:="ÊãÊ ÚãáíÉ ÅÖÇÝÉ ãæÙÝ ÌÏíÏ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"
      

 OB1_1.Value = False
 OB1_2.Value = False
 OB1_3.Value = False
 OB1_4.Value = False
' OB2_1.Value = False
 'OB2_2.Value = False
 'OB2_3.Value = False
 'OB2_4.Value = False
 'OB3_1.Value = False
 'OB3_2.Value = False
 'OB3_3.Value = False
 'OB3_4.Value = False
 'OB4_1.Value = False
 'OB4_2.Value = False
 'OB4_3.Value = False
 'OB4_4.Value = False
       
       
      
End Sub

المطلوب في هذا الكود هو ترحيل قيمة الأوبشن بوتن ( option Button) بحيث إذا تم ختيار الأول من المجموعة الأولى يعطي رقم 4 في الخلية المحددة والثاني يعطي 3 والثالث يعطي قيمة 2 والأخير يعطية قيمة 1

وهكذا فب بقية المجموعات

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept