Hỏi cách sử dụng CheckBox và OptionButton

[duongnc]

Chào các Bác,

Em đang viết một đoạn code trong đó có liên quan đến User Form có chứa CheckBox và OptionButton nhưng không biết làm thế nào. Yêu cầu như sau:

- chọn Checkbox_1 để chạy Macro_1
- chọn Checkbox_2 để chạy Macro_2
- chọn cả Checkbox_1 và Checkbox_2 thì chạy cả Macro_1 và Macro_2

- Chọn Option_Duong_dan_1 để lưu file vào đường dẫn 1 (VD ổ C), hoặc
- Chọn Option_Duong_dan_2 để lưu file vào đường dẫn 2 (VD ổ D)

Bác nào có đoạn code nào đơn giản cho em xin để em tham khảo hoặc bác nào có thể giúp em trực tiếp vào VD trên thì tuyệt vời quá.

Cảm ơn các bác

 

[ndu96081631]

Cho hỏi: 4 đoạn code để làm các công việc chính bạn đã có chưa? Nếu đã có thì chỉ việc click phải vào từng Ọbecct, chọn Assign macro, gán từng macro vào từng object theo ý đồ của bạn!
Vậy: Code mới là quan trọng chứ không phải mấy cái Object ấy!
Bạn đưa code lên trước đi

 

[cadafi]

Chào các Bác,

Em đang viết một đoạn code trong đó có liên quan đến User Form có chứa CheckBox và OptionButton nhưng không biết làm thế nào. Yêu cầu như sau:

- chọn Checkbox_1 để chạy Macro_1
- chọn Checkbox_2 để chạy Macro_2
- chọn cả Checkbox_1 và Checkbox_2 thì chạy cả Macro_1 và Macro_2

Bạn thử đoạn code này xem, tương tự với CheckBox2, Option1 và Option2

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = 1 And Me.checkbook2.Value = 0 Then
  Call Macro_1
ElseIf Me.CheckBox1.Value = 0 And Me.checkbook2.Value = 1 Then
  Call Macro_2
ElseIf Me.CheckBox1.Value = 1 And Me.checkbook2.Value = 1 Then
  Call Macro_1
  Call Macro_2
End If
End Sub

 

[ptm0412]

Nếu bạn có 1 Command Button thì dùng code sau:

Private Sub CmdButton1_Click()
If Checkbox1 then Macro_1
If Checkbox2 then Macro_2
End Sub

Còn chọn đường dẫn thì bạn xem thí dụ sau, chỉ là thí dụ vì không biết code của bạn ra sao:

Sub LuuFile()
Dim Ddan as String
Ddan = IIf(optionButton1, "C:\aa.xls", "D:\aa.xls")
ActiveWorkbook.SaveAs Filename:=Ddan, FileFormat:= xlNormal
...
End Sub

Với điều kiện form chỉ có 2 optionbutton hoặc 2 optionbutton đã group lại.

 

[nguyen_dang]

Tạo Checkbox để In

Xin chào Anh Chị trên diễn đàn.

Mình có tham khảo một file In An của một Bạn trên diễn đàn (mình không nhớ nickname). Trong file có nói nếu đánh dấu vào checkbox thì sẽ TỰ IN theo số thứ tự. Mình đã thử nhưng không có tác dụng. Xin Anh Chị ( hoặc tác giả của file) xem hộ và sửa lại giúp minh. Cám on ANH CHI. Chúc ANH CHI sức khỏe và cống hiên nhiều cho diễn dàn. ANH CHỊ vui òng xem file đính kèm

 

[nghiaphuc]

Xin chào Anh Chị trên diễn đàn.

Mình có tham khảo một file In An của một Bạn trên diễn đàn (mình không nhớ nickname). Trong file có nói nếu đánh dấu vào checkbox thì sẽ TỰ IN theo số thứ tự. Mình đã thử nhưng không có tác dụng. Xin Anh Chị ( hoặc tác giả của file) xem hộ và sửa lại giúp minh. Cám on ANH CHI. Chúc ANH CHI sức khỏe và cống hiên nhiều cho diễn dàn. ANH CHỊ vui òng xem file đính kèm

Làm biếng nghiên cứu tiếp nên lấy tạm những gì có trong file của bạn "xào nấu" một xíu:
1. Trong Sub InPhieu, sửa dòng

If C6 = True Then

thành

If [C6] = True Then

2. Right click vào Checbox In và Assign Macro cho nó là Sub InPhieu
Bây giờ bạn thử thay đổi giá trị ở ScrollBar (để thay đổi STT) xem sao nhé.