Tạo nút lệnh vừa khít với ô trong Excel

be09

Member
Hội viên mới
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:

PHP:
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 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:

PHP:
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)

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.
 

Đính kèm

  • Tao Nut Lenh.xls
    41 KB · Lượt xem: 487
Sửa lần cuối:

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top