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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Private Sub txtSearch_Change()
Dim I As Long
Dim b As Long
Dim RRng As Range
Dim RRow As Long
Dim LastRow As Long
Me.ListBox1.Clear
LastRow = Worksheets("Data").Cells(Sheets("Data").Rows.Count, "A").End(xlUp).Row + 1
'Row Listbox
b = 0
For I = 2 To LastRow
Set RRng = Range("A" & I).find(txtSearch.Text, LookIn:=xlValues, LookAt:=xlPart)
If Not RRng Is Nothing Then
RRow = RRng.Row
If b = 0 Then
ListBox1.AddItem
ListBox1.List(0, 0) = "Job Name"
ListBox1.List(0, 1) = "Location"
ListBox1.List(0, 2) = "User"
ListBox1.List(0, 3) = "Tel No."
ListBox1.List(0, 4) = "Status"
ListBox1.List(0, 7) = "Maker"
b = 1
End If
ListBox1.AddItem
ListBox1.List(b, 0) = Worksheets("Data").Range("A" & I).Value
ListBox1.List(b, 1) = Worksheets("Data").Range("B" & I).Value
ListBox1.List(b, 2) = Worksheets("Data").Range("C" & I).Value
ListBox1.List(b, 3) = Worksheets("Data").Range("D" & I).Value
ListBox1.List(b, 4) = Worksheets("Data").Range("E" & I).Value
ListBox1.List(b, 5) = Worksheets("Data").Range("F" & I).Value
b = b + 1
'Me.ListBox1.AddItem Data.Cells(i, 1).Value
'Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(i, 2).Value
End If
Next I
End Sub