วันนี้แจกcode พิเศษเกี่ยวกับการค้นหา Cell ที่มีคำที่กำหนด เพื่อหาคำมาแทนที่ โดยมี Pop up แจ้งขึ้นมาเตือน ว่าอยู่ตำแหน่งไหน แล้วแก้ไขในทันที ซึ่งตัวนี้เราสามารถกำหนดได้โดยการ
ใช้ inputbox เพื่อใส่ข้อมูลที่ต้องการหา และใช้ MsgBox ที่เป็นคำสั่งสำหรับ สร้าง pop up แจ้งเตือน
ก่อนอื่น ทำตัวอย่าง ตาราง excel ตามต่อไปนี้ ก่อน โดยไม่ต้องใส่ข้อมูลมาก เอาตามนี้ก่อน ในความเป็นจริง ข้อมูลใน column จะยาวแค่ไหน ก็ไม่ใช่เรื่องสำคัญ โปรแกรมมันหาให้แน่นอน
ข้อมูล
คลิ๊กขวาที่ workbook ในโปรเจค แล้วเลือก insert>module แล้วเขียน Code ดังต่อไปนี้
Code
โดย RangeToFind ให้เก็บค่าที่รับมาจาก inputbox ซึ่งจะรับค่ามาจาก Keyboard และต่อมาเราก็ Set range ที่เราต้องการคนหา ไว้ที่ TargetCell ซึ่งเก็บข้อมูลไปจน A1 ถึงข้อมูลสุดท้ายในตาราง
เมื่อ โปรแกรมค้นเจอ ให้เจ้งผู้ใช้ผ่านทาง MsgBox ว่าพบและแจ้ง Cell ที่เจอ (ผ่านคำสั่ง Address) หลังจากนั้นให้เปลี่ยนค่า เป็น ข้อความ (string) ที่เราต้องการ
เมื่อทำการ run program จะได้ผลลัพธ์ ดังต่อไปนี้
หลังจาก รันโปรแกรม
จบ แล้ว
ดูเพิ่มเติมในซีรีส์
โฆษณา
- ดาวน์โหลดแอปพลิเคชัน
- © 2024 Blockdit
