Lấy địa chỉ cell vào vba khi click chọn

[tuyetbay]

Em có viết code như vầy:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String
Application.ScreenUpdating = False
[COLOR=red]Target.Address = a
[/COLOR]'....
End Sub

Nhưng nó không chạy. Không biết phải viết thế nào cho đúng, mong các bác giúp hoàn thiện code giùm.
Cảm ơn nhiều!

 

[anhtuan1066]

Tôi nghĩ phải là:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String
Application.ScreenUpdating = False
[COLOR=red]a =Target.Address[/COLOR] 
'....
End Sub

Đảo vị trí hình như có sự khác biệt...
ANH TUẤN

 

[tuyetbay]

Cảm ơn bác nhiều. Bây giờ thì em đã hiểu!

Cho em xin hỏi 1 câu nữa nha!
Bác có cách nào dùng lệnh gì để làm dừng 1 hàm chạy vòng tròn mãi không. Giống như lệnh Application.Run "Macro" Nhưng giờ là Application.Stop "Macro".

 

[anhtuan1066]

Cho em xin hỏi 1 câu nữa nha!
Bác có cách nào dùng lệnh gì để làm dừng 1 hàm chạy vòng tròn mãi không. Giống như lệnh Application.Run "Macro" Nhưng giờ là Application.Stop "Macro".

Chưa hiểu bạn định làm gì! Thông thường thì ta sẽ dựa vào 1 d/k nào đó và sẽ chạy lệnh Exit Sub... chẳng hạn như:

If Target.Column > .... or Target.Row > ... then Exit Sub

vân vân và vân vân...
với cái vụ "chạy vòng tròn" như bạn nói tôi thường cho biến K tăng lên 1 trong mổi vòng... Với K đạt dc giá trị nào đó thì EXIT SUB
Nếu có gì khác hơn nữa chắc bạn phải post file lên quá... trình độ i tờ của tôi chỉ biết đến đây!
ANH TUẤN

 

[tuyetbay]

Cái Exit Sub chỉ xài khi nào điều kiện không thỏa. Nhưng muốn cho nó chạy mãi rồi nhưng giờ thì lại không dừng được nữa biết sao đây.
Bác xem file đính kèm. Rồi thêm 1 code cho vào để chỉ cần nhấn vào 1 ô nào đó bất kỳ thì chương trình chạy này dừng lại.
Bác xem coi có cách nào không?

 

[anhtuan1066]

Với macro của bạn tôi chỉ nghĩ dc chiêu Ctrl + Pause Break

 

[tuyetbay]

Cảm ơn bác nhưng em muốn khi code chạy thì khi mình nhấn vào 1 ô bất kỳ thì nó sẽ dừng lại. Còn nếu code không chạy thì có nhấn vào cũng như không.
Còn cách này em biết rồi nhưng nó cứ xuất hiện bảng thông báo thôi! Em không muốn xuất hiện bảng thông báo đó. Mà muốn thi hành lệnh End luôn.
Có bác nào giúp được em không ạ!