Online Reference

Home

Tab Function

VBA Function, ใช้ทำงานร่วมกับคำสั่ง Print# Statement หรือเมธอด Print เพื่อกำหนดตำแหน่งผลลัพธ์

ไวยากรณ์

Tab[(n )]

อากิวเมนต์ n เป็นอากิวเมนต์ ไม่บังคับ ซึ่งเป็นจำนวนคอลัมน์ที่เคลื่อนไปก่อนการแสดงบนจอภาพหรือการพิมพ์ expression ต่อไปในรายการ ถ้าไม่กำหนด ฟังก์ชัน Tab จะแทรกตำแหน่งไปที่จุดเริ่มต้นของเขตการพิมพ์ต่อไป และยินยอมให้ Tab ใช้แทนเครื่องหมายจุลภาคในกรณีที่เครื่องหมายจุลภาคนำไปใช้เป็นจุดทศนิยม

ลักษณะการประยุกต์

ถ้าตำแหน่งการพิมพ์ปัจจุบันบนแถวที่กำลังพิมพ์ใหญ่กว่า n ฟังก์ชัน Tab จะข้ามไปที่คอลัมน์ที่ n ของแถวต่อไป ถ้า n น้อยกว่า 1 ฟังก์ชัน Tab จะไปที่คอลัมน์ 1 ถ้า n มากกว่าความกว้างของแถว ฟังก์ชัน Tab จะคำนวณตำแหน่งการพิมพ์ต่อไปโดยใช้สูตร

n Mod width

เช่น ถ้า width เป็น 80 และกำหนด Tab(90) การพิมพ์ต่อไปจะเริ่มที่คอลัมน์ที่ 10 (ผลหารของ 90/80) ถ้า n น้อยกว่าตำแหน่งการพิมพ์ปัจจุบัน การพิมพ์จะเริ่มแถวใหม่ที่ตำแหน่งการพิมพ์ที่คำนวณได้ ถ้าการคำนวณตำแหน่งใหญ่กว่าตำแหน่งการพิมพ์ปัจจุบัน การพิมพ์จะเริ่มที่ตำแหน่งที่คำนวณได้บนแถวเดียวกัน

ด้านซ้ายสุดของตำแหน่งบนแถวผลลัพธ์เป็น 1 เสมอ เมื่อใช้คำสั่ง Print# Statement ในการพิมพ์เป็นไฟล์ และด้านขวาสุดเป็นความกว้างของไฟล์ผลลัพธ์ ซึ่งการกำหนดค่าใช้คำสั่ง Width# Statement

ถ้าใช้ฟังก์ชัน Tab ด้วยเมธอด Print พื้นที่การพิมพ์จะถูกแบ่งให้เหมือน ความกว้างคอลัมน์คงที่ ความกว้างของแต่ละคอลัมน์ เป็นค่าเฉลี่ยความกว้างของตัวอักษรทั้งในหน้ากระดาษที่เลือกใช้ Font แต่จะไม่มีความสัมพันธ์ระหว่าง จำนวนตัวอักษรที่พิมพ์ กับจำนวนของคอลัมน์ที่ใช้ความกว้างคงที่ซึ่งมีตัวอักษรนั้น เช่น อักษรตัวใหญ่ W ใช้ที่มากกว่าความกว้างคงที่และอักษรตัวเล็ก i ใช้ที่น้อยความกว้างคงที่

ดูเพิ่มเติม

Mod (Operator), Print# Statement, เมธอด Print, ฟังก์ชัน Space, ฟังก์ชัน Spc, Width# Statement

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Tab กำหนดตำแหน่งผลลัพธ์ของไฟล์และใน immediate window

' ฟังก์ชัน Spc สามารถใช้กับคำสั่ง Print # statement
Open "TESTFILE" For Output As #1 ' เปิดไฟล์

' พิมพ์คำที่ 2 ที่คอลัมน์ 20
Print #1, "Hello"; Tab(20); "World."

' ถ้าละอากิวเมนต์ เคอร์เซอร์จะย้ายไปที่พื้นที่การพิมพ์ต่อไป
Print #1, "Hello"; Tab; "World"
Close #1 ' ปิดไฟล์

การใช้เมธอด Print เพื่อพิมพ์ผลลัพธ์ใน immediate window โดยเริ่มต้นที่คอลัมน์ที่ 10

Debug.Print Tab(10); "10 columns from start."