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
Sub demo()
Dim i As Integer
Dim sel As Range
Set sel = [a5 :F24]
For i = 1 To sel.Rows.Count
If sel.Rows(i).Cells(1).Value = "1" Then
sel.Rows(i).Select
End If
Next i
End Sub
Code: Select all
Dim sh As Worksheet
Dim rRange As Range
Dim AllRange As Range
Dim lngFirst As Long
Dim lngLast As Long
Dim lngCount As Long
Set sh = Worksheets("Sheet1")
Set AllRange = sh.Range("A5:A24")
For Each rRange In AllRange
If rRange = 3 Then
lngCount = lngCount + 1
lngFirst = lngFirst
lngLast = rRange.Row
End If
Next rRange
lngFirst = lngLast - lngCount + 1
lngLast = lngCount
sh.Range("A" & lngFirst).Resize(lngLast, 6).Select
Code: Select all
Dim sel As Range
Dim rAll As Range
Set rAll = [a4:f4]
Set sel = [a5 :F24]
For i = 1 To sel.Rows.Count
If sel.Rows(i).Cells(1).Value = 1 Then
Set rAll = Union(rAll, sel.Rows(i))
End If
Next i
Intersect(rAll, sel).Select