Help Move and size with cell cho checkbox form control? (1 người xem)

[lekhoa]

Làm thế nào để Checkbox form control di chuyển và thay đổi kích thước theo cell (giá trị Move and Size with cell của thuộc tính placement) trong VBA?
Trong excel có thể làm điều này bằng cách chọn checkbox sau đó vào format sharp, chọn Move and size with cell trong phần properties. Lưu ý nếu vào format control thì tùy chọn này bị mờ đi. Xem checkbox 3 trong file đính kèm.
Mình ghi lại thao tác này trong 2 macro, nhưng khi thử run macro thì nó không đúng, tức là thuộc tính placement của checkbox vẫn không nhận giá trị Move and size with cell. Do đó, khi thay đổi kích thước cell nó vẫn không đổi theo. Xem checkbox 4 trong file đính kèm.
Đang sử dụng cho excel 2010 và 2013 đều bị vậy.
Tóm lại: là mình muốn tạo check box form control cho cell và thiết lập nó để khi di chuyển hay thay đổi kích thước cell nó vẫn di chuyển và thay đổi kích thước tương ứng (tức là Move and size with cell). Như cái checkbox 3 vậy. Làm trong VBA nhé. Không sử dụng Checkbox Active X control vì nó thay đổi kích thước của cái ô checkbox luôn.
Cảm ơn.

 

[ndu96081631]

Tóm lại: là mình muốn tạo check box form control cho cell và thiết lập nó để khi di chuyển hay thay đổi kích thước cell nó vẫn di chuyển và thay đổi kích thước tương ứng (tức là Move and size with cell). Như cái checkbox 3 vậy. Làm trong VBA nhé. Không sử dụng Checkbox Active X control vì nó thay đổi kích thước của cái ô checkbox luôn.
Cảm ơn.

Có thể chơi "chiêu" thế này:

Sub Test()
  With ActiveSheet
    .Shapes.AddLine(1, 1, 2, 2).Name = "Line 1"
    .Shapes.Range(Array("Check Box 4", "Line 1")).Select
    Selection.Placement = xlMoveAndSize
    .Shapes("Line 1").Delete
  End With
End Sub

Với Check Box 4 là cái checkbox bạn muốn điều chỉnh

 

[lekhoa]

Thank anh ndu96081631 nhiều. Như vậy mà cũng nghĩ ra. Bái phục anh quá.
P/s: Hình như anh trong ban quản trị, em nhờ anh giúp gõ tiếng việt trong diễn đàn giúp. Là người cũng rành máy tính nhưng em that sự bó tay rồi. Gõ chừng này mà mất hơn 15 phút đấy, đang thử nghiệm với F12 để tắt bộ gõ diễn đàn nên không dung notepad đấy. Kết quả là tiêu hơn 15 phút. Em hỏi ở topic này: http://www.giaiphapexcel.com/forum/...-nội-dung-được&p=654951&highlight=#post654951

 

[ndu96081631]

Em mới làm quen với Macro thôi. A có thể giúp e click lệnh Move and size with cell hàng checkbox trong bảng khối lượng bên dưới được ko. thank's a

Áp dung bài 2 thôi:

Sub Test()
  Dim cb As CheckBox
  Application.ScreenUpdating = False
  For Each cb In ActiveSheet.CheckBoxes
    With cb.Parent
      .Shapes.AddLine(1, 1, 2, 2).Name = "Line 1"
      .Shapes.Range(Array(cb.Name, "Line 1")).Select
      Selection.Placement = xlMoveAndSize
      .Shapes("Line 1").Delete
    End With
  Next
  Application.ScreenUpdating = True
  MsgBox "Done!"
End Sub

Chỉ them vòng lập duyệt qua toàn bộ các checkboxes