ตรวจสอบและปรับปรุงไฟล์ 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
ช่วยอธิบายปัญหาและแสดงตัวอย่างคำตอบที่ต้องการด้วยครับ อ่านแล้วไม่เข้าใจและไม่ทราบว่าต้องการจะทำอะไร ปัญหาคืออะไร คำตอบที่ต้องการคืออะไร อยู่ทีชีทไหน เซลล์ไหน ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub test()
Dim rAll As Range, r As Range
Dim lngStart As Long, lngEnd As Long
Dim rData As Range
Dim amt As Double
With Sheets("Sheet14")
Set rAll = .Range("a3", .Range("a" & Rows.Count).End(xlUp))
For Each r In rAll
lngStart = r.End(xlToRight).Offset(0, 1).Column
lngEnd = .Cells(r.Row, "m").End(xlToLeft).Offset(0, -1).Column
If lngEnd - lngStart >= 0 Then
Set rData = .Range(.Cells(r.Row, lngStart), .Cells(r.Row, lngEnd))
amt = Application.Sum(rData)
.Cells(r.Row, "n") = amt / (lngEnd - lngStart + 1)
End If
Next r
End With
End Subf=100-(a*100/application.max(1,e)) ครับCode: Select all
Sub EPS_8()
Dim rAll As Range, r As Range
Dim lngStart As Long, lngEnd As Long
Dim rData As Range, rd As Range
Dim amt As Double
Dim a, b As Double
With Sheets("Sheet8")
Set rAll = .Range("a3", .Range("a" & Rows.Count).End(xlUp))
rAll.Select
For Each r In rAll
' lngStart = r.End(xlToRight).Offset(0, 1).Column
lngStart = .Cells(r.Row, "d").End(xlToRight).Offset(0, 0).Column
.Cells(r.Row, "d").End(xlToRight).Offset(0, 0).Select
lngEnd = .Cells(r.Row, "m").End(xlToLeft).Offset(0, -1).Column
.Cells(r.Row, "m").End(xlToLeft).Offset(0, -1).Select
a = .Cells(r.Row, "d").End(xlToRight).Offset(0, 0).Value
.Cells(r.Row, 15) = a
b = .Cells(r.Row, "m").End(xlToLeft).Offset(0, -1).Value
.Cells(r.Row, 16) = b
If lngEnd - lngStart >= 0 Then
Set rData = .Range(.Cells(r.Row, lngStart), .Cells(r.Row, lngEnd))
rData.Select
amt = Application.Sum(rData)
.Cells(r.Row, "n") = amt / (lngEnd - lngStart + 1)
.Range("l3", "z700").NumberFormat = "#,##0.00"
.Cells(r.Row, 17) = amt
End If
Next r
End With
Call Sound_2
End Sub
แก้ปัญหาได้แล้วยังครับ
P1649 wrote:Error ที่แสดงน่าแทนค่าด้วย 0 ผมพยายามลอง iserror แล้วก็ยุ่งไปกันใหญ่
ขอรบกวนอาจารย์ ช่วยแนะนำด้วยครับ
ช่วยพยายามเขียนอธิบายเยอะ ๆ ครับว่าปัญหาคืออะไร และต้องการคำตอบเป็นอย่างไรเพื่อจะได้เข้าใจตรงกัน หมายถึงหากว่ามีการหารด้วย 0 คือ e มีค่าเป็น 0 แล้วให้ f มีค่าเป็น 0 ใช่หรือไม่ครับP1649 wrote:Error ที่แสดงน่าแทนค่าด้วย 0 ผมพยายามลอง iserror แล้วก็ยุ่งไปกันใหญ่
ขอรบกวนอาจารย์ ช่วยแนะนำด้วยครับ