อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ

[yot]

อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
ข้อมูลก่อนตัดมี 2 แบบ ครับ
แบบที่ 1จะมีทั้งหมด 13 ตัวอักษรเช่น  ABCDEFGHIJKLM     ผลลัพธ์ที่ต้องการเหลือ 12 ตัวอักษรคือ ABCDEFGHIJKL
แบบที่ 2จะมีทั้งหมด 13 ตัวอักษรแต่มีช่องว่าง 2 ช่องและปิดท้ายด้วยตัวอักษร เช่น ABCDEFGHIJ  M ผลลัพธ์ที่ต้องการเหลือ 10 ตัวอักษร คือ ABCDEFGHIJ
     ลองทำแล้วได้ 1 เงื่อนไขคือ =IIf(Len([txtsticker])=13,Left([txtsticker],12)
     จะรบกวนอาจารย์หรือพี่ๆ ช่วยหน่อยครับว่าต้องเพิ่ม code อะไรสำหรับเงือนไขแบบนี้ให้รวมอยู่ในคำสั่งเดียวกัน

     ขอบคุณมากครับ

[nonc31]

ทั้ง 2 ค่า ABCDEFGHIJKLM  และ  ABCDEFGHIJ  M  มีความยาว  13 ตัวอักษรเท่ากัน  แต่อันนึงอยากตัดเอา 12 ตัวอักษร   อีกอันอยากได้  10 ตัวอักษร  ใช้เงื่อนไขอะไรดี มาแยกแยะให้มันแตกต่างกันน้อ      ใช้ Instr([txtsticker]," ") หาตำแหน่งช่องว่าง แล้วใช้ Mid()เข้ามาช่วย ถ้าเกิดว่ามัน เป็น AB  CDEFGHIJM จะทำไงล่ะ
หรือจะ Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))

[พีระณัฐ สุขกำเนิด]

ช่องว่างอยู่ทุกตำแหน่งไหมครับ หรือแบบ pattern เดียวกันคือปิดท้ายเท่านั้น
ลองใส่ code นี้ดู
Private Sub Command1_Click()
  Dim SpacePos As Integer
            SpacePos = InStr(1, Text0, " ")
            If SpacePos = 0 Then 'ถ้าหาตำแหน่งช่องว่างไม่เจอ
               Text1 = Left(Text0, 12) 'ตัดเอาแค่ด้านซ้ายมา 12 หลัก
            Else 'ถ้าหาตำแหน่งช่องว่างเจอ
                Text1 = Left(Text0, 10) 'ให้ตัดแค่ด้านซ้ายมา 10 หลัก
            End If
End Sub
***หมายเหตุ*** บนฟอร์มกำหนด ค่า text0 เพื่อกรอก  text1 เพื่อแสดงผล/Command1 ใช้คลิกและใส่ code

[yot]

 :love:ขอบคุุณมากครับอาจารย์ code สามารถนำไปใช้ได้ครับ

[yot]

ขอบคุณมากครับอาจารย์
ผมลองนำ code มารวมกันยังไม่ได้ครับ  รบกวนอาจารย์ช่วยหน่อยครับ

Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))


ขอบคุณมากครับ

[nonc31]

IIf(Len(Replace([txtsticker]," ",""))=13,Left(Replace([txtsticker]," ",""),12),Left(Replace([txtsticker]," ",""),10))