Trong Excel làm thế nào để tạo nút lệnh vừa khít với ô, khi thay đổi chiều rộng cột hoặc dòng thì nút lệnh sẽ di chuyển theo, sau đây là 1 số cách thực hiện để làm điều đó:
1/ Code tự tạo nút Button tại B2:
Mã nguồn PHP:
[COLOR=#000000]
Sub TaoButton[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim Btn [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Button
Dim rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range
With Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Sheet1"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Set rng [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B2"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Set Btn [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Buttons[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Add[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Top[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Width[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Height[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]With Btn
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Button_nncb"
[/COLOR][COLOR=#0000BB]End With
End With
End Sub[/COLOR]
2/ Code tạo nút lệnh 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:
Mã nguồn PHP:
[COLOR=#000000]
Sub CoDinhCommanbutton[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]ActiveSheet[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Shapes[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"CommandButton1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select
With Selection
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Placement [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]xlMoveAndSize
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]PrintObject [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True
End With
End Sub[/COLOR]
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)
3/ 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.
View more random threads:
Epson - một trong những tập đoàn công nghệ hàng đầu thế giới, đã khẳng định vị thế tiên phong của mình trong lĩnh vực máy chiếu. Với bề dày lịch sử và sự đổi mới không ngừng, Epson không chỉ mang đến...
Lịch sử hình thành và phát triển của thương hiệu máy chiếu Epson