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?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ế
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 ạ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
Có lẽ phải là thì phải. Đang đoán.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 ạ
Selection.Rows.Count > 1
Range(Range("K24"), Range("K24").End(xlDown).Offset(-1)).Select
Dạ em cám ơn anh @BuiQuangThuan, @huuthang_bd và @VetMini nhé. ♡♡♡♡♡Có lẽ phải là thì phải. Đang đoán.Mã:Selection.Rows.Count > 1