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
A B C
1 ลำดับ ชื่อ รหัสประจำตัวประชาชน
2 1 นาย ก 1234567890123
3 2 นาย ข 3210987654321
4 3 นาง ง 8475623908123
Code: Select all
Function IDCheck(IDNum As Variant, Optional ByVal ResultType As Byte) As Variant
Dim Text As String
For i = 1 To Len(IDNum)
If InStr("0123456789", Mid(IDNum, i, 1)) > 0 Then Text = Text & Mid(IDNum, i, 1)
Next i
If Len(Text) <> 13 Then
IDCheck = False
Exit Function
End If
For i = 1 To 12
sum = sum + Mid(Text, i, 1) * (14 - i)
Next
N = 11 - (sum Mod 11)
IDCheck = Right(N, 1) = Right(Text, 1)
Select Case ResultType
Case 1: IDCheck = IIf(IDCheck, Val(Text), False)
Case 2: IDCheck = IIf(IDCheck, Format(Val(Text), "0 0000 00000 00 0"), False)
Case 3: IDCheck = IIf(IDCheck, Format(Val(Text), "0-0000-00000-00-0"), False)
End Select
End Function