xin code tự động điền số thứ tự theo nhập vào ô chỉ định (1 người xem)

[vubaduc1993]

ai có thể code vba cho em cái lệnh này được không
ví dụ : em chọn cột A1 - em bật bảng điền tự động - nhập vào 2 ô tạo sẵn - ô 1 : điền 1 và ô 2 : điền 100 thì khi ok cái tự động từ cột A1 đến A100 sẽ điền số từ 001 = > 100
có làm được không mọi người

 

[Ba Tê]

ai có thể code vba cho em cái lệnh này được không
ví dụ : em chọn cột A1 - em bật bảng điền tự động - nhập vào 2 ô tạo sẵn - ô 1 : điền 1 và ô 2 : điền 100 thì khi ok cái tự động từ cột A1 đến A100 sẽ điền số từ 001 = > 100
có làm được không mọi người

Có làm được đó. "bảng điền tự động", "2 ô tạo sẵn" là cái gì, nếu thấy sẽ làm được.

 

[vubaduc1993]

Có làm được đó. "bảng điền tự động", "2 ô tạo sẵn" là cái gì, nếu thấy sẽ làm được.

EM chưa biết vba bao giờ nhưng em chỉ cần muốn tạo bảng điền tự động thôi ah
dạng như thế này

nghĩa có cái bảng nhảy lên - mình nhập số bắt đầu và số kết thúc - ấn ok sẽ tự động điền theo vị trí ô chỉ định - theo hàng dọc ah

 

[Ba Tê]

EM chưa biết vba bao giờ nhưng em chỉ cần muốn tạo bảng điền tự động thôi ah
dạng như thế này

nghĩa có cái bảng nhảy lên - mình nhập số bắt đầu và số kết thúc - ấn ok sẽ tự động điền theo vị trí ô chỉ định - theo hàng dọc ah

Sao không gởi cái file "có cái bảng nhảy lên" cho mọi người khỏi "tưởng tượng"? Khi nào thì nó mới "nhảy lên"?
Gởi cái File còn dễ hơn cái hình nữa là.

 

[phulien1902]

ai có thể code vba cho em cái lệnh này được không
ví dụ : em chọn cột A1 - em bật bảng điền tự động - nhập vào 2 ô tạo sẵn - ô 1 : điền 1 và ô 2 : điền 100 thì khi ok cái tự động từ cột A1 đến A100 sẽ điền số từ 001 = > 100
có làm được không mọi người

Bạn thử:

Sub abc()
    Dim LR, i
    Dim a(1 To 1000) As Integer
    Columns(1).ClearContents
    LR = Sheet1.Range("A" & Rows.Count).End(3).Row
    For i = [d4] To [f4]
        a(i) = i
        Sheet1.Range("A" & LR).Value = a(i)
        LR = LR + 1
    Next
End Sub