สอบถาม VBA การร่วมข้อความ 2 Column ให้ติดกัน

[primeval]

จาก File Excel ครับ หลังเรากดโชว์ Listbox ออกมาแล้ว จะทำยังไง ให้รายการใน Listbox หลังจากเรา กด Additem จะทำอย่างไรให้ข้อความติดกันครับ

ผลลัพธ์ประมาณนี้ครับ
Apples126
ฺBananas105

Listbox.xlsm

(34.63 KiB) Downloaded 14 times

[snasui]

ให้แสดงข้อความติดกันที่ไหน อย่างไร ช่วยอธิบายโดยเรียงลำดับการทำงาน ลงรายละเอียดให้ถึงปลายทางที่ต้องการแสดงข้อมูล สำหรับไฟล์ที่แนบมาเมื่อคลิก Add Item แล้วเกิด Error ครับ

[primeval]

ให้แสดงข้อความติดกันที่ไหน อย่างไร ช่วยอธิบายโดยเรียงลำดับการทำงาน ลงรายละเอียดให้ถึงปลายทางที่ต้องการแสดงข้อมูล สำหรับไฟล์ที่แนบมาเมื่อคลิก Add Item แล้วเกิด Error ครับ

การทำงานของ File แนบครับ หลังจากกด Show List ขึ้นมา จะขึ้น Userform ขึ้นมา ซึ่งจะต้องทำการเลือก รายการในนั้นก่อนครับ ถ้าไม่เลือกจะติด Error โดยรายการในนั้นอ้างอิงจาก Sheet List ใน Form ตัวนี้จะทำงาน คล้ายเลือกข้อมูลใน List แล้ว Sum ออกมาครับ

แต่ใน List รายการดังกล่าว หลังจากเราเลือกแล้ว จะแยกออก 2 Column ก็คือ Shopping List กับ Cost แต่กำลังหาวิธีให้ 2 Column นีีติดกัน ประมาณ Grapes106 เหมือนการเขียนสูตร =CONCATENATE(H8,I8) จะต้องทำอย่างไรครับ

[snasui]

แต่ใน List รายการดังกล่าว หลังจากเราเลือกแล้ว จะแยกออก 2 Column ก็คือ Shopping List กับ Cost แต่กำลังหาวิธีให้ 2 Column นีีติดกัน ประมาณ Grapes106

แสดงว่าต้องการให้ ListBox เหลือคอลัมน์เดียวใช่หรือไม่ครับ

[primeval]

แต่ใน List รายการดังกล่าว หลังจากเราเลือกแล้ว จะแยกออก 2 Column ก็คือ Shopping List กับ Cost แต่กำลังหาวิธีให้ 2 Column นีีติดกัน ประมาณ Grapes106

แสดงว่าต้องการให้ ListBox เหลือคอลัมน์เดียวใช่หรือไม่ครับ

หลังจากเรา กด show list เลือก รายการ หลังจากกด additem ข้อมูลจะถูกเพิ่มลงในช่อง h6 และ i6 ผมอยากได้วิธีการ ร่วมข้อความให้อยู่ใน Column เดี่ยวกันครับ โดยที่ ข้อในคอลัมน์อื่นยังเหมือนเดิม

เช่น จาก sheet excel H6 Bananas105 I6 105 ก็ยังเป็นเหมือนเดิมตามปกติครับ

[snasui]

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

Code: Select all

'Other code...
With Grocerylistbox
    For intitem = 0 To .ListCount - 1
        If .Selected(intitem) = True Then
            Cells(i, 8).Value = .Column(0, intitem) & .Column(1, intitem)
            Cells(i, 9).Value = .Column(1, intitem)
            i = i + 1
        End If
    Next intitem
End With
'Other code...

[primeval]

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

Code: Select all

'Other code...
With Grocerylistbox
    For intitem = 0 To .ListCount - 1
        If .Selected(intitem) = True Then
            Cells(i, 8).Value = .Column(0, intitem) & .Column(1, intitem)
            Cells(i, 9).Value = .Column(1, intitem)
            i = i + 1
        End If
    Next intitem
End With
'Other code...

ขอบคุณครับ

[primeval]

Code: Select all

Cells(i, 8).Value = .Column(2, intItem)

เรียนสอบถามเพิ่มอีกครับ ถ้าต้องการเพิ่มข้อความก่อนข้างหน้า .Column(2, intItem)

file:///Bananas จะต้องทำอย่างไรครับ

[logic]

ใช้หลักการเดียวกันคือเชื่อมข้อความครับ

ถ้าเชื่อม "xxyyzz" เข้าไปก่อนก็จะเป็น Cells(i, 8).Value = "xxyyzz" & .Column(2, intItem)

[primeval]

Code: Select all

Cells(i, 8).Value = .Column(2, intItem)

เรียนสอบถามเพิ่มอีกครับ ถ้าต้องการเพิ่มข้อความก่อนข้างหน้า .Column(2, intItem)

file:///Bananas จะต้องทำอย่างไรครับ

ได้แล้วครับ

[primeval]

ใช้หลักการเดียวกันคือเชื่อมข้อความครับ

ถ้าเชื่อม "xxyyzz" เข้าไปก่อนก็จะเป็น Cells(i, 8).Value = "xxyyzz" & .Column(2, intItem)

ขอบคุณครับ เมื่อกี้ ติดสัญลักษณ์ ///

[worrawut1997]

.Range("A" & iRow).Value = "License key" & ":" & txtCus_Lic5.Text

สอบถามครับ ถ้าหากผมกำหนดให้ ข้อมูลที่ผมกรอก ในTextbox "txtCus_Lic5" รวมกับ คำว่า "License key" ลงไปใน เซลล์ A แล้วถ้าหากว่า ถ้าผมไม่ได้กรอกข้อมูลใน Textbox "txtCus_Lic5" แล้วไม่อยากให้ คำว่า "License key" ไปอยู่ใน เซลล์ A ควรเขียน IF ว่าอย่างไรดีครับ

[snasui]

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

Code: Select all

if txtcus_lic5.text <> ""  then
    .Range("A" & iRow).Value = "License key" & ":" & txtCus_Lic5.Text
else
    .Range("A" & iRow).Value = ""
end if

[worrawut1997]

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

Code: Select all

if txtcus_lic5.text <> ""  then
    .Range("A" & iRow).Value = "License key" & ":" & txtCus_Lic5.Text
else
    .Range("A" & iRow).Value = ""
end if

ขอบคุณมากครับ มีประโยชน์มากครับ