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 ImportScoreFormCSV()
Dim fileToOpen As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
'
If MsgBox("คุณต้องการนำเข้าผลการเรียน ใช่หรือไม่?", 36, "ยืนยันการนำเข้าผลการเรียน") = 6 Then
Application.ScreenUpdating = False
fileToOpen = Application.GetOpenFilename(Title:="เปิดไฟล์ .csv เพื่อนำเข้าข้อมูล", FileFilter:="Text Files (*.txt; *.csv),*.txt;*.csv")
If fileToOpen = False Then
MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
Else
Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
Set wbTextImport = ActiveWorkbook
Set wsMaster = ThisWorkbook.ActiveSheet
' wsMaster.Unprotect Password:="ultraman711"
wsMaster.Range("F6:S50,U6:V50,Z6:AM50,AO6:AP50").ClearContents
wbTextImport.Worksheets(1).Range("A1:N50").Copy
wsMaster.Range("F6").PasteSpecial xlPasteValues
wbTextImport.Worksheets(1).Range("O1:P50").Copy
wsMaster.Range("U6").PasteSpecial xlPasteValues
wbTextImport.Worksheets(1).Range("Q1:AD50").Copy
wsMaster.Range("Z6").PasteSpecial xlPasteValues
wbTextImport.Worksheets(1).Range("AE1:AF50").Copy
wsMaster.Range("AO6").PasteSpecial xlPasteValues
Application.CutCopyMode = False
wbTextImport.Close False
Range("F6").Select
' wsMaster.Protect Password:="ultraman711"
End If
End If
Exit Sub
Application.ScreenUpdating = True
wsMaster.Protect Password:="11651165"
End Sub
Code: Select all
'Other code
If fileToOpen = False Then
MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
Else
If Not VBA.InStr(fileToOpen, Range("a18").Value) Then
'Your message
Exit Sub
End If
Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
Set wbTextImport = ActiveWorkbook
Set wsMaster = ThisWorkbook.ActiveSheet
'Other code
Code: Select all
Sub ImportScoreFormCSV()
Dim fileToOpen As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
If MsgBox("คุณต้องการนำเข้าผลการเรียน ใช่หรือไม่?", 36, "ยืนยันการนำเข้าผลการเรียน") = 6 Then
Application.ScreenUpdating = False
fileToOpen = Application.GetOpenFilename(Title:="เปิดไฟล์ .csv เพื่อนำเข้าข้อมูล", FileFilter:="Text Files (*.txt; *.csv),*.txt;*.csv")
If fileToOpen = False Then
MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
Else
If Not VBA.InStr(fileToOpen, Range("a18").Value) Then
MsgBox "ชื่อไฟล์นำเข้าไม่ถูกต้อง", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
Exit Sub
End If
Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
Set wbTextImport = ActiveWorkbook
Set wsMaster = ThisWorkbook.ActiveSheet
Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
Set wbTextImport = ActiveWorkbook
Set wsMaster = ThisWorkbook.ActiveSheet
Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
Set wbTextImport = ActiveWorkbook
Set wsMaster = ThisWorkbook.ActiveSheet
' wsMaster.Unprotect Password:="ultraman711"
wsMaster.Range("F6:S50,U6:V50,Z6:AM50,AO6:AP50").ClearContents
wbTextImport.Worksheets(1).Range("A1:N50").Copy
wsMaster.Range("F6").PasteSpecial xlPasteValues
wbTextImport.Worksheets(1).Range("O1:P50").Copy
wsMaster.Range("U6").PasteSpecial xlPasteValues
wbTextImport.Worksheets(1).Range("Q1:AD50").Copy
wsMaster.Range("Z6").PasteSpecial xlPasteValues
wbTextImport.Worksheets(1).Range("AE1:AF50").Copy
wsMaster.Range("AO6").PasteSpecial xlPasteValues
Application.CutCopyMode = False
wbTextImport.Close False
Range("F6").Select
' wsMaster.Protect Password:="ultraman711"
End If
End If
Exit Sub
Application.ScreenUpdating = True
wsMaster.Protect Password:="11651165"
End Sub
If VBA.InStr(fileToOpen, Range("a18").Value) = 0 Then
Code: Select all
If VBA.InStr(fileToOpen, Range("a18").Value) = 0 Then
Range("a18").Value
มีอยู่ใน fileToOpen
หรือไม่