ارتباط OptionButton با کمبوباکس

[Amin_D]

متن مرتبط با ارتباط OptionButton با کمبوباکس

[hosseinamerey]

از این استفاده کن

Private Sub OptGender_Click(Index As Integer)
Select Case Index
    Case 0
            OptGender = 0
    Case 1
            OptGender = 1
    End Select
End Sub 

[hosseinamerey]

Dim strName As String
strName = InputBox(Prompt:="You name please.", _
Title:="COMPANY NAME", Default:="Enter Company Name")
Range("E1") = strName