anh chị cho em hỏi, làm sao mình chọn các ô liên tiếp có dữ liệu đến ô kế cuối (1 người xem)

[Thúy Sa]

ví dụ: Từ ô K24 đến K40, là có dữ liêu, từ ô K41 thì ko có ,
em chọn các ô liên tiếp ( theo cột) từ K24 đến đến hết ô là K40 thì em có code marco:

Range("K24").Select
Range(Selection, Selection.End(xlDown)).Select

Nhưng em muốn chọn từ ô K24 đến K39 thì mình làm sao ạ?

Em cám ơn

 

[BuiQuangThuan]

Em cám ơn

Phải đưa vào box lập trình chứ sao lại ở box hàm và công thức thế này?

 

[VetMini]

Bảng tính:
- giữ phím shift
- nhấn Ctrl+mũi tên xuống
- vẫn giữ phím shift
- nhấn mũi tên lên.

Hàm: không có hàm nào điều khiển được thao tác bảng tính cả

VBA:
thêm vào code sẵn có:
If Selection.Rows > 1 Then
Selection.Resize(Selection.Rows - 1).Select
Else
Selection.Offset( -1, 0).Select
End If

 

[Thúy Sa]

Phải đưa vào box lập trình chứ sao lại ở box hàm và công thức thế

Bảng tính:
- giữ phím shift
- nhấn Ctrl+mũi tên xuống
- vẫn giữ phím shift
- nhấn mũi tên lên.

Hàm: không có hàm nào điều khiển được thao tác bảng tính cả

VBA:
thêm vào code sẵn có:
If Selection.Rows > 1 Then
Selection.Resize(Selection.Rows - 1).Select
Else
Selection.Offset( -1, 0).Select
End If

Bảng tính:
- giữ phím shift
- nhấn Ctrl+mũi tên xuống
- vẫn giữ phím shift
- nhấn mũi tên lên.

Hàm: không có hàm nào điều khiển được thao tác bảng tính cả

VBA:
thêm vào code sẵn có:
If Selection.Rows > 1 Then
Selection.Resize(Selection.Rows - 1).Select
Else
Selection.Offset( -1, 0).Select
End If

Bảng tính:
- giữ phím shift
- nhấn Ctrl+mũi tên xuống
- vẫn giữ phím shift
- nhấn mũi tên lên.

Hàm: không có hàm nào điều khiển được thao tác bảng tính cả

VBA:
thêm vào code sẵn có:
If Selection.Rows > 1 Then
Selection.Resize(Selection.Rows - 1).Select
Else
Selection.Offset( -1, 0).Select
End If

Em làm như anh nói, chạy mã như trên, nhưng nó bị báo lỗi anh, anh sửa lỗi giúp em với. Em cám ơn ạ

 

[BuiQuangThuan]

Em làm như anh nói, chạy mã như trên, nhưng nó bị báo lỗi anh, anh sửa lỗi giúp em với. Em cám ơn ạ

Có lẽ phải là thì phải. Đang đoán.

Selection.Rows.Count > 1

 

[huuthang_bd]

Ai lại chọn tới chọn lui như vậy. Bạn dùng 1 dòng này là được.

Range(Range("K24"), Range("K24").End(xlDown).Offset(-1)).Select

 

[Thúy Sa]

Có lẽ phải là thì phải. Đang đoán.

Selection.Rows.Count > 1

Dạ em cám ơn anh @BuiQuangThuan, @huuthang_bd và @VetMini nhé. ♡♡♡♡♡