VBA 資料分析教學：DAY 11

 VBA 良率分析自動化

假設工作表「資料」有欄位：A=產品線、B=生產數量、C=合格數量。方案會動態計算最後一行，逐行計算良率=(C/B)*100%，若低於90%則在D欄標示「邊框」並以紅色填滿。

Sub 良率分析()

    Dim ws As Worksheet

    Set ws = Worksheets("Data")

    Dim lastRow As Long

    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    ws.Range("D1").Value = "良率%"

    ws.Range("E1").Value = "狀態"

    

    Dim i As Long

    For i = 2 To lastRow

        Dim rate As Double

        If ws.Cells(i, 2).Value > 0 Then

            rate = (ws.Cells(i, 3).Value / ws.Cells(i, 2).Value) * 100

            ws.Cells(i, 4).Value = Round(rate, 2) & "%"

            If rate < 90 Then

                ws.Cells(i, 5).Value = "低良率警示"

                ws.Cells(i, 5).Interior.Color = RGB(255, 0, 0)

            Else

                ws.Cells(i, 5).Value = "正常"

            End If

        End If

    Next i

    MsgBox "良率分析完成！"

End Sub

此方案使用For迴圈查找資料、條件判斷篩選低良率，適用半導體產線品質管理，每日執行可快速監控趨勢。