Snasui Excel Forum

Code: Select all

Sub GA_Click()
Dim sheet As Worksheet, Sum, j As Integer
j = 7
Sum = 0
        For i = Sheets("รายงานผลการเรียน-Miterm").Range("F4") To Sheets("รายงานผลการเรียน-Miterm").Range("Q2")
         Sum = Sheets("รายงานผลการเรียน-Miterm").Range("F4") + i
                         If Sheets("รายงานผลการเรียน-Miterm").Range("F4") = "1" Then
                                Sheets("เกรดเฉลี่ย").Cells(j, "g").Resize(1, 1).Value = _
                                Sheets("รายงานผลการเรียน-Miterm").Range("F25").Value
                                j = j + 1
                        Else
                                'Sheets("รายงานผลการเรียน-Miterm").PrintOut Preview:=True
                        End If
        Next i
End Sub

Code: Select all

Sub GA_Click()
    Dim i%, j%
    j = 7
    With Sheets("รายงานผลการเรียน-Miterm")
        For i = 1 To .Range("Q2").Value
                .Range("f4").Value = i
                Sheets("เกรดเฉลี่ย").Cells(j, "g").Value = _
                    .Range("F25").Value
                j = j + 1
        Next i
    End With
End Sub