Excel : EP138 Excel User Form สร้างฟอร์มกรอกข้อมูล | PART #2 แสดงข้อมูลใน List Box ของฟอร์ม

[@nawapholprachayanukul9816]

ขอขอบคุณ

[@roon]

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

[@น.ส.จารุมาศสุนันทเจริญ]

❤❤ครูใจดีมั่กๆๆ

[@roon]

ขอบคุณครับ

[@junjirasaoyai3083]

ขอบคุณสำหรับข้อมูลดีๆ ค่ะ สอนเข้าใจมากๆค่ะ

[@roon]

ยินดีครับ ขอบคุณนะครับ

[@กรรณิกากล้ากสิกิจ]

.ColumnHeads = True ติดตรงนี้ครับ แก้อย่างไรดีครับ

[@roon]

หน้า . ระบุชื่อ listbox ตรงกับที่สร้างไว้ในฟอร์มใช่มั้ย ลองตรวจสอบอีกครั้งครับ หรือครับลองเอาออกดูครับว่าเป็นไง

[@retsnom3111]

ติดเหมือนกันค่ะ 😢

[@PpAa-vk5ej]

Iist boxขึ้นบรรทัดเดียวครับ

[@roon]

ตรวจสอบ code อีกครั้งน่ะครับ หรือ เอา code ของผมเปรียบเทียบก็ได้ครับน่ะจะมีคำสั่งตกไปครับ

[@pvengsiripornpanyham9755]

ตอนแรกได้อยู่ พอปิด เข้าใหม่ ไม่ได้แล้ว😅

[@roon]

@@pvengsiripornpanyham9755 save file เป็น .xlsm ครับ

[@ครีม-ฦ2ท]

คอปบันทัดสุดท้ายของฟอมยังไงถึง

[@roon]

หมายถึง จะคัดลอก code ในฟอร์มเหรอครับ

[@สายฟ้าแดนใต้-ฝ6ร]

ผมหาคำสั่ง .Column ไม่เจอคับ run ไม่ผ่านคับ

[@roon]

ใส่
with me.listbox1
end with
ขอบคุณครับ

[@Bigbikebossa]

Me คือ ตัวแปรอะไรครับอาจารย์

[@roon]

Me แค่บอกว่าเป็นตัวฉัน หรือ form นี้ครับ

[@Bigbikebossa]

@@roon ขอบคุณมากครับผม

[@TripleG245]

Show data ติดคำสั่ง Click ลบแล้ว reset แล้วไม่หายต้องทำไงได้ค่ะ

[@roon]

delete เสร็จแล้วต้องไปเรียกใช้ฟังก์ชั่น showdata อีกรอบครับ
ตามนี้
Private Sub cmddelete_Click()
If Trim(Me.txtid.Value) = "" Then
MsgBox "Please select id to delete"
Exit Sub
End If
answer = MsgBox("You want to Delete this record??", vbQuestion + vbYesNo, "warning")
If answer = vbYes Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("employee")
Dim Delete_Row As Long
Delete_Row = Application.WorksheetFunction.Match(CLng(Me.txtid.Value), sh.Range("A:A"), 0)
sh.Range("A" & Delete_Row).EntireRow.Delete
Call clear_data
Call Showdata
Call Disable_Cmd
End If
End Sub
ขออภัยหากตอบไม่ตรงคำถามครับ

[@SiriyapornKhamsaenMint]

ครูคะหนูตามศุตรแต่ก็ยังผิดทำไงดีค่ะ

[@roon]

Lode ตัวอย่างไปดูได้เลยครับ

[@roon]

หรือมัน error แบบไหนครับ

[@Fluke-Napadon.Studio]

พอกดรี มัน error ตรง With Me.ListBox1 ครับ มีวิธีแก้ไหมครับ

[@roon]

ลองดูชื่อ listbox ตั้งชื่อเป็น listbox1 หรือไม่
และตรวจสอบด้านล่างว่าลืมใส่ end with หรือไม่ครับ

[@youtohahaha6757]

@@roon Listbox อยู่ตรงไหนครับ ตั้งชื่อยังไง

[@ไม่มีไรมาก-อ3ผ]

ถ้าเผลอกดปิด Project -VBAProject ต้องทำอย่างไงให้กลับเหรอคะ

[@BukjoiJourney]

เพิ่มข้อมูลแล้วไม่โชว์ในlistbox

[@roon]

มี error หรือเปล่าครับ ตรวจสอบชื่อ list อีกทีครับ

[@BukjoiJourney]

@@roon ไม่มีerrorแต่รายชื่อที่ขึ้นในListbox มีแค่คนเดียวครับ แต่ในexcel ผมกรอกข้อมูลไป 2 คน

[@doungpanyasoulixay944]

ปรับความยาว colum ไม่ได้ครับ

[@roon]

column ของ list ใช่มั้ยครับ
Private Sub UserForm_Initialize()

With Me.ListBox1
.ColumnCount = 8
.ColumnWidths = "30,50,80,140,80,7,90,90"
End With
End Sub
ลองดูตาม code นี้ครับ

[@doungpanyasoulixay944]

@@roon ขอบคุณครับ

[@ttoeyjp4895]

ถ้า Rowsource ไม่ต้องการที่คอลัมน์ที่ติดกัน 1-5แต่ต้องการคอลัมน์1,3,5 แบบนี้ค่ะต้องทำยังไงหรอคะ

[@siripornpanthong763]

ถ้าจะเอาไปทำบันทึกประวัติการอบรมพนักงานต้องทำไงค่ะ เพราะพนักงาน1คนคืออบรมหลายหลักสูตร หนูต้องการให้มันโชว์ทุกหลักสูตรที่เขาเคยอบรม ต้องเพิ่มยังไงค่ะ

[@roon]

ต้องเก็บข้อมูลแยก sheet ครับ
การเขียน code ก็ต้องซับซ้อนอีกนิดครับ
รอติดตามคลิปถัดๆ ไปนะครับ ผมกำลังเขียน code อยู่ เสร็จจะลงคลิปครับ และสามารถประยุกต์ใช้ได้ครับ

[@siripornpanthong763]

@@roon หนูกำลังหาวิธีทำเลยค่ะ เพราะข้อมูลพนักงานเยอะ 😂

[@Family_Podcast_29]

สามารถรันเลข No. 1, No.2 ตามที่เราเพิ่ข้อมูลได้ไหมครับ

[@roon]

ได้ครับ รอคลิปถัดไปประมาณ part ที่ 5 จะยกตัวอย่างให้ครับ

[@Family_Podcast_29]

@@roon ขอบคุณครับ

[@buca4yuwie]

พิมพ์ .column ไม่ขึ้นในลิสเลยครับ เกิดจากอะไรครับ??

[@roon]

column ของ list ใช่มั้ยครับ
Private Sub UserForm_Initialize()

With Me.ListBox1
.ColumnCount = 8
.ColumnWidths = "30,50,80,140,80,7,90,90"
End With
End Sub
ลองดูตาม code นี้ครับ

[@ครีม-ฦ2ท]

แคปบันทัดสุดท้ายของฟอมมายังไงคะ

[@tachapoltanikchokkobkul558]

วิธีเลือกบางคอลัมน์มาแสดงใน listbox โดยไม่เรียงกัน จะทำอย่างไรครับ

[@roon]

ตอนวนลูปแสดงใน list สามารถเอาคอลัมน์ไหนขึ้นก่อนก็ได้ครับ

[@wuttipongkhuntawong2132]

ข้อความที่ทำเป็นวันที่ แต่โชว์เป้นตัวเลขต้องตั้งค่าตรงไหนครับ

[@roon]

เปลี่ยนรูปแบบเซลล์เป็น date ได้เลยครับ

[@wanneesangkrajang9520]

ขอบคุณค่ะ

[@roon]

ยินดีและขอบคุณน่ะครับ

[@jakapanpornkitwattanatawor2424]

ขอบคุณครับ

[@roon]

ยินดีครับ

[@jirapongmakaracharernmongk8876]

ปรึกษาครับ ของผมโชว์แค่แถวแรกของข้อมูลครับ ไม่โชว์ข้อมูลแถวอื่น

[@roon]

ตรวจสอบ code อีกครั้งครับ คงจะใส่ชื่อเซลล์อ้างอิงไม่ถูกครับ

[@kamonratpromjiam5616]

ตัวอักษรในlistboxจัดเรียงไม่สวยครับแก้ยังไงครับ