Check box

[trong003]

Chào các bạn.

Mình hay làm check list, khi tạo các check box mình cần tạo cell link của check box để lấy dữ liệu đem sử dụng, nhưng số lượng các check box rất nhiều, nếu sửa từng cell link mất thời gian lắm, có cách nào khi ta tạo check box thì nó sẽ tự động tạo cell link không VD: ô A1 vẽ 1 cái check box thì tự động ô B1 sẽ là cell link của check box này? bó tay cái vụ này lâu quá rồi, mong các bạn giúp mình nhé.

Thanks!

 

[cadafi]

Chắc không được quá bạn à. Khi bạn tạo check box làm sao excel tự hiểu cell link là cái nào.

Ví dụ ô A1 vẽ 1 cái checkbox, sau đó kéo nó ra chỗ khác thì sao?
Ví dụ ô A2 vẽ 1 cái checkbox rồi kéo nó vào ô A1 thì sao?
Ví dụ vẽ 1 cái checkbox nhưng có chắc là lúc vẽ cái checkbox đó có nằm đúng trong ô A1 không?

Tuy nhiên cũng có 1 cách:

Sub CreateCheckBox()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=True, _
DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height).Select
Selection.LinkedCell = ActiveCell.Address
End Sub

Bạn chép đoạn code này vào module và tạo 1 nút command để khi tạo checkbox thì click nút này cho chạy đoạn code. Excel sẽ tự tạo 1 checkbox trên đúng ô có con trỏ đang đứng (ActiveCell) và lấy linked cell chính là ô active cell luôn.
Mình chưa lấy được linkcell là ô kế bên.

Không hiểu sao cái này lại chạy không được???

Selection.LinkedCell = Application.WorksheetFunction.Address(ActiveCell.Row,ActiveCell.Column+1)

Anh chị nào biết chỉ giúp.

 

[trong003]

Cảm ơn anh Kiệt nhiều, hehe như vậy cũng rút ngắn thời gian làm check list rồi. Ah, bữa trước em có hỏi cái biểu đồ, không biết anh còn nhớ không?hihi

 

[cadafi]

ô A1 vẽ 1 cái check box thì tự động ô B1 sẽ là cell link của check box này?

Vậy thì sửa lại câu lệnh cuối tí nhé.

Sub CreateCheckBox()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=True, _
DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height).Select
Selection.LinkedCell = Cells(ActiveCell.Row, ActiveCell.Column+1).Address ==>Sửa chỗ này
End Sub

 

[andredat]

thứ tự check

Chào mọi người,
Đạt gặp khó trong việc xác định thứ tự check nhờ mọi người giúp đỡ. Đạt nói cụ thể để mọi người dễ hình dung: Đạt có 1 sheet gồm 4 cột. Ở cột thứ nhất Đạt làm checkbox động (chọn ô trong vùng thì checck box hiện ra). Cột 2 và 3 dữ liệu bình thường. Cột thứ 4 Đạt muốn dòng nào được check đầu tiên thì cùng dòng đó ở cột thứ 4 này đánh là 1, tương tự dòng nào được check thứ nhì thì cùng dòng này ở cột thứ 4 điền số 2....... Mong nhận được sự giúp đỡ của mọi người. Đạt cảm ơn!