สร้างปุ่มลบข้อมูลแต่ยังเหลือDrop Down List

[euang]

คือตอนนี้ทำงานสร้างบิลส่งของ ในนั้นมีการทำเป็นตาราง โดยมีช่องรายการสินค้า รหัสสินค้า ช่วงด้านบนก็เป็นพวกที่อยู่บริษัท ปัญหาคือตอนนี้ต้องการสร้างปุ่ม โดยจะตั้งชื่อว่าclear เพื่อเมื่อกดปุ่มที่สร้างนี้เเล้ว มันจะลบข้อมูลที่เราได้คลิกเลือกไว้ให้เป็นช่องสีขาวๆเปล่าๆแต่ยังเหลือDrop Down Listให้เราเลือกอยู่(คือในตารางจะมีคอลัมน์ รหัสสินค้า รายการสินค้า หน่วย จำนวน ในคอลลัมน์ รายการสินค้า และรหัสสินค้า แต่ละอันก็จะมีเซลล์เป็นช่องๆอยู่ซึ่งแต่ละช่องดิฉันได้ทำDrop Down Listไว้ เพื่อเวลาทำงานก็จะได้กดเลือกชื่อสินค้าที่ต้องการ รหัสสินค้า ที่ต้องการลงไปมันก็จะโชว์ขึ้นมา) มีคนเคยแนะนำว่าให้ใช้เครื่องมือ clear ที่อยู่ในแทบเครื่องมือ แต่พอดิฉันใช้อันนั้นลบ มันลบไปหมดเลย Drop Down Listไว้ก็หายไป ต้องการสร้างปุ่มลบข้างๆตารางโดยตั้งชื่อclear เมื่อกดมันจะลบข้อมูลในตารางแบบฟอร์มให้เป็นสีขาวเปล่าๆ แต่ยังเหลือDrop Down Listให้เลือกสินค้าใหม่เหมือนเดิมยังไง ใครพอทราบวิธีแก้ปัญหาชวยแนะนำหน่อย ต้องให้สูตรหรือโค้ดอะไร ขอบคุณค่ะ

[snasui]

เท่าที่อ่านดูจะเป็นการใช้ Code ในการลบเฉพาะ Contents ครับ

การถามปัญหาที่เป็น Code ต้องทำตามกฎข้อ 5 ด้านบน คำแนะนำเบื้องต้นคือให้บันทึก Macro แล้วนำ Code มาปรับใช้ ถ้าหากยังไม่ทราบว่าบันทึก Macro ทำอย่างไรก็ต้องศึกษามาก่อนตามลำดับครับ ดู Link นี้เป็นแนวทางครับ https://support.office.com/th-th/articl ... a70e64937b

[euang]

แนบไฟล์มาให้ค่ะ มีโค้ดอยู่ข้างในไฟล์ค่ะ ขอบคุณค่ะ

[snasui]

ช่วยอธิบายมาว่าต้องการ Clear เซลล์ใดบ้างอย่างละเอียดครับ

[euang]

อันนี้ไฟล์ใหม่ ข้างในแก้แล้วค่ะว่าจะclearเซลล์ใดบ้าง

B7 กับ B10 ดิฉันใช้สูตร VLOOKUP

A18 ถึง E25 ดิฉันใช้สูตร VLOOKUP ซึ่งมีการเชื่่อมโยงกับตารางข้อมูลด้านล่างของแบบฟอร์ม

[snasui]

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

Code: Select all

Sub test()
    Sheets("แบบฟอร์ม").Range("b7").MergeArea.ClearContents
    Sheets("แบบฟอร์ม").Range("a18:a25").ClearContents
End Sub

ส่วนที่เป็นสูตรไม่ต้อง Clear เพราะต้องใช้ต่อ หากไม่ต้องการให้แสดง Error สามารถปรับสูตรได้ ยกตัวอย่างเช่นด้านล่างครับ

=If(Isna(VLOOKUP(B7,I44:J66,2,0)),"",VLOOKUP(B7,I44:J66,2,0))

[euang]

ลองแก้ไขเเล้วนะค่ะ แต่อยากสอบถามว่า เรากดปุ่มclear ที่สร้างขึ้น มันจะมีบางช่องที่ขึ้น #N/A เราจะไม่ให้ช่องพวกนั้นขึ้นคำนี้ ให้เป็นช่องขาวๆได้หรือไม่ค่ะ หรือว่ามันสุดได้แค่นี้ (ใช่ในแบบความคิดของดิฉันหรือไม่ ว่าค่า #N/A นี่คือค่าว่างของมันเเล้ว)

[snasui]

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

ลองแล้วติดขัดตรงไหนให้แนบไฟล์ที่ได้ลองเองแล้วมาด้วยจะได้ช่วยดูต่อไปจากนั้นครับ

[euang]

ไฟล์นี้ที่ดิฉันนำโค้ดไปใช้แล้ว แต่เมื่อกดปุ่มclearที่สร้าง บางช่องแสดงผลเป็น #N/A ดิฉันต้องการให้เป็นแค่ช่องสีขาวเปล่าๆไม่ต้องขึ้นคำว่า #N/A ได้หรือไม่คะ

[snasui]

ส่วนที่เป็นสูตรไม่ต้อง Clear เพราะต้องใช้ต่อ หากไม่ต้องการให้แสดง Error สามารถปรับสูตรได้ ยกตัวอย่างเช่นด้านล่างครับ

=If(Isna(VLOOKUP(B7,I44:J66,2,0)),"",VLOOKUP(B7,I44:J66,2,0))

คุณได้อ่านประโยคด้านบนนี้แล้วหรือไม่ อ่านแล้วเข้าใจว่าอย่างไร ที่ถามเพราะไม่เห็นทำตามที่ผมแจ้งไปครับ

[euang]

ใช่แบบนี้หรือเปล่าคะ คือไม่รู้จะใส่ไว้ตรงส่วนใด

[snasui]

ค่อย ๆ ถามตอบกันไปจนกว่าจะได้คำตอบนะครับ

Vlookup ที่เขียนไว้นั้นอยู่ที่ไหนบ้าง อยู่ในหน้าต่างตามภาพที่แนบมาหรือไม่ ถ้าไม่ก็ไม่ใช่ที่นั่นแน่ๆ เลิกสนใจหน้าต่างนั้นไปก่อนแล้วกลับไปดูในเซลล์

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

[euang]

ขอบคุณค่ะ ขณะนี้ดิฉันกำลังแก้ที่ละเซลล์ที่มี Vlookup อยู่ค่ะ

[euang]

ทำสำเร็จแล้วค่ะ ขอบคุณมากๆนะคะ ขอบคุณจริงๆจากใจเลย ถ้าไม่ได้ คุณsnasui ช่วยก็ยังทำไม่ได้จนถึงทุกวันนี้ ขอบคุณมากๆนะคะ