VBA แบบประถม

[P1649]

เริ่มเขียนโครงไว้ แต่ยังให้งานไม่ได้ เพราะการประกาศและรูปแบบ ยังไม่ถูกต้อง ขอรบกวนช่วยกัน แก้ไขให้ใช้งานได้ด้วยครับ

[snasui]

ช่วยอธิบายปัญหาและแสดงตัวอย่างคำตอบที่ต้องการด้วยครับ

[P1649]

การเขียน VBA นี้ติดขัดตรง เงื่อนไขให้ เว้นข้อมูลแต่ละชีตในแถวสุดท้าย ไม่นำมาคำนวน และทดสอบได้ด้วยการแทนค่า จะได้คำตอบ คือ 12.70 และ 8.89

1. นับจำนวน column
2. นับจำนวน row
3. เริ่มทำงานตั้งแต่แถวที่ 3 ถึง 650
4. เขียนเงื่อนไขอย่างไรให้เฉพาะที่ลงสี ในแต่ละ row
5
6. a = sheets(12).cells(3,11) = 11.50
7. m = (Sheets(14).cells(3,8)+Sheets(14).cells(3,9)+Sheets(14).cells(3,10))/3
7. m = (36.36+33.32+25.68)/3 = 31.78
8. n = (Sheets(8).cells(3,8)+Sheets(8).cells(3,9)+Sheets(8).cells(3,10))/3
8. n = (0.38+0.34+0.38)/3 = 0.366
9. o = ((Sheets(11).cells(3,10)-(Sheets(11).cells(3,9))+((Sheets(11).cells(3,9)-(Sheets(11).cells(3,8))+((Sheets(11).cells(3,8)-(Sheets(11).cells(3,7))
9. o = ((7.25-6.57)+(6.57-6.32)+(6.32-5.24))/3 = 0.67
10. AA = o+Sheets(11).Cells(3,11)
10. AA = 0.67+7.25 = 7.92
11 BB = o*100/Sheets(11).cells(3,11)
11. BB = 0.67*100/7.25 = 9.24
12. CC = m*(n+n*BB/100)
12. CC = 31.78*(0.366*9.24/100) = 12.70
13. XX = (100-30)*CC/100
13. XX = (100-30)*12.7/100 = 8.89

[snasui]

อ่านแล้วไม่เข้าใจและไม่ทราบว่าต้องการจะทำอะไร ปัญหาคืออะไร คำตอบที่ต้องการคืออะไร อยู่ทีชีทไหน เซลล์ไหน

[P1649]

เบื้องต้นมีความต้องการ VBA เป็นดังนี้ครับ
1. ข้อมูลมีทั้งหมด 600 แถว
2. นำข้อมูลแต่ละแถว เว้นตัวแรกและตัวสุดท้ายมารวมกันแล้วหารด้วยจำนวนข้อมูล ผลลัพท์ แสดงที่ 2 ช่องถัดไป ตัวอย่าง
3. แถวที่ 3 (25.68+33.32+36.36)/3
4. แถวที่ 4 (41.00+7.67+81.99+31.8)/4

[snasui]

ลองดูตัวอย่าง 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 Sub

[P1649]

ใช้ได้ครับ จะพยายามแกะและทำความเข้าใจให้ทำงานร่วมกับ sheet อื่นๆได้ด้วย ขอบคุณมากครับ

[P1649]

Error ที่แสดงน่าแทนค่าด้วย 0 ผมพยายามลอง iserror แล้วก็ยุ่งไปกันใหญ่
ขอรบกวนอาจารย์ ช่วยแนะนำด้วยครับ

[snasui]

ถ้ามั่นใจว่า e เป็นศูนย์ได้ ลองปรับ Code เป็น f=100-(a*100/application.max(1,e)) ครับ

[P1649]

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

Code นี้บางครั้งใช้งานได้ปกติ แต่บางครั้งติด error โดยเฉพาะในส่วน select เป็นการตรวจสอบว่าทำงานที่ตำแหน่งไหนบ้าง

[snasui]

ช่วยแจ้งผลว่าที่ถามมาก่อนหน้านี้คือด้านล่าง แก้ปัญหาได้แล้วยังครับ

Error ที่แสดงน่าแทนค่าด้วย 0 ผมพยายามลอง iserror แล้วก็ยุ่งไปกันใหญ่
ขอรบกวนอาจารย์ ช่วยแนะนำด้วยครับ

[P1649]

ยอมให้ผลลัพท์ออกมาเป็น ศูนย์ แทนติด error ใช้งานต่อไปได้ครับ

[snasui]

ช่วยพยายามเขียนอธิบายเยอะ ๆ ครับว่าปัญหาคืออะไร และต้องการคำตอบเป็นอย่างไรเพื่อจะได้เข้าใจตรงกัน

ผมขอถามอีกรอบ จากคำถามที่ถามมานี้ต้องการคำตอบเป็นอย่างไรครับ

Error ที่แสดงน่าแทนค่าด้วย 0 ผมพยายามลอง iserror แล้วก็ยุ่งไปกันใหญ่
ขอรบกวนอาจารย์ ช่วยแนะนำด้วยครับ

หมายถึงหากว่ามีการหารด้วย 0 คือ e มีค่าเป็น 0 แล้วให้ f มีค่าเป็น 0 ใช่หรือไม่ครับ