Snasui Excel Forum

ในส่วนโค้ดนี้ถ้าต้องการให้เปลี่ยนเป็นลบข้อมูลใน listbox เเบบที่อาจารย์สอนเเทนต้องเปลี่ยนเป็นยังไงบ้างครับผม
With Worksheets("dataplace")
.Range("a2").Offset(i, 0).Resize(1, 6).Delete shift:=xlUp



**อันนี้ผมปรับเเก้มาจากที่อาจารย์เเนะนำไปก่อนหน้านี้เเล้วครับ
Private Sub UserForm_Initialize()
Dim r ...

ขอบคุณมากๆครับอาจารย์

อีกวิธีจะยุ่งยากกว่านี้คือแทนที่จะกำหนด DataSource ให้กับ ListBox แต่เป็นการ Loop ข้อมูลจากชีต dataplace เข้าไปใน ListBox แทน และลบออกจาก ListBox ตามรายการที่วางในพื้นที่เป้าหมายแล้ว ในกรณีนี้สามารถจะใช้ข้อมูลที่ชีต dataplace เป็นต้นทางได้โดยตรงเพราะไม่มีการลบออกไปแต่อย่างใด
***
ถ้าเป็นวิธีน ...

:flw: อาจารย์พอจะมีวิธีที่ไม่ให้เลือกข้อมูลได้ซ้ำโดยไม่ต้องให้ข้อมูลใน data place หายมั่งมั้ยครับ เพราะว่าข้อมูลนั่นต้องเอาไว้อ้างอิงในตอนเพิ่มข้อมูล เเล้วเดี๋ยวผมต้องทำปุ่มเพื่อเพิ่มข้อมูล ใน หน้า dataplace ด้วยครับ ขอคำเเนะนำด้วยครับ (ถ้าเเบบว่าพอจะเพิ่มข้อมูลที่มีในตารางเเล้วให้ เตือนว่ามีข้อม ...

ผมกำลังใช้ vba ในการทำฟอร์ม เพื่อเพิ่มข้อมูลสถานที่ท่องเที่ยวเพื่อบันทึกไปเป็น .csv ครับ เเล้วผมใช้ listbox เพื่อให้มาเเสดงข้อมูลเเละ ผมจะเลือกข้อมูลจาก listbox ได้ทีละหลายๆ อันพร้อมกัน เเละกดบันทึกลงในตาราง excel ที่ผมกำหนด
ผมจะสอบถามว่า พอจะมีวิธีที่จะทำให้ ข้อมูลที่ผมได้เลือกใน listbox ไปเเล ...