ขอสอบถามการ Add Item ของ ComboBox1 หน่อยครับ

[diamondbom]

ขอสอบถามการ Add Item ของ ComboBox1 หน่อยครับ

ต้องการแอดทั้ง Cells(C, 1) และ Cells(C, 1)

ผมทดลอง

.AddItem Sheet1.Cells(C, 1).Value + " " + Sheet1.Cells(C, 2).Value

แต่ว่าใช้ไม่ได้ รบกวนด้วยครับ

ขอบคุณครับ

[snasui]

ปรับ Code ด้านบนเป็นตามด้านล่างครับ

Code: Select all

.AddItem Sheet1.Cells(C, 1).Value & " " & Sheet1.Cells(C, 2).Value

การบวกเพื่อเชื่อมข้อความ ต้องมั่นใจว่าต้องเป็นข้อความ + ข้อความ หากเป็นตัวเลข + ข้อความจะติด Error ดังนั้น หากต้องการเชื่อมข้อความเข้าด้วยกัน โดยไม่ต้องกังวลว่าต่างรูปแบบกัน สามารถเลือกใช้เครื่องหมาย & แทนครับ

[diamondbom]

ขอบคุณครับ

[diamondbom]

ถ้าในการเลือกต้องการให้แสดงผลเฉพาะตัวเลขควรทำอย่างไรครับ

เช่น แสดงเฉพาะตัวเลขที่เลือกใน column C เป็น 1

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

With Application
    Sheet1.Cells(1, 3).Value = VBA.Left(ComboBox1.Text, .Search(" ", ComboBox1.Text) - 1)
End Wit

[diamondbom]

ขอบคุณครับ

[diamondbom]

ถ้าต้องการ คำ ด้านขวาทำอย่างไรครับ ผมลองปรับแบบนี้แต่ไม่ได้

With Application
Sheet1.Cells(1, 3).Value = VBA.Right(ComboBox1.Text, .Search(" ", ComboBox1.Text) - 1)
End With

[snasui]

สำหรับ Code ควรวางให้แสดงเป็น Code จะได้สะดวกในการอ่านและ Copy ไปใช้ ดู Link นี้ประกอบครับ viewtopic.php?style=1&f=6&t=1187

สำหรับที่ถามมานั้นปรับเป็นด้านล่างครับ

Code: Select all

Sheet1.Cells(1, 3).Value = Mid(ComboBox1.Text, .Search(" ", ComboBox1.Text) +1)

[diamondbom]

ขอบคุณครับ