Online Reference

Home

VBA  Conversion Function  ดาวน์โหลดคู่มือ

Array Function

VBA Function, ส่งออกประเภทข้อมูล Variant ที่เก็บค่า array

ไวยากรณ์

Array(arglist )

arglist เป็นอากิวเมนต์บังคับที่ใช้เครื่องหมายจุลภาค (,) แบ่งแต่ละค่าอากิวเมนต์ซึ่งกำหนดให้กับ element array ที่ได้รับการเก็บภายในประเภทข้อมูล Variant ถ้าไม่มีการระบุอากิวเมนต์ จะเป็นการสร้าง array แบบ zero-length

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

การอ้างอิง element ของ array ประกอบด้วยชื่อตัวแปรตามด้วยวงเล็บที่เก็บค่าหมายเลขดัชนี สำหรับระบุถึง element ที่ต้องการ ตามตัวอย่าง ประโยคคำสั่งแรก สร้างตัวแปรชื่อ A เป็น Variant ประโยคคำสั่งที่ 2 กำหนด array ให้ตัวแปร A ประโยคคำสั่งสุดท้ายกำหนดค่าที่เก็บใน element ที่ 2 ไปที่ตัวแปร

Dim A As Variant
A = Array(10,20,30)
B = A(2)

ขอบเขตด้านล่างของ array ที่สร้างด้วยฟังก์ชัน Array เป็นศูนย์เสมอ และแตกต่างจาก array ประเภทอื่นๆ เนื่องจากไม่มีผลกระทบจากขอบเขตด้านล่างที่ระบุด้วยประโยคคำสั่ง Option Base

หมายเหตุ

ตัวแปร Variant ที่ไม่มีการประกาศเป็น array สามารถเก็บ array ได้ ตัวแปรประเภท Variant สามารถเก็บ array ประเภทต่างๆ ยกเว้น fixed-length string และ user-defined type ถึงแม้ว่าตัวแปร Variant เก็บ array มีแนวคิดต่างจาก array ที่ element มีประเภทข้อมูล Variant แต่ element ของ array ได้รับการเข้าถึงด้วยวิธีเดียวกัน

ดูเพิ่มเติม

DefType Statement, Dim Statement, Let Statement, Option Base Statement, ประเภทข้อมูล Variant

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Array ส่งออกตัวแปร Variant เก็บ array

Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")

' สมมติส่งออกค่าขอบเขตล่างเป็น 1 ด้วยการใช้ประโยคคำสั่ง Option Base
MyDay = MyWeek(2)      ' MyDay เก็บค่า "Tue"
MyDay = MyWeek(4)      ' MyDay เก็บค่า "Thu"

ตัวอย่างการประยุกต์ใน Excel

ตัวอย่างการเพิ่มค่าในช่วง A1:C5 บน Sheet1, Sheet3 และ Sheet5 ด้วยข้อมูลของช่วงเดียวกันบน Sheet1

x = Array("Sheet1", "Sheet3", "Sheet5")
Sheet(x).FillAcrossSheets Worksheets("Sheet1").Range("A1:C5")

ตัวอย่างการหาผลรวมจาก Sheet2 และ Sheet3 ไปที่ Sheet1 ด้วยฟังก์ชัน SUM

Worksheets("Sheet1").Range("A1").Consolidate _
sources := Array("Sheet2!R1C1:R37C6", "Sheet3!R1C1:R37C6"), _
Function :=xlSum

ตัวอย่างการเพิ่ม array ของ String ตามรายการที่เจาะจง

Application.AddCustomList Array("Computer", "Monitor", "RAM", "CD ROM", "Modem")