ให้ใช้โค้ด
ลอง
ปิดแฟ้มทั้งหมด
เปิดแฟ้มที่มีแมโครที่คุณเขียนไม่ได้
กดแป้น Ctrl+N
กดแป้น Atl+F11
ที่ VBE กดแป้น Ctrl+G
พิมพ์ Msgbox "The Name of Workbooks(1) is '" & Workbooks(1).Name &"'"
กด Enter สังเกตข้อความที่อยู่ในเครื่องหมาย ' ' ว่า เป็นชื่อแฟ้มอะไร
พิมพ์ Msgbox "The Name of Workbooks(2) is '" & Workbooks(2).Name &"'"
กด Enter สังเกตข้อความที่อยู่ในเครื่องหมาย ' ' ว่า เป็นชื่อแฟ้มอะไร
Workbooks(1) คือแฟ้มที่เปิดขึ้นเป็น
อันดับแรก
เสริม
กรณีที่คุณต้องการไปบรรทัดว่างที่ต่อจากบรรทัดสุดท้ายของตารางฐานข้อมูล
ให้ใช้โค้ด
Code: Select all
dim lngBlankRowNum as Long
lngBlankRowNum = IIF(Application.Versioni < 8,16384,IIf(Application.Version < 12, 65536, 1048576))
Application.goto (Range("A"&lngBlankRowNum).end(XlUp).Offset(1,0))
ถ้าต้องการทราบว่าหมายเลขบรรทัดว่างที่ต่อจากบรรทัดสุดท้ายของตารางฐานข้อมูล ให้ใช้รหัส
Code: Select all
dim lngBlankRowNum As Long, Dim lngMaxRowNum As Long
lngMaxRowNum = IIF(Application.Versioni < 8,16384,IIf(Application.Version < 12, 65536, 1048576))
lngBlankRowNum = Range("A"& lngMaxRowNum).end(XlUp).Offset(1,0).Row
ตรง Range("A"& lngMaxRowNum) เปลี่ยน
อักษรคอลัมน์ของเซลล์อ้างอิงให้ตรงตามการใช้งาน
โค้ดการอ้างอิงโฟลเดอร์ที่แฟ้มที่มีแมโครวางอยู่
โค้ดนี้จะทำให้ยีดหยุ่นกว่าการไปกำหนดค่าที่เซลล์ เพราะถ้าเปลี่ยนตำแหน่งวางของแฟ้มที่มีแมโคร รหัสจะทำงานได้ตลอดเวลา