Page 1 of 1
อยากให้คลุมข้อมูลตามค่าที่เรากรอกไว้และเปลี่ยนแปลงได้
Posted: Sun Dec 02, 2018 9:15 pm
by TanabadeeY
อยากให้ชีท A คลุมข้อมูลตั้งแต่ A1 ลงมาถึงข้อมูลลำดับตามที่กำหนดไว้ใน ชีท B ในเซลล์ B1 ครับ
ซึ่ง cell B1 จะกรอกเท่าไรก็ได้และจะคลุมข้อมูลเท่ากับจำนวนในค่า B1 ครับ
ไฟล์ตัวอย่างตามไฟล์แนบครับ
ขอบคุณครับ
Re: อยากให้คลุมข้อมูลตามค่าที่เรากรอกไว้และเปลี่ยนแปลงได้
Posted: Sun Dec 02, 2018 9:42 pm
by 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
Re: อยากให้คลุมข้อมูลตามค่าที่เรากรอกไว้และเปลี่ยนแปลงได้
Posted: Sun Dec 02, 2018 9:47 pm
by TanabadeeY
snasui wrote: Sun Dec 02, 2018 9:42 pm
ตัวอย่าง 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
ขอบคุณมากครับ