Snasui Excel Forum

snasui wrote: Tue Sep 07, 2021 8:49 pm ตัวอย่าง 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

logic wrote: Fri Jul 06, 2018 9:54 am ใช้หลักการเดียวกันคือเชื่อมข้อความครับ

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

primeval wrote: Fri Jul 06, 2018 9:50 am

Code: Select all

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

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

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

snasui wrote: Fri Jul 06, 2018 5:22 am ตัวอย่างการปรับ 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...

snasui wrote: Thu Jul 05, 2018 10:45 pm

primeval wrote: Thu Jul 05, 2018 10:41 pm แต่ใน List รายการดังกล่าว หลังจากเราเลือกแล้ว จะแยกออก 2 Column ก็คือ Shopping List กับ Cost แต่กำลังหาวิธีให้ 2 Column นีีติดกัน ประมาณ Grapes106

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

primeval wrote: Thu Jul 05, 2018 10:41 pm แต่ใน List รายการดังกล่าว หลังจากเราเลือกแล้ว จะแยกออก 2 Column ก็คือ Shopping List กับ Cost แต่กำลังหาวิธีให้ 2 Column นีีติดกัน ประมาณ Grapes106

snasui wrote: Thu Jul 05, 2018 9:34 pm ให้แสดงข้อความติดกันที่ไหน อย่างไร ช่วยอธิบายโดยเรียงลำดับการทำงาน ลงรายละเอียดให้ถึงปลายทางที่ต้องการแสดงข้อมูล สำหรับไฟล์ที่แนบมาเมื่อคลิก Add Item แล้วเกิด Error ครับ