Xin hỗ trợ đánh số thứ tự với điều kiện cho sẳng trong VBA (1 người xem)

[frantliem]

Các anh chị, giúp em với.
Mới nghiên cứu VBA thôi.
Em cần đánh số thứ tự tự động trong excel với điều kiện cho trước.
Như em có điều kiện cho trước là 60
em có thể đánh số thứ từ tự động từ 1 đến 60
xin anh chị chỉ giúp
em lệnh viết như thế nào.

 

[Ngoai Thanh]

Các anh chị, giúp em với.
Mới nghiên cứu VBA thôi.
Em cần đánh số thứ tự tự động trong excel với điều kiện cho trước.
Như em có điều kiện cho trước là 60
em có thể đánh số thứ từ tự động từ 1 đến 60
xin anh chị chỉ giúp
em lệnh viết như thế nào.

Bạn thử chép tý code sau xem đúng ý bạn không ?

Sub TT()
[a5].Value = 1
[a5].Resize(60).DataSeries
End Sub

 

[phulien1902]

Các anh chị, giúp em với.
Mới nghiên cứu VBA thôi.
Em cần đánh số thứ tự tự động trong excel với điều kiện cho trước.
Như em có điều kiện cho trước là 60
em có thể đánh số thứ từ tự động từ 1 đến 60
xin anh chị chỉ giúp
em lệnh viết như thế nào.

Đây là 1 cách:

Sub STT()
    Dim Vung As Range
    Dim i As Integer
    Set Vung = Range("A1:A60")
    i = Vung.Rows.Count
    Vung = Application.Evaluate("Row(1:" & i & ")")
End Sub

 

[frantliem]

em có cái file anh giúp thử em để em học hỏi.

 

[frantliem]

Đây là 1 cách:

Sub STT()
    Dim Vung As Range
    Dim i As Integer
    Set Vung = Range("A1:A60")
    i = Vung.Rows.Count
    Vung = Application.Evaluate("Row(1:" & i & ")")
End Sub

Dạ.
nếu em thay A60 bằng một cell gõ vào số tùy ý thì có thể chạy được không anh.

 

[frantliem]

sao chẳng được vậy anh, chị. hic

 

[frantliem]

Dạ, xin lỗi anh, chị. được rồi, nhưng không theo ý bài viết.

 

[befaint]

Dạ, xin lỗi anh, chị. được rồi, nhưng không theo ý bài viết.

Bạn xem file xem đã chuẩn chỉ ý của bạn chưa nhé.
Muốn thay đổi gì thì cứ đổi ở ô B1 và B2.

 

[frantliem]

dạ giúp em thì giúp cho trót. số thứ tự ở cột A em đánh tự động được rồi.
Nhưng để gán giá trị 300.000 vào cột B tương ứng với bao nhiêu số thứ tự vừa chạy thì em chịu chết.
mới học VBA mà bì đặt mò , mong bác thông cảm... hic hic

 

[frantliem]

Bạn xem file xem đã chuẩn chỉ ý của bạn chưa nhé.
Muốn thay đổi gì thì cứ đổi ở ô B1 và B2.

Cám ơn anh rất nhiều nhiều.
Lệnh ngắn, dễ hiểu..... mong anh chị chỉ giáo em thêm....

 

[doveandrose]

Bạn tham khảo code #6....

ế rồi anh ơi . lêu lêu