Sau khi chạy 1 macro thì chuyển ActiveCell đến 1 vị trí kế tiếp.

Liên hệ QC

tricaominh

Thành viên mới
Tham gia
6/11/09
Bài viết
2
Được thích
0
Mong các bạn giúp!

Mình có 1 macro "đánh số thứ tự " như sau:

Sub danhstt()
'
' danhstt Macro
ActiveCell.FormulaR1C1 = "1"
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=10, Trend:=False
Selection.End(xlDown).Select
End Sub

Khi chạy xong, thì cell được chọn (ActiveCell) là vị trí thứ 10. Nay mình muốn sau khi chạy xong cell bên cạnh (bên phải cell stt 10) xuất cữ A, sau đó ActiveCell chuyển đến vị trí dưới Cell stt 10 để bắt đầu cho lần đánh stt mới.
 
Web KT
Back
Top Bottom