ตรวจสอบและปรับปรุงไฟล์ 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) ลองตามนี้ครับ ขออภัยครับ ผมยังไม่รู้เงื่อนไข เรื่องอธิบายสูตร ผมไม่ค่อยมั่นใจครับ อยากให้รออาจารย์มาอธิบายอีกครั้งครับ อีกประการคือ สูตรถูกใช้งานบน Table ซึ่งผมก็ไม่ชำนาญกับฟังก์ชั่นนี้เช่นกัน
เนื่องจาก Field ของ Talble สามารถเป็น Text ได้เท่านั้น ไม่สามารถเป็น Number ได้ จึงต้องเปลี่ยนสูตรที่ AB2 เป็นgodman wrote:อยากทราบว่าทำไมผมสร้างสูตร list รายการใน table จึงerror แต่พอสร้างนอก table กลับใช้การได้ ผมอยากใช้คุณสมบัตรของ table ให้คุ้มค่า เพราะเห็นว่า ไม่ต้องลากเซลล์เผื่อไว้เยอะๆ เพราะการลากเผื่อไว้อาจทำให้ลืม และเปลืองเนื้อที่ด้วยใช่ไหมครับ รบกวนอาจารย์แก้ไขให้ผมด้วย เรื่องสูตรลิตต์ในคอลัมพ์ ที่เซลลแรกคือ 0 หนะครับตามไฟล์แนบครับ
เข้าใจถูกต้องแล้วครับbank9597 wrote:ด้วยฟังก์ชัน Table ที่น่าจะกำหนดให้หัวคอลัมน์มีฟอร์แมตเป็น Text เท่านั้น ไม่สามารถเป็นตัวเลขได้ ถึงแม้จะคีย์ตัวเลขลงไปก็ตาม สูตรทุกสูตรจะอ่านค่าเป็น Text เท่านั้น
ขอบคุณอาจารย์มากๆครับ 
การตั้งชื่อให้ Range มีความสูงเท่ากันทั้งหมด จำเป็นต้องทราบว่าคอลัมน์ไหนมีข้อมูลครบทุกบรรทัด เพื่อจะได้นับคอลัมน์นั้นมาเป็นความสูงของทุก ๆ Range Name เท่าที่อ่านไป พอเข้าใจครับ Code: Select all
Sub CreateNames()
Dim wb As Workbook, ws As Worksheet
Dim lrow As Long, lcol As Long, i As Long
Dim myName As String, Start As String
' set the row number where headings are held as a constant
' change this to the row number required if not row 1
Const Rowno = 1
' set the Offset as the number of rows below Rowno, where the
' data begins
Const ROffset = 1
' set the starting column for the data, in this case 1
' change if the data does not start in column A
Const Colno = 1
' Set an Offset from the starting column, for the column number that
' will always have data entered, and will therefore be used in calculating lrow
Const COffset = 0 ' in this case, the first column will always contain data.
On Error GoTo CreateNames_Error
Set wb = ActiveWorkbook
Set ws = ActiveSheet
' count the number of columns used in the row designated to
' have the header names
lcol = Cells(Rowno, Columns.Count).End(xlToLeft).Column
lrow = ws.Cells(Rows.Count, Colno).End(xlUp).Row
Start = Cells(Rowno, Colno).Address
wb.Names.Add Name:="lcol", RefersTo:="=COUNTA($" & Rowno & ":$" & Rowno & ")"
wb.Names.Add Name:="lrow", RefersToR1C1:="=COUNTA(C" & Colno + COffset & ")"
wb.Names.Add Name:="myData", RefersTo:= _
"=" & Start & ":INDEX($1:$65536," & "lrow," & "Lcol)"
For i = Colno To lcol
' if a column header contains spaces, replace the space with an underscore
' spaces are not allowed in range names.
myName = Replace(Cells(Rowno, i).Value, " ", "_")
If myName = "" Then
' if column header is blank, warn the user and stop the macro at that point
' names will only be created for those cells with text in them.
MsgBox "Missing Name in column " & i & vbCrLf _
& "Please Enter a Name and run macro again"
Exit Sub
End If
wb.Names.Add Name:=myName, RefersToR1C1:= _
"=R" & Rowno + ROffset & "C" & i & ":INDEX(C" & i & ",lrow)"
nexti:
Next i
On Error GoTo 0
MsgBox "All dynamic Named ranges have been created"
Exit Sub
Exit Sub
CreateNames_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure CreateNames of Module Technology4U"
End Sub
Code: Select all
myName = Replace(myName, "#", "")
Code: Select all
Option Explicit
Sub CreateNames()
Dim wb As Workbook, ws As Worksheet
Dim lrow As Long, lcol As Long, i As Long
Dim myName As String, Start As String
Const Rowno = 1
Const ROffset = 1
Const Colno = 1
Const COffset = 0 ' in this case, the first column will always contain data.
On Error GoTo CreateNames_Error
Set wb = ActiveWorkbook
Set ws = ActiveSheet
lcol = Cells(Rowno, Columns.Count).End(xlToLeft).Column
lrow = ws.Cells(Rows.Count, Colno).End(xlUp).Row
Start = Cells(Rowno, Colno).Address
wb.Names.Add Name:="lcol", RefersTo:="=COUNTA($" & Rowno & ":$" & Rowno & ")"
wb.Names.Add Name:="lrow", RefersToR1C1:="=COUNTA(C" & Colno + COffset & ")"
wb.Names.Add Name:="myData", RefersTo:= _
"=" & Start & ":INDEX($1:$65536," & "lrow," & "Lcol)"
For i = Colno To lcol
myName = Replace(Cells(Rowno, i).Value, " ", "_")
myName = Replace(myName, "#", "")
If myName = "" Then
MsgBox "Missing Name in column " & i & vbCrLf _
& "Please Enter a Name and run macro again"
Exit Sub
End If
wb.Names.Add Name:=myName, RefersToR1C1:= _
"=R" & Rowno + ROffset & "C" & i & ":INDEX(C" & i & ",lrow)"
Next i
On Error GoTo 0
MsgBox "All dynamic Named ranges have been created"
Exit Sub
CreateNames_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure CreateNames of Module Technology4U"
End Sub