[Help] Chọn Vùng dữ liệu thực hiện macro (1 người xem)

[hoangtrong_vbnd]

Hi các bác,
Thực sự e cũng ko biết trên diễn đàn trao đổi chưa vì chưa rõ từ khó. Nên Nhờ các bác chỉ giáo cách viết về vùng dữ liệu tự chọn (chọn cột, chọn vùng ...)
VÍ Dụ: làm mới vùng dữ liệu ko có công thức, dùng tính năng record được đoạn mã

Sub Macro1()
    Range("J1:J16").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Vậy vùng "Range("J1:J16").Select" e muốn lấy chuột vùng bất kỳ rồi thực hiện đoạn mã sau.

 

[befaint]

Bạn xóa dòng Range("J1:J16").Select đi là được.

 

[hoangtrong_vbnd]

Bạn xóa dòng Range("J1:J16").Select đi là được.

Cảm ơn bác nhiều. Bác cho e hỏi thêm 1 câu cuối, là trường hợp có 2 vùng 1 lấy dữ liệu và 1 xuất ra
Ví dụ: chuyển vùng từ dọc sang ngang

Sub Macro3()
Range("J1:J16").Select
Application.CutCopyMode = False
Selection.Copy
Range("G17").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

thì có thể xử lý thế nào để lấy dữ liệu vào bất kỳ, và xuất ra tại 1 vùng bất kỳ khác. E cảm ơn !

 

[ndu96081631]

Cảm ơn bác nhiều. Bác cho e hỏi thêm 1 câu cuối, là trường hợp có 2 vùng 1 lấy dữ liệu và 1 xuất ra
Ví dụ: chuyển vùng từ dọc sang ngang

thì có thể xử lý thế nào để lấy dữ liệu vào bất kỳ, và xuất ra tại 1 vùng bất kỳ khác. E cảm ơn !

dùng InputBox để tùy biến vùng chọn

 

[phulien1902]

.......... lấy dữ liệu vào bất kỳ, và xuất ra tại 1 vùng bất kỳ khác....

Bạn tham khảo:

Sub abc()
    Dim VungDL As Range
    Set VungDL = Application.InputBox(Prompt:="Quet vung du lieu can di chuyen", Title:="Thong bao", Type:=8)
    VungDL.Copy ActiveCell
    ActiveCell.Select
End Sub

 

[ndu96081631]

Bạn tham khảo:

Sub abc()
    Dim VungDL As Range
    Set VungDL = Application.InputBox(Prompt:="Quet vung du lieu can di chuyen", Title:="Thong bao", Type:=8)
    VungDL.Copy ActiveCell
    ActiveCell.Select
End Sub

Dùng InputBox (hay nói chung bất cứ code loại nào) cũng phải nghĩ đến việc bẫy lỗi. Nếu InputBox hiện ra mà người ta bấm Cancel thì tính sao

 

[phulien1902]

Dùng InputBox (hay nói chung bất cứ code loại nào) cũng phải nghĩ đến việc bẫy lỗi. Nếu InputBox hiện ra mà người ta bấm Cancel thì tính sao

Em xin cảm ơn bác nhiều, vậy em thêm dòng dưới:

On Error Resume Next

 

[ndu96081631]

Em xin cảm ơn bác nhiều, vậy em thêm dòng dưới:

On Error Resume Next

On Error Resume Next không phải lúc nào cũng tốt.
Thử nghĩ tình huống: tác giả yêu cầu vùng đặt kết quả (paste) cũng phải tùy biến thông qua InputBox. Lúc đó bạn sẽ thấy On Error Resume Next khiến code chạy rất... vô duyên
Nói chung, bẫy lỗi sao là tùy mỗi người, vấn đề là bạn phải làm chủ được tiến trình diễn ra trên code của bạn

 

[phulien1902]

On Error Resume Next không phải lúc nào cũng tốt.
Thử nghĩ tình huống: tác giả yêu cầu vùng đặt kết quả (paste) cũng phải tùy biến thông qua InputBox. Lúc đó bạn sẽ thấy On Error Resume Next khiến code chạy rất... vô duyên
Nói chung, bẫy lỗi sao là tùy mỗi người, vấn đề là bạn phải làm chủ được tiến trình diễn ra trên code của bạn

Em xin cảm ơn bác, em sẽ cố gắng sửa dần dần.
Mọi thứ phải có thời gian, phải vậy không bác.