Tạo vùng chọn không phụ thuộc vào tên sheet

[Thanh Bình PV]

Chào anh/chị GPE, Em có tạo 1 vài vùng chọn để lọc trùng dữ liệu (hình bên phải) nhưng e chỉ muốn lấy phạm vi của ô (phạm vi thay đổi thất thường) (hình ben trái).
Em cảm ơn.

 

[huuthang_bd]

Tôi phải nể chính mình nếu đoán đúng trong trường hợp này

Private Sub RefEdit1_Change()
On Error Resume Next
Dim Rng As Range, RngAdd1 As String, RngAdd2 As String
RngAdd1 = Me.RefEdit1.Value
Set Rng = Range(RngAdd1)
If Not Rng Is Nothing Then
    RngAdd2 = Rng.Address
    If RngAdd2 <> RngAdd1 Then Me.RefEdit1.Value = RngAdd2
End If
End Sub

 

[Thanh Bình PV]

Tôi phải nể chính mình nếu đoán đúng trong trường hợp này

Private Sub RefEdit1_Change()
On Error Resume Next
Dim Rng As Range, RngAdd1 As String, RngAdd2 As String
RngAdd1 = Me.RefEdit1.Value
Set Rng = Range(RngAdd1)
If Not Rng Is Nothing Then
    RngAdd2 = Rng.Address
    If RngAdd2 <> RngAdd1 Then Me.RefEdit1.Value = RngAdd2
End If
End Sub

Em đăng lộn hình ạ. E có tận 5 ô như vậy lận a... Là mình phải add 5 cái Private Sub RefEdit1_Change cho nó luôn ạ.