Vba: วิธีเลือกช่วงในเซลล์ที่ใช้งานอยู่

คุณสามารถใช้วิธีการต่อไปนี้ใน VBA เพื่อเลือกช่วงของเซลล์ใน Excel จากเซลล์ที่ใช้งานอยู่ในปัจจุบัน:

วิธีที่ 1: เลือกช่วงที่ต่ำกว่าจากเซลล์ที่ใช้งานอยู่

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

มาโครนี้จะเลือกช่วงจากเซลล์ที่ใช้งานอยู่จนถึงเซลล์ที่ใช้งานล่าสุดในคอลัมน์

วิธีที่ 2: เลือกช่วงขึ้นจากเซลล์ที่ใช้งานอยู่

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

มาโครนี้จะเลือกช่วงจากเซลล์ที่ใช้งานอยู่ไปจนถึงเซลล์แรกที่ใช้ในคอลัมน์

วิธีที่ 3: เลือกช่วงทางด้านขวาของเซลล์ที่ใช้งานอยู่

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

มาโครนี้จะเลือกช่วงจากเซลล์ที่ใช้งานอยู่ไปจนถึงเซลล์ที่ใช้ล่าสุดทางด้านขวาในแถวเดียวกัน

วิธีที่ 4: เลือกช่วงทางด้านซ้ายในเซลล์ที่ใช้งานอยู่

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

มาโครนี้จะเลือกช่วงจากเซลล์ที่ใช้งานอยู่ไปจนถึงเซลล์ที่ใช้ล่าสุดทางด้านซ้ายในแถวเดียวกัน

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีกับแผ่นงานต่อไปนี้ใน Excel:

ตัวอย่างที่ 1: เลือกช่วงที่ต่ำกว่าจากเซลล์ที่ใช้งานอยู่

สมมติว่าเซลล์ C3 ถูกเลือกอยู่ในปัจจุบัน

เราสามารถสร้างแมโครต่อไปนี้เพื่อเลือกช่วงจากเซลล์ที่ใช้งานอยู่จนถึงเซลล์ที่ใช้งานล่าสุดในคอลัมน์:

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

เมื่อเราเรียกใช้แมโครนี้ ช่วงต่อไปนี้จะถูกเลือกโดยอัตโนมัติ:

โปรดสังเกตว่าขณะนี้ได้เลือกช่วงตั้งแต่เซลล์ C3 ถึงเซลล์สุดท้ายที่ใช้ในคอลัมน์แล้ว

ตัวอย่างที่ 2: เลือกช่วงขึ้นจากเซลล์ที่ใช้งานอยู่

สมมติว่าเซลล์ C3 ถูกเลือกอยู่ในปัจจุบัน

เราสามารถสร้างแมโครต่อไปนี้เพื่อเลือกช่วงจากเซลล์ที่ใช้งานอยู่จนถึงเซลล์แรกที่ใช้ในคอลัมน์:

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

เมื่อเราเรียกใช้แมโครนี้ ช่วงต่อไปนี้จะถูกเลือกโดยอัตโนมัติ:

โปรดสังเกตว่าขณะนี้ได้เลือกช่วงตั้งแต่เซลล์ C3 ถึงเซลล์แรกที่ใช้ในคอลัมน์แล้ว

ตัวอย่างที่ 3: เลือกช่วงทางด้านขวาของเซลล์ที่ใช้งานอยู่

สมมติว่าเซลล์ B2 ถูกเลือกอยู่ในปัจจุบัน

เราสามารถสร้างแมโครต่อไปนี้เพื่อเลือกช่วงจากเซลล์ที่ใช้งานอยู่จนถึงเซลล์ที่ใช้ล่าสุดทางด้านขวาในแถวเดียวกัน:

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

เมื่อเราเรียกใช้แมโครนี้ ช่วงต่อไปนี้จะถูกเลือกโดยอัตโนมัติ:

โปรดสังเกตว่าขณะนี้ได้เลือกช่วงจากเซลล์ B2 ไปยังเซลล์ที่ใช้ล่าสุดทางด้านขวาในแถวเดียวกันแล้ว

ตัวอย่างที่ 4: เลือกช่วงทางด้านซ้ายในเซลล์ที่ใช้งานอยู่

สมมติว่าเซลล์ D6 ถูกเลือกอยู่ในปัจจุบัน

เราสามารถสร้างแมโครต่อไปนี้เพื่อเลือกช่วงจากเซลล์ที่ใช้งานอยู่จนถึงเซลล์ที่ใช้ล่าสุดทางด้านซ้ายในแถวเดียวกัน:

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

เมื่อเราเรียกใช้แมโครนี้ ช่วงต่อไปนี้จะถูกเลือกโดยอัตโนมัติ:

โปรดสังเกตว่าขณะนี้ได้เลือกช่วงจากเซลล์ D6 ไปยังเซลล์ที่ใช้ล่าสุดทางด้านซ้ายในแถวเดียวกันแล้ว

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีค้นหาบรรทัดที่ใช้ล่าสุด
VBA: วิธีค้นหาคอลัมน์ที่ใช้ล่าสุด
VBA: วิธีแทรกหลายบรรทัด