Изменить выбор кнопки выбора в пользовательской форме - PullRequest
Новая
       6

Изменить выбор кнопки выбора в пользовательской форме

0 голосов
/ 05 июня 2018

Я создал vba для изменения параметров в пользовательской форме и частично преуспел.Но я не могу изменить данные для кнопки выбора и флажка.Я получаю сообщение как «Ложь» в этом ряду.Пожалуйста, помогите мне! 

Private Sub cmdupdate_Click() 
    If Me.cmbslno.Value = "" Then 
        MsgBox "SL No Can Not be Blank!", vbExclamation, "SL No" 
        Exit Sub 
    End If 

    SLNo = Me.cmbslno.Value Sheets("Data").Select 

    Dim rowselect As Double 
    rowselect = Me.cmbslno.Value 
    rowselect = rowselect + 3 
    Rows(rowselect).Select 
    Cells(rowselect, 2) = Me.TextEmpCode.Value 
    Cells(rowselect, 3) = Me.TextEmpName.Value 
    **Cells(rowselect, 5) = Me.Option1.Value 
    Cells(rowselect, 5) = Me.Option2.Value 
    Cells(rowselect, 5) = Me.Option3.Value** 
    Cells(rowselect, 17) = Me.TextBox1.Value 
    Cells(rowselect, 18) = Me.TextBox2.Value 
    Cells(rowselect, 19) = Me.TextBox3.Value
    Cells(rowselect, 20) = Me.TextIncome.Value 
End Sub

Ответы [ 2 ]

0 голосов
/ 05 июня 2018

Вы хотите поместить в ячейку «Вариант 1», «Вариант 2» или «Вариант 3»?

Измените следующее: 

Cells(rowselect, 5) = Me.Option1.Value 
Cells(rowselect, 5) = Me.Option2.Value 
Cells(rowselect, 5) = Me.Option3.Value

На 

Cells(rowselect, 5) = IIf(Me.Option1.Value, "Option 1", IIf(Me.Option2.Value, "Option 2", "Option 3"))
0 голосов
/ 05 июня 2018

Можете ли вы проверить вот так: 

Cells(rowselect, 21) = Me.Option1.Value 
Cells(rowselect, 22) = Me.Option2.Value 
Cells(rowselect, 23) = Me.Option3.Value

Столбец 5 дается 3 раза, они перекрываются каждый раз.

...