Xác định vùng dò tìm với biến chạy (1 người xem)

[FPT_online]

Em có đoạn code như sau

Sub tinhtong()
For Each cll In Range([A1], [A100].End(3))
If cll <> "" Then...
End Sub

Em muốn khi bắt đầu chạy code sẽ cho ra một hộp thoại nhập mảng dò tìm được không ạ
Như trên đây là [A1],[A100]. Có thể thay đổi thành [A500], [A550] được không ạ
Em cám ơn

 

[concogia]

Em có đoạn code như sau

Sub tinhtong()
For Each cll In Range([A1], [A100].End(3))
If cll <> "" Then...
End Sub

Em muốn khi bắt đầu chạy code sẽ cho ra một hộp thoại nhập mảng dò tìm được không ạ
Như trên đây là [A1],[A100]. Có thể thay đổi thành [A500], [A550] được không ạ
Em cám ơn

Thử thế này

Sub tinhtong()
Dim Cll, CaiGiDo
Set CaiGiDo = Application.InputBox("CaiChiChi", "ToTiTe", , , , , , 8)
For Each Cll In CaiGiDo
     Làm cái gì đó
Next Cll
..............
End Sub

Thân

 

[FPT_online]

Thử thế này

Sub tinhtong()
Dim Cll, CaiGiDo
Set CaiGiDo = Application.InputBox("CaiChiChi", "ToTiTe", , , , , , 8)
For Each Cll In CaiGiDo
     Làm cái gì đó
Next Cll
..............
End Sub

Thân

VD nhờ anh chỉ rõ luôn giúp em với

 

[concogia]

VD nhờ anh chỉ rõ luôn giúp em với

Híc, sao ngộ dzậy
Bạn chạy code, sẽ hiện bảng, dùng anh tý chọn vùng dữ liệu hoặc nhập trực tiếp từ bàn phím
Thí dụ muốn tính tổng của vùng [C1:E5]

Sub tinhtong()
    Dim Cll, CaiGiDo, Tong
    Set CaiGiDo = Application.InputBox("CaiChiChi", "ToTiTe", , , , , , 8)
        For Each Cll In CaiGiDo
            Tong = Tong + Cll
        Next Cll
     [A1]=Tong
End Sub

Chạy code, hiện bảng, chọn [C1:E5], Enter, cell [A1] sẽ nhận giá trị của Tong
Thân