ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
ไฟล์ SPAO ที่ใ้ช้ Import ข้อมูลลองใช้ Code ตามด้านล่างครับCode: Select all
Sub Import()
Dim rTarget As Range
Dim TextFileImport As String
TextFileImport = Application.GetOpenFilename("Text Files (*.txt),*.txt", , _
"Select Text Data File")
Set rTarget = Worksheets("School").Range("C65536").End(xlUp).Offset(1, 0)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & TextFileImport, _
Destination:=rTarget)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 874
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End SubCode: Select all
Sub Import()
Dim rTarget As Range
Dim i As Integer
Dim TextFileImport As Variant
On Error GoTo MsgError
TextFileImport = Application.GetOpenFilename("Text Files (*.txt),*.txt", , _
"Select Text Data File", , True)
For i = 1 To UBound(TextFileImport)
Set rTarget = Worksheets("School").Range("C65536").End(xlUp).Offset(1, 0)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & TextFileImport(i), _
Destination:=rTarget)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 874
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Next i
Exit Sub
MsgError:
MsgBox "Please select a file"
Exit Sub
End Sub
ลองตามนี้ครับ
ฟังก์ชั่น Index เป็นการนำข้อมูลในพื้นที่ที่ระบุไว้ล่วงหน้ามาแสดงครับ สำหรับฟังก์ชั่น Index ไม่น่าจะมีปัญหาอะไร คงจะมีปัญหาจากสูตรที่เกี่ยวข้อง หากจะปรับให้กระชับขึ้น, ตรงกับความต้องการและใช้เวลาน้อยผมคงต้องทราบเงื่อนไขทั้่งหมด เพื่อเขียนสูตรให้ใหม่เลยครับ ลองตามนี้ครับ
สามารถใช้สูตรง่าย ๆ ได้เลยครับ เช่น G5 คีย์ส่วนที่ต้องบวก E5 ด้วย 1 เนื่องจากนำไปใช้เป็นส่วนประกอบของฟังก์ชั่น Index ในส่วนที่เป็นคอลัมน์ และกรณีนี้ใช้กับหลายคอลัมน์จึงต้องกำหนดให้คอลัมน์แรกของ Index เป็น 1 เสมอtigerwit wrote:อธิบายแนวคิดอย่างนี้ครับ...ถ้ามี ให้ดึงค่าที่อยู่ เหนือ 26170 ขึ้นไป 1 แถวมาแสดง (คือค่า 26690)
ถ้า I5 เป็น 1.0 ดึงค่าเหนือขึ้นไป 2 แถวมาแสดง (27200)
อธิบายไป ก็งงไป
ยกเลิกการ Mark .Refresh BackgroundQuery:=False เป็น Comment ครับ 
