Office

ฟังก์ชัน Mid

ส่งกลับ ตัวแปร (สตริง) ที่มีจำนวนอักขระที่ระบุจากสตริง

ไวยากรณ์

Mid ( สตริง, เริ่มต้น [, ความยาว] )

ไวยากรณ์ของฟังก์ชันMidมีอาร์กิวเมนต์เหล่านี้:

อาร์กิวเมนต์

คำอธิบาย

สตริง

จำเป็น นิพจน์สตริง จากอักขระใดที่จะส่งกลับ ถ้าสตริงที่มี Null ค่าnullจะถูกส่งกลับ

เริ่ม

จำเป็น ยาว . ตำแหน่งอักขระในสตริงที่ส่วนที่จะถูกนำไปเริ่มต้น ถ้าเริ่มต้นมากกว่าจำนวนอักขระในสตริงmidจะส่งกลับสตริงที่มีความยาวเป็นศูนย์ ("")

ความยาว

ไม่จำเป็น ตัวแปร (ยาว) จำนวนอักขระที่จะส่งกลับ ถ้าเว้นไว้หรือถ้ามีอักขระที่มีความยาวน้อยกว่าในข้อความ (รวมถึงอักขระที่เริ่มต้น) อักขระทั้งหมดจากตำแหน่งเริ่มต้นจนถึงจุดสิ้นสุดของสตริงที่จะถูกส่งกลับ


ข้อสังเกต

เมื่อต้องการกำหนดจำนวนอักขระในสตริงให้ใช้ฟังก์ชันเลน

หมายเหตุ: ใช้ฟังก์ชันMidBกับข้อมูลไบต์ที่มีอยู่ในสตริงเช่นเดียวกับภาษาที่ตั้งค่าอักขระไบต์คู่ แทนที่จะระบุจำนวนอักขระอาร์กิวเมนต์ระบุจำนวนไบต์ สำหรับตัวอย่างโค้ดที่ใช้MidBให้ดูตัวอย่างที่สองในหัวข้อตัวอย่าง

ตัวอย่างคิวรี

นิพจน์

ผลลัพธ์

เลือก ProductID, Mid (ProductID, 5) เป็นนิพจน์จาก ProductSales

ส่งกลับ "ProductID" และส่วนของ ProductID ที่เริ่มต้นจากตำแหน่งอักขระ5และแสดงผลลัพธ์ในคอลัมน์นิพจน์

เลือก ProductID, Mid (ProductID, 5, 4) เป็น testMid จาก ProductSales

ส่งกลับ "ProductID" และส่วนของ ProductID ที่เริ่มต้นจากตำแหน่งอักขระ5ซึ่งประกอบด้วยอักขระ4ตัวและแสดงผลลัพธ์ในคอลัมน์ testMid

ตัวอย่าง VBA

หมายเหตุ: ตัวอย่างที่ทำตามสาธิตการใช้ฟังก์ชันนี้ในโมดูลของแอปพลิเคชัน Visual Basic for Applications (VBA) สำหรับข้อมูลเพิ่มเติมเกี่ยวกับการทำงานกับ VBA ให้เลือกการอ้างอิงนักพัฒนาในรายการดรอปดาวน์ที่อยู่ถัดจากค้นหาและใส่เงื่อนไขอย่างน้อยหนึ่งข้อในกล่องค้นหา

ตัวอย่างแรกใช้ฟังก์ชันMidเพื่อส่งกลับจำนวนอักขระที่ระบุจากสตริงที่

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".

ตัวอย่างที่สองใช้MidBและฟังก์ชันที่ผู้ใช้กำหนดเอง (MidMbcs) เพื่อส่งกลับอักขระจากสตริง ความแตกต่างที่นี่คือสตริงที่ป้อนเป็น ANSI และความยาวเป็นไบต์

Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"

หมายเหตุ:  หน้านี้ได้รับการแปลด้วยระบบอัตโนมัติ และอาจมีข้อผิดพลาดทางไวยากรณ์หรือความไม่ถูกต้อง จุดประสงค์ของเราคือเพื่อให้เนื้อหานี้มีประโยชน์กับคุณ คุณสามารถแจ้งให้เราทราบว่าข้อมูลมีประโยชน์หรือไม่ นี่คือบทความภาษาอังกฤษเพื่อให้คุณใช้อ้างอิง

ขยายทักษะ Office ของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×