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 CommandButton1_Click()
Dim str1 As String
Dim nameSvFile As String
Dim mypath As String
Dim strFileExists As String
Dim filenames As String
Call PadRunNumber
mypath = ThisWorkbook.Path & "\"
str1 = mypath & "00000000-insname-carid.xlsm"
nameSvFile = mypath & [ShowFName4Save] & ".xlsm"
strFileExists = Dir(mypath & [ShowFName4Save] & ".xlsm")
If strFileExists <> "" Then
MsgBox Split(strFileExists, "-")(0) & " ไฟล์นี้น่าจะมีอยู่แล้วกรุณาตรวจสอบใหม่อีกครั้ง"
Else
Range("RunNumber") = Range("RunNumber") + 1
Call PadRunNumber
FileCopy str1, nameSvFile
MsgBox "สร้างไฟล์สำเร็จ " & [RunCaseNumber] - 1
Workbooks.Open nameSvFile
End If
End Sub
Code: Select all
'Other code
strFileExists = mypath & Left([ShowFName4Save], InStr([ShowFName4Save], "-")) & "*"
If Dir(strFileExists) <> "" Then
MsgBox Split(strFileExists, "-")(0) & " ไฟล์นี้น่าจะมีอยู่แล้วกรุณาตรวจสอบใหม่อีกครั้ง"
Else
'Other code