อยากให้คลุมข้อมูลตามค่าที่เรากรอกไว้และเปลี่ยนแปลงได้

[TanabadeeY]

อยากให้ชีท A คลุมข้อมูลตั้งแต่ A1 ลงมาถึงข้อมูลลำดับตามที่กำหนดไว้ใน ชีท B ในเซลล์ B1 ครับ

ซึ่ง cell B1 จะกรอกเท่าไรก็ได้และจะคลุมข้อมูลเท่ากับจำนวนในค่า B1 ครับ

ไฟล์ตัวอย่างตามไฟล์แนบครับ
ขอบคุณครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim i As Integer
i = Sheets("b").Range("b1").Value
With Sheets("a")
    .Activate
    .Range("A1").Resize(i, 1).Select
End With

[TanabadeeY]

ตัวอย่าง Code ครับ

Code: Select all

Dim i As Integer
i = Sheets("b").Range("b1").Value
With Sheets("a")
    .Activate
    .Range("A1").Resize(i, 1).Select
End With

ขอบคุณมากครับ