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)

  • Thread starter Thread starter Thúy Sa
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

Thúy Sa

Thành viên mới
Tham gia
19/9/20
Bài viết
46
Được thích
7
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

1683255147526.png
 
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
 
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 ạ

1683279443617.png
 
Ai lại chọn tới chọn lui như vậy. Bạn dùng 1 dòng này là được.
Mã:
Range(Range("K24"), Range("K24").End(xlDown).Offset(-1)).Select
 
Web KT

Bài viết mới nhất

Back
Top Bottom