เราจะทำให้คำสั่งruning number เป็นไดนามิกอย่างไร

[nutpochan]

เราจะเขียนโค๊ด

Code: Select all

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B1:B2").Select
    Selection.AutoFill Destination:=Range("B1:B16")
    Range("B1:B16").Select

ให้เกิดขึ้นกับ นับตั้งแต่1-21 ในช่อง e1ถึงe21 อย่างไรโดยที่เราไม่ต้องแก้ไข

Code: Select all

    Selection.AutoFill Destination:=Range("B1:B16")
    Range("B1:B16").Select

คืออยากให้ Selection.AutoFill Destination เป็นไดนามิกตามแถวหน้า (แถวD)

[niwat2811]

ลองปรับ Code ตามนี้ดูครับ

Code: Select all

Sub Macro2()
Dim lr As Long
lr = Range("D" & Rows.Count).End(xlUp).Row
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("E1:E2").AutoFill Destination:=Range("E1:E" & lr)
    Range("E1").Select
End Sub

[nutpochan]

ใช้ได้ดีครับ