คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
Code: Select all
Sub ว่ายน้ำ()
Dim lstCol As String
lstCol = Cells(8, "x").End(xlToLeft).Address(0, 0)
Range("AT8").Offset(-1, 0).Resize(50, 1).Formula = lstCol
End Sub
ตัวอย่างการปรับ Code ครับCode: Select all
Sub ว่ายน้ำ()
Range("AT8").Offset(-1, 0).Resize(50, 1).Value _
= Cells(8, "x").End(xlToLeft).Value
End Subอาจารย์ครับ ผมใช้แล้ว ปรากฏว่า ได้เลข 8 มายกแผงเลยครับsnasui wrote: Sun Mar 25, 2018 7:38 pm
Code: Select all
Sub ว่ายน้ำ() Range("AT8").Offset(-1, 0).Resize(50, 1).Value _ = Cells(8, "x").End(xlToLeft).Value End Sub
yangkodza wrote: Sun Mar 25, 2018 7:47 pm อาจารย์ครับ ผมใช้แล้ว ปรากฏว่า ได้เลข 8 มายกแผงเลยครับ
ผมต้องปรับแก้ไขส่วนไหนต่อครับ ผมต้องการให้ ยกคะแนนไปทั้งคอลัมน์ที่เราเจอว่าอยู่ท้ายสุดเลยครับ
ข้อมูลลักษณะนี้ควรแจ้งมาตั้งแต่ต้นเสมอครับCode: Select all
Sub ว่ายน้ำ()
Range("AT8").Offset(-1, 0).Resize(50, 1).Value _
= Cells(8, "x").End(xlToLeft).Resize(50, 1).Value
End Subขอบคุณมากครับsnasui wrote: Sun Mar 25, 2018 7:50 pmyangkodza wrote: Sun Mar 25, 2018 7:47 pm อาจารย์ครับ ผมใช้แล้ว ปรากฏว่า ได้เลข 8 มายกแผงเลยครับ
ผมต้องปรับแก้ไขส่วนไหนต่อครับ ผมต้องการให้ ยกคะแนนไปทั้งคอลัมน์ที่เราเจอว่าอยู่ท้ายสุดเลยครับ
กรณีต้องการให้ปลายทางเท่ากับต้นทางทั้งชุดก็ต้องระบุชุดของต้นทางเข้าไปด้วยครับ เช่นตามด้านล่าง
Code: Select all
Sub ว่ายน้ำ() Range("AT8").Offset(-1, 0).Resize(50, 1).Value _ = Cells(8, "x").End(xlToLeft).Resize(50, 1).Value End Sub