Chọn vùng ô chưa biết trước trong VBA (2 người xem)

[khuongnguyencm69]

Các anh/chị giúp em làm sao khi nhấn vào nút button, hiện ra cái ô để mình chọn vùng dữ liệu mà mình muốn, như trong pivottable vậy đó, do không biết thuật ngữ trong VBA gọi là gì nên gõ google kiếm không thấy. Vì còn chicken nên hỏi vấn đề cơ bản, mọi người đừng cười nhé! hì

 

[befaint]

 

[Hau151978]

Các anh/chị giúp em làm sao khi nhấn vào nút button, hiện ra cái ô để mình chọn vùng dữ liệu mà mình muốn, như trong pivottable vậy đó, do không biết thuật ngữ trong VBA gọi là gì nên gõ google kiếm không thấy. Vì còn chicken nên hỏi vấn đề cơ bản, mọi người đừng cười nhé! hì

Bạn tìm kiếm google CurrentRegion nhé.

 

[befaint]

Bạn tìm kiếm google CurrentRegion nhé.

Dạ, em tìm như anh bảo nhưng nó không "hiện ra cái ô để mình chọn vùng dữ liệu mà mình muốn" ạ.

 

[Hau151978]

Dạ, em tìm như anh bảo nhưng nó không "hiện ra cái ô để mình chọn vùng dữ liệu mà mình muốn" ạ.

Lệnh activecell.usedregion.copy sẽ hiện ra cái khung đó. Mà xin lỗi bạn befaint bao nhiêu tuổi nhỉ?

 

[batman1]

RefEdit hoặc Application.InputBox với Type = 8

Private Sub CommandButton1_Click()
Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox(prompt:="Hay chon vung", Type:=8)
    On Error GoTo 0
    If rng Is Nothing Then
        MsgBox "Ban khong chon gi"
    Else
        MsgBox "Ban chon vung " & rng.Address(External:=True)
'         vd. ve su dung vung duoc chon
        rng.Interior.Color = RGB(0, 0, 255)
      End If
End Sub

 

[khuongnguyencm69]

Chân thành cảm ơn các anh/chị đã giúp đỡ nhé, đặt biệt là batman1, cách của anh thì dễ hiểu hơn, còn mấy cách khác thấy khó hiểu, có thể do dốt cao quá nên chưa hiểu được. Cảm ơn mọi người rất nhiều! Hì

 

[khuongnguyencm69]

RefEdit hoặc Application.InputBox với Type = 8

Private Sub CommandButton1_Click()
Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox(prompt:="Hay chon vung", Type:=8)
    On Error GoTo 0
    If rng Is Nothing Then
        MsgBox "Ban khong chon gi"
    Else
        MsgBox "Ban chon vung " & rng.Address(External:=True)
'         vd. ve su dung vung duoc chon
        rng.Interior.Color = RGB(0, 0, 255)
      End If
End Sub

Mà Batman1, cho hỏi cái On Error GoTo 0 có tác dụng gì? vì khi thử nghiệm, bỏ nó nay không bỏ thì cũng như nhau??? Có thể giải thích cho mình rõ hem??

 

[ndu96081631]

Lệnh activecell.usedregion.copy sẽ hiện ra cái khung đó. Mà xin lỗi bạn befaint bao nhiêu tuổi nhỉ?

Chưa từng nghe qua lệnh này bao giờ? Office 365 chăng?

 

[phihndhsp]

Các anh/chị giúp em làm sao khi nhấn vào nút button, hiện ra cái ô để mình chọn vùng dữ liệu mà mình muốn, như trong pivottable vậy đó, do không biết thuật ngữ trong VBA gọi là gì nên gõ google kiếm không thấy. Vì còn chicken nên hỏi vấn đề cơ bản, mọi người đừng cười nhé! hì

Không biết có phải bạn quan tâm tới cái này không? Application.InputBox hộp thoại hiện ra để chọn theo yêu cầu, chắc không chính xác rồi, trả lời xong mới thấy có rất nhiều bài đã trả lời trước rồi hihi

 

[Hau151978]

Chưa từng nghe qua lệnh này bao giờ? Office 365 chăng?

Cái này do em hiểu nhầm ý tác giả, khi insert pivot table nó xuất hiện khung nhấp nháy quanh cả bảng mặc dù lúc đầu chỉ chọn 1 ô. Em còn dư 1 slot office 365 home bản quyền đến 8/2019, bác có lấy không em tặng?

 

[ndu96081631]

Em còn dư 1 slot office 365 home bản quyền đến 8/2019, bác có lấy không em tặng?

Cảm ơn bạn nhưng mình... lỡ cài Office 2016 Pro Plus rồi

 

[batman1]

Mà Batman1, cho hỏi cái On Error GoTo 0 có tác dụng gì? vì khi thử nghiệm, bỏ nó nay không bỏ thì cũng như nhau??? Có thể giải thích cho mình rõ hem??

Giả sử bạn nhấn nút xong rồi nghĩ lại muốn hủy. Vậy bạn chọn Cancel. Bạn bỏ On Error ... rồi thử nhé.