Tạo nút bấm chọn cột dữ liệu trong Excel

Nếu là người hay phải thao tác với các cột dữ liệu trong bảng tính Excel , bạn có thể tạo những nút bấm để thuận tiện trong công việc .

Ví dụ bạn có bảng dữ liệu như hình dưới

 

\"\"

 

Bạn tạo một Macro theo cách như sau , bấm tổ hợp phím Alt_F11 > Insert > Module

 

\"\"

 

Dán nội dung Macro như bên dưới

 

Sub SelectColumnData()
    Dim ac As Range
    Dim cr As Range
    Dim col As Integer
    Set ac = ActiveCell
    Set cr = ac.CurrentRegion
    col = ac.Column - cr.Column
    If cr.Rows.Count > 1 Then
        cr.Offset(1, col).Resize(cr.Rows.Count - 1, 1).Select
    End If
End Sub

 

Quay trở lại Excel để tạo nút bấm như sau

Chọn tab Developer  > Insert > Button

 

\"\"

 

Chọn vị trí và tạo nút bấm , gán nút này với Macro có tên là SelectColumnData

 

\"\"

 

Bấm chuột phải vào nút bấm và chọn Exit Edit Text sau đó sửa thành tên phù hợp trong nút bấm , ví dụ : Chọn cột dữ liệu

 

\"\"

 

Để làm việc bạn chỉ cần bấm chọn cột dữ liệu sau đó bấm nút Chọn cột dữ liệu

 

\"\"

 

\"\"