Page 1 of 1
เลือก cell โดยอ้างอิงจากตำแหน่ง last use cell
Posted: Mon May 11, 2020 1:36 pm
by sosadboy
ผมต้องการเลือกตำแหน่ง cell ถัดจากบรรทัดสุดท้ายของตารางลงไป 2 Cell ครับ ผมต้องเพิ่มเติม Code อย่างไรครับ ตอนนี้ทำได้แค่หาตำแหน่งบรรทัดสุดท้ายของตาราง พยายามหาแล้วต่อ Code ไม่ได้สักทีครับ ตามไฟล์แบบต้องการเลือกตำแหน่ง cell ที่ระบายสีแดงครับ ฉนกำในไฟล์ครับ มี Module เดียวครับ
Re: เลือก cell โดยอ้างอิงจากตำแหน่ง last use cell
Posted: Mon May 11, 2020 4:05 pm
by sosadboy
โค๊ดที่หาเซลล์สุดท้ายของตาราง ผมใช้ตามนี้ครับ
Code: Select all
Sub GotoRedcells()
Range("A5000").End(xlUp).Select
'ติดที่ต่อจากนี้จะอ้างอิงอย่างไร เพื่อเลือกเซลล์ที่อยู่ถัดลงไป 2 เซลล์ครับ
End Sub
ที่ต้องอ้างอิง last cell เพราะ last cell ของตารางจะไม่ใช่ตำแหน่งเดิมเสมอ ในไฟล์ที่ใช้งานจริง
ฝากผู้รู้ทุกท่านช่วยแนะนำด้วยครับ
Re: เลือก cell โดยอ้างอิงจากตำแหน่ง last use cell
Posted: Mon May 11, 2020 5:55 pm
by snasui
การเลือกเซลล์ที่อยู่ถัดไปด้านล่าง 2 เซลล์ของค่าบรรทัดสุดท้ายคือ Statement นี้ครับ
Range("A5000").End(xlUp).Offset(2,0).Select
Re: เลือก cell โดยอ้างอิงจากตำแหน่ง last use cell
Posted: Tue May 12, 2020 1:41 am
by sosadboy
ขอบคุณ อาจารย์มากครับ คิดอยู่ว่าต้องใช้ offset แต่เขียน statement ไม่ถูกเองพอไปรันเลยไม่ได้ผลตามที่ตัวเองต้องการ ขอบคุณมากๆครับ เอาไปปรับใช้กับงานอื่นได้มากเลยครับ