Vba: วิธีแปลงหมายเลขคอลัมน์เป็นตัวอักษร

คุณสามารถใช้ไวยากรณ์ต่อไปนี้ใน VBA เพื่อแปลงหมายเลขคอลัมน์เป็นตัวอักษร:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

มาโครนี้จะแปลงหมายเลขคอลัมน์ในเซลล์ A2 เป็นตัวอักษรและแสดงตัวอักษรในเซลล์ B2

ตัวอย่างเช่น หากค่าในเซลล์ A2 คือ 4 เซลล์ B2 จะแสดง “D” เนื่องจากเป็นตัวอักษรที่ตรงกับคอลัมน์ที่สี่ใน Excel

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: แปลงหมายเลขคอลัมน์เป็นตัวอักษรใน VBA

สมมติว่าเราต้องการทราบว่าตัวอักษรคอลัมน์ใดตรงกับหมายเลขคอลัมน์ 4 ใน Excel:

เราสามารถสร้างมาโครต่อไปนี้เพื่อแปลงตัวเลขนี้เป็นตัวอักษร:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

เซลล์ B2 จะแสดงค่า “D” เนื่องจากเป็นตัวอักษรที่ตรงกับคอลัมน์ที่สี่

หากเราเปลี่ยนตัวเลขในเซลล์ A2 และเรียกใช้แมโครอีกครั้ง เซลล์ B2 จะแสดงตัวอักษรคอลัมน์ที่อัปเดต

ตัวอย่างเช่น สมมติว่าเราเปลี่ยนตัวเลขในเซลล์ A2 เป็น 73 และเรียกใช้แมโครอีกครั้ง:

ตอนนี้เซลล์ B2 จะแสดงค่า “BU” เนื่องจากเป็นตัวอักษรของคอลัมน์ที่สอดคล้องกับคอลัมน์ที่ 73

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

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

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