ถามCodeการAddและDelของListBoxครับ

[sdmania]

ตอนนี้ผมได้แต่กำหนดค่าPropertyของ listBox ตรงช่องRowSourceให้ดึงข้อมูลตั้งแต่ Sheet1!a2-a17
ถ้าผมคีย์ข้อมูลเพิ่มลงในexcel เพิ่มลงไป a18:a20 ตัวlistboxก็จะยังคงแสดงค่าแค่ a2:a17
ขอทราบวิธีเขียนCodeให้ RowSource ครอบคลุมไปถึงcell ที่เราเพิ่งAddข้อมูลใหม่ครับ
แฮ่ม เมื่อมีAdd แล้วก็ขอ Del ด้วยครับ ขอบคุณครับอาจารย์

[snasui]

ช่วยแนบ Code เดิมมาด้วยครับ

[sdmania]

ขออภัยครับ ลืมส่งไฟล์

เรื่องการโชว์รูปผมทำตามที่อาจารย์สอนได้แล้วครับ เหลือเรื่องในlistBoxนี่แหละครับผม

[snasui]

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

Code: Select all

Private Sub lstBox_Click()
myPicture = "\\Server\Test_pic_car\" & lstBox & ".jpg"
With Sheets("Sheet1")
    lstBox.RowSource = .Range(.Range("A2"), .Range("A65536").End(xlUp))
End With
imgBox.Picture = LoadPicture(myPicture)
End Sub

[sdmania]

ยังไม่ได้ครับอาจารย์ รบกวนช่วยดู code ในlstBox ให้ด้วยครับ

[snasui]

โทษทีครับ Listbox ไม่สามารถใช้ Range ตรง ๆ ได้ครับ

ยกเลิก Code ที่ผมให้ไป แก้กลับมาเหมือนเดิมแล้วปรับ Code ที่ Module1 เป็นตามด้านล่าง เป็นการใช้ AddItem แทนครับ

Code: Select all

Sub Show002()
Dim i As Integer
For i = 2 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
    frmData02.lstBox.AddItem Sheets("Sheet1").Cells(i, 1)
Next
frmData02.Show
End Sub

[sdmania]

สวัสดีปีใหม่ครับอาจารย์
ผมทำลองแล้วเกิดerror ครับ

รบกวนอาจารย์ตรวจด้วยครับ แหะๆๆ ผมยกเลิกCodeอันที่อาจารย์ให้ยกเลิกแล้วนะครับ

[snasui]

ลองเพิ่มบรรทัดนี้เข้าไปช่วยครับ

frmData02.lstBox.RowSource = ""

จะได้เป็น

Code: Select all

Sub Show002()
Dim i As Integer
frmData02.lstBox.RowSource = ""
For i = 2 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
    frmData02.lstBox.AddItem Sheets("Sheet1").Cells(i, 1)
Next
frmData02.Show
End Sub

[sdmania]

เรียบร้อยเลยครับอาจารย์ ขอบคุณครับผม

[widtara]

ลองทำตามไม่เป็นเลยค่ะ ไม่ทราบว่าถ้าเรากดปุ่ม Button 4 ที่book1 จะแสดงผลลัพธ์ยังงัยค่ะ คือว่ามีงานที่ต้องทำลักษณะนี้แต่ยังไม่เข้าใจขั้นตอนการทำงานและแสดงออกมาเลยค่ะ

[snasui]

หาก Code ถูกต้องเมื่อคลิก Button4 แล้วจะแสดงผลตามด้านล่างครับ

ClickButtonCallForm.gif (56.17 KiB) Viewed 102 times

กรณีที่ทำถูกต้องแล้วแต่ Macro ไม่ทำงาน เป็นไปได้ว่าได้กำหนด Security เอาไว้ ลอง Search ดูการกำหนดเกี่ยวกับ Security ในฟอรั่มนี้จะมีค่อนข้างเยอะครับ

[sdmania]

อาจเป็นเรื่อง โฟลเดอร์ที่เก็บรูปด้วยครับ+ชื่อรูปต้องตั้งชื่อตามที่sheet1บันทึกไว้ครับ ทีละภาพครับค่อยๆทำ


เดี๋ยวผมจะลองค้นๆหาตัวอย่างตัวนี้ให้นะครับ