code click chọn OptionButton thì hiện TextBox và CommandButton (1 người xem)

[Rùa Con 1080]

Chào mọi người, em có tạo Form nhập liệu, khi form Intalie, thì ẩn(Visible=False) hết các TextBox và CommandButton. Trên form có 2 OptionButton. Em muốn khi chọn OptionButton1 thì textBox1.Visible=True, khi chọn OptionButton2 thì TextBox1.Visible=False và CommandButton1.visible=True.
Mong mọi người giúp đỡ viết dùm code ah!!!!!

 

[Rùa Con 1080]

Em đã làm được, nhưng chỉ lần đầu, còn lần thứ hai thì không được như ý
Private Sub OptionButton1_Click()
TextBox1.Visible = True
End Sub
****************************
Private Sub OptionButton2_Click()
TextBox1.Visible = False
CommandButton1.Vsible = True
End Sub
nhưng khi nhấn OptionButton1 lần 2 thì không có thay đổi(chỉ còn lại TextBox1) cũng như nhấn OptionButton2.
Mong mọi người chỉ cách viết code lại(Em mới tập cót két)

 

[giaiphap]

Em đã làm được, nhưng chỉ lần đầu, còn lần thứ hai thì không được như ý
Private Sub OptionButton1_Click()
TextBox1.Visible = True
End Sub
****************************
Private Sub OptionButton2_Click()
TextBox1.Visible = False
CommandButton1.Vsible = True
End Sub
nhưng khi nhấn OptionButton1 lần 2 thì không có thay đổi(chỉ còn lại TextBox1) cũng như nhấn OptionButton2.
Mong mọi người chỉ cách viết code lại(Em mới tập cót két)

Với code này máy mình vẫn chạy ngon mà, đúng với yêu cầu của bạn luôn, cho dù bạn có click bao nhiêu lần đi nửa vẫn đúng.

 

[Rùa Con 1080]

Không đúng tức là khi nhấn OptionButton1 lần 1 thì TextBox1 hiện, nhấn OptionButton2 lần 1 thì CommandButton1 hiện TextBox1 ẩn, nhấn OptionButton1 lần 2 thì TextBox1 hiện và lúc này CommandButton1 vẫn hiện, và em đã thêm vào chổ
Private Sub OptionButton1_Click()
TextBox1.Visible = True
CommandButton1.Visible = False
End Sub
thì mới đúng.
Cám ơn Anh.

 

[Rùa Con 1080]

Mọi người cho em hỏi thêm, có thể sử dụng CommandButton với 2 điều kiện(theo OptionButton) không ah????
Em xin ví dụ như sau:
1/nếu OptionButton1 được chọn, thì nhấn vào CommandButton1 thì ghi dữ liệu vào Sheet2 từ A3 trở đi
2/nếu OptionButton2 được chọn thì nhần vào CommandButton1 thì ghi dữ liệu vào Sheet3 từ A3 trở đi.
kiểu như vòng lặp If............ Else...........
Mong mọi người giúp đỡ.

 

[giaiphap]

Mọi người cho em hỏi thêm, có thể sử dụng CommandButton với 2 điều kiện(theo OptionButton) không ah????
Em xin ví dụ như sau:
1/nếu OptionButton1 được chọn, thì nhấn vào CommandButton1 thì ghi dữ liệu vào Sheet2 từ A3 trở đi
2/nếu OptionButton2 được chọn thì nhần vào CommandButton1 thì ghi dữ liệu vào Sheet3 từ A3 trở đi.
kiểu như vòng lặp If............ Else...........
Mong mọi người giúp đỡ.

Muốn gì thì có file mới giải quyết nhanh được.

 

[Rùa Con 1080]

Em xin đưa File lên đây ah!!!
Khi chọn OptionButton"Nhập" nhập dữ liệu vào 4 TextBox và nhấn nút "GHI" thì nạp dữ liệu vào Sheet2!A33
Khi chọn OptionButton"Xuất" nhập dữ liệu vào 6 TextBox và nhấn nút "GHI" thì nạp dữ liệu vào Sheet3!A3:F3
Mong mọi người giúp đỡ!!!!!

 

[giaiphap]

Em xin đưa File lên đây ah!!!
Khi chọn OptionButton"Nhập" nhập dữ liệu vào 4 TextBox và nhấn nút "GHI" thì nạp dữ liệu vào Sheet2!A33
Khi chọn OptionButton"Xuất" nhập dữ liệu vào 6 TextBox và nhấn nút "GHI" thì nạp dữ liệu vào Sheet3!A3:F3
Mong mọi người giúp đỡ!!!!!

Thêm code này vào Form.

Private Sub cmd_Ghi_Click()
    If OptionButton1.Value Then
        Sheet2.Range("A3").Resize(, 4) = Array(tb_Ngay, tb_XN, tb_DH, TextBox1)
    ElseIf OptionButton2.Value Then
        Sheet3.Range("A3").Resize(, 6) = Array(tb_Ngay, tb_XN, tb_DH, TextBox1, TextBox2, TextBox3)
    End If
End Sub

 

[Rùa Con 1080]

Cám ơn Anh giaiphap, nhưng code của Anh thì ghi đè, không ghi được nhiều lần tiếp theo.
Mong Anh và mọi người xem giúp(dạng n+1).

 

[nttcntn]

Cám ơn Anh giaiphap, nhưng code của Anh thì ghi đè, không ghi được nhiều lần tiếp theo.
Mong Anh và mọi người xem giúp(dạng n+1).

Bạn dùng code này xem
Private Sub cmd_Ghi_Click()
If OptionButton1.Value Then
Sheet2.Range("a1048576").End(xlUp).Offset(1, 0).Resize(, 4) = Array(CDate(tb_Ngay), tb_XN, tb_DH, CDbl(TextBox1))
ElseIf OptionButton2.Value Then
Sheet3.Range("a1048576").End(xlUp).Offset(1, 0).Resize(, 6) = Array(CDate(tb_Ngay), tb_XN, tb_DH, CDbl(TextBox1), TextBox2, CDbl(TextBox3))
End If
End Sub

 

[giaiphap]

Cám ơn Anh giaiphap, nhưng code của Anh thì ghi đè, không ghi được nhiều lần tiếp theo.
Mong Anh và mọi người xem giúp(dạng n+1).

Tại bạn nêu yêu cầu không rõ ràng, bạn xem lại #7 sẽ thấy câu hỏi của bạn mâu thuẩn với yêu cầu thực tế của bạn.
Thật ra tôi cũng thấy rồi nhưng cố tình để cho bạn phát hiện, để lần sau đặt câu hỏi rõ ràng hơn.

 

[Rùa Con 1080]

Xin lỗi Anh giaiphap, tại em nói không rỏ, mong Anh và moị người bỏ qua.