/ / การจัดการสายงาน Excel VBA

การจัดการสายงาน Excel VBA

เข้าร่วม Strings | ซ้าย | ขวา | ปานกลาง | บางเลน | Instr

ในบทนี้คุณจะพบหน้าที่ที่สำคัญที่สุด จัดการกับสตริง ใน Excel VBA.

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

เข้าร่วม Strings

เราใช้ตัวดำเนินการ & to concatenate (join) strings

รหัส:

Dim text1 As String, text2 As String
text1 = "Hi"
text2 = "Tim"

MsgBox text1 & " " & text2

ผล:

เข้าร่วม Strings

หมายเหตุ: เพื่อแทรกช่องว่างให้ใช้ ""

ซ้าย

เมื่อต้องการแยกอักขระซ้ายสุดออกจากสตริงให้ใช้ Left

รหัส:

Dim text As String
text = "example text"

MsgBox Left(text, 4)

ผล:

ซ้าย

ขวา

เมื่อต้องการแยกแยะอักขระทางขวาสุดออกจากสตริงให้ใช้ Right นอกจากนี้เรายังสามารถแทรกข้อความในฟังก์ชันได้โดยตรง

รหัส:

MsgBox Right("example text", 2)

ผล:

ขวา

ปานกลาง

เมื่อต้องการดึงสตริงย่อยเริ่มจากตรงกลางของสตริงให้ใช้ Mid

รหัส:

MsgBox Mid("example text", 9, 2)

ผล:

ปานกลาง

หมายเหตุ: เริ่มต้นที่ตำแหน่ง 9 (t) ด้วยความยาว 2 คุณสามารถข้ามอาร์กิวเมนต์ที่สามถ้าต้องการแยกสตริงย่อยที่เริ่มต้นในช่วงกลางของสตริงจนกว่าจะสิ้นสุดสตริง

บางเลน

เพื่อให้ได้ความยาวของสตริงให้ใช้ Len

รหัส:

MsgBox Len("example text")

ผล:

บางเลน

หมายเหตุ: รวมพื้นที่ (ตำแหน่ง 8)!

Instr

เมื่อต้องการค้นหาตำแหน่งของสตริงย่อยในสตริงให้ใช้ Instr.

รหัส:

MsgBox Instr("example text", "am")

ผล:

Instr

หมายเหตุ: สตริง "am" อยู่ที่ตำแหน่ง 3

อ่านเพิ่มเติมได้ที่: