Option button & textbox

  1. 2 tahun lalu

    Halo para sepuh mau bertanya aku punya case nih
    Kan aku punya 3 option button
    Nama namanya a, b, c. Lalu disetiap button sebelahnya ada textbox
    Nah pertanyaanya,
    Bagaimana membuat option button tersebut bila dipilih 1 lalu kita bisa focus mengisi textbox sesuai dengan diseblahnya
    Option button 1 - textbox1
    Option button 2- textbox2

    Kalo kita pilih option button 2 maka textbox 2 yg bisa kita input dan yg lainnya tidak bisa diinput. Terimakasih

  2. gimana klo seperti ini mas?

    semoga membantu

  3. Hai sepuh hehehe makasih nih ,
    Tapi sepuh aku bukanya didalam hp dan entah mengapa di hp ga bisa buka macro
    Boleh dilampirkan code nya tidak hehehhehe
    Maafkan org yg menyusahkan sepuh ini

    • Buat 1 userform dg nama userform1
    • Buat 3 option button dg nama masih asli(option button1,2,3,etc)
    • Buat 3 textbox dg nama masih asli (textbox1,2,3,etc)
    • Buat 2 command button (pertama :CmdOK,kedua cmdReset)

    lalu paste kan ke userform codenya:

    Private Sub CmdOK_Click()
    If OptionButton1.Value = True Then MsgBox "OptionButton1 : " & OptionButton1.Caption & " Was select with textbox value : " & TextBox1.Text
    If OptionButton2.Value = True Then MsgBox "OptionButton2 : " & OptionButton2.Caption & " Was select with textbox value : " & TextBox2.Text
    If OptionButton3.Value = True Then MsgBox "OptionButton3 : " & OptionButton3.Caption & " Was select with textbox value : " & TextBox3.Text
    End Sub
    
    Private Sub CmdReset_Click()
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    End Sub
    
    Private Sub OptionButton1_Click()
    CmdReset_Click
    TextBox1.SetFocus
    TextBox1.Locked = False
    TextBox2.Locked = True
    TextBox3.Locked = True
    End Sub
    Private Sub OptionButton2_Click()
    CmdReset_Click
    TextBox2.SetFocus
    TextBox1.Locked = True
    TextBox2.Locked = False
    TextBox3.Locked = True
    End Sub
    Private Sub OptionButton3_Click()
    CmdReset_Click
    TextBox3.SetFocus
    TextBox1.Locked = True
    TextBox2.Locked = True
    TextBox3.Locked = False
    End Sub
    
    Private Sub UserForm_Activate()
    TextBox1.Locked = True
    TextBox2.Locked = True
    TextBox3.Locked = True
    End Sub
    

  4. Wahh terimakasih sepuhh
    Mantap jiwah

  5. sama sama bro

    senang bisa membantu

 

atau Mendaftar untuk ikut berdiskusi!