Online Reference

Home

Spc Function

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

ไวยากรณ์

Spc(n )

อากิวเมนต์ n เป็นตัวเลขของช่องว่างที่ต้องการเพิ่มเข้าไปก่อนการแสดงบนจอภาพหรือการพิมพ์ expression ต่อไปในรายการ

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

ถ้า n น้อยกว่าความกว้างของแถว ตำแหน่งการพิมพ์ต่อไปจะอยู่ต่อจากจำนวนช่องว่างที่พิมพ์ ถ้า n มากกว่าความกว้างของแถว ฟังก์ชัน Spc จะคำนวณตำแหน่งการพิมพ์ต่อไปด้วยสูตร

currentprintposition + (n Mod width)

เช่น ถ้าตำแหน่งการพิมพ์ปัจจุบัน คือ 24 ความกว้างแถวของผลลัพธ์ คือ 80 และกำหนด Spc(90) ตำแหน่งการพิมพ์ต่อไปเริ่มที่ 34 (ตำแหน่งการพิมพ์ปัจจุบัน + ผลหารของ 90/80) ถ้าความแตกต่างระหว่างตำแหน่งการพิมพ์ปัจจุบัน และความกว้างแถวของผลลัพธ์น้อยกว่า n (หรือ n Mod width) ฟังก์ชัน Spc จะข้ามไปที่จุดเริ่มต้นของแถวใหม่และสร้างช่องง่าวเท่ากับ n- (width – currentprintposition)

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

ดูเพิ่มเติม

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

ตัวอย่าง

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

' ฟังก์ชัน Spc สามารถใช้กับคำสั่ง Print # statement
' เปิดไฟล์
Open "TESTFILE" For Output As #1
Print #1, "10 spaces between here"; Spc(10); "and here."
' ปิดไฟล์.
Close #1

การใช้เมธอด Print เพื่อพิมพ์ผลลัพธ์ใน immediate window ด้วยช่องว่าง 30 ช่อง

Debug.Print Spc(30); "Thirty spaces later..."