EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)TextBox1.Value = WorksheetFunction.VLookup(clng(id), Sheet1.Range("A2:E300"), 2, 0)
ดูว่าใช้ได้ไหมครับ หากไม่ให้เกิด Error ให้ใส่Benmore wrote:Untitled.png
เมื่อกรอกข้อมูลตัวหนังสือหรือค่าที่ไม่มีลงไปใน combobox ที่วงกลมไว้ จะเกิด Debug ขึ้นที่
Option Explicit
Private Sub ComboBox1_Change()
Dim id As Long
If ComboBox1.Value <> "" Then
id = ComboBox1.Value
ต้องแก้ไขยังไงค่ะ
on error resume next
เข้ามาช่วยครับCode: Select all
dim id as string
on error resume next
If ComboBox1.Value <> "" Then
TextBox1.Value = WorksheetFunction.VLookup(id, Sheet1.Range("A2:E300"), 2, 0)
'...Other code
หมายถึงว่า ให้ค้นหาได้ทั้งจาก id หรือชื่อผู้ใช้บริการ หรือเปล่าครับBenmore wrote:พอดีต้องการค้นหาข้อมูลที่อยูในชีท แบบที่ใส่ตัวหนังสือหรือตัวเลขก็ค้นหาได้ค่ะ
For... Next
เป็นการวนลูป เราสั่งได้ว่าให้ตรวจสอบแต่ละเซลล์ในช่วงที่กำหนดเพื่อดูว่ามีข้อมูลที่เราสนใจหรือไม่ เช่น
Code: Select all
For Each เซลล์ In ช่วงเซลล์
คำสั่งให้ทำอะไรบางอย่าง
Next เซลล์
Instr
เป็นการตรวจว่าข้อความที่ถูกตรวจสอบ มี key word ที่เราสนใจอยู่หรือไม่