Tạo Button có kích thước bằng một ô và nằm ở vị trí ô đó.

[nncb2008]

Chào các anh/chị trên diễn đàn.
Xin được sự trợ giúp từ các anh chị.
Tôi muốn viết một Macro có chức năng như sau: Tạo ra một Button có kích thước bằng ô B2 và nằm đúng vào vị trí ô B2 đó, Button có text là "Button_nncb" và gọi đến Macro1.
Loay hoay mãi mà không làm được mong các anh/chị giúp đỡ. Xin cảm ơn.

 

[be_09]

Chào các anh/chị trên diễn đàn.
Xin được sự trợ giúp từ các anh chị.
Tôi muốn viết một Macro có chức năng như sau: Tạo ra một Button có kích thước bằng ô B2 và nằm đúng vào vị trí ô B2 đó, Button có text là "Button_nncb" và gọi đến Macro1.
Loay hoay mãi mà không làm được mong các anh/chị giúp đỡ. Xin cảm ơn.

1/ Code tự tạo nút Button tại B2:

Sub TaoButton()
Dim Btn As Button
Dim rng As Range
With Worksheets("Sheet1")
Set rng = .Range("B2")
Set Btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
With Btn
.Caption = "Button_nncb"
End With
End With
End Sub

2/ Code sử dụng cho CommandButton:
Vẽ CommandButton1 từ góc trái trên B2, nhấn nút Alt và thả chuột nó sẽ tự vẽ CommandButton1 nằm gọn vào B2, Click phải CommandButton1, trong cửa sổ Properties mục Caption gõ Button_nncb, xong click phải vào tên sheet cửa sổ code hiện ra bạn đặt Code sau vào:

Sub CoDinhCommanbutton()
ActiveSheet.Shapes("CommandButton1").Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End Sub

Trở về cửa sổ Excel chạy Macro CoDinhCommanbutton xong click vào thước Eke (Exit Design Mode), bây giờ bạn di chuyển cột và dòng để xem kết quả (xem File ở sheet 3)

Lưu ý:
- Trong File ở Sheet 1 tôi sử dụng macro có tên TaoButton để tự tạo nút Button (xem code trong File)
- Trong File ở Sheet 1 tôi sử dụng macro có tên TaoCommandButton để tạo nút CommandButton1 (xem code trong File)

 

[be_09]

Cách khác đơn giản mà không cần dùng Code:

Vẽ CommandButton1 từ góc trái trên B2, nhấn nút Alt và thả chuột nó sẽ tự vẽ CommandButton1 nằm gọn vào B2, Click phải CommandButton1, trong cửa sổ Format Control, cửa sổ Format Control xuất hiện và chọn thẻ Properties, đánh dấu chọn vào mục Move and size with cells xong nhấn nút OK.

Lưu ý: Nếu bạn muốn in bảng tính mà không có nút CommandButton1 thì bỏ chọn mục Print objec.