VBA แสดงรายการผลการเรียนของ 2 คน ในหน้าเดียว

[snasui]

ก็ต้องเข้าไปตรวจสอบดูว่า Code สำหรับการพิมพ์เขียนไว้อย่างไร ให้ไปแก้ที่นั่นครับ

[aueijung]

จะปรับอย่างไรให้ค่าเซลล์ F4 เพิ่มค่าทีละ 1 และค่ามากสุดไม่เกินค่าของเซลล์ Q2 ครับอาจารย์

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

[snasui]

ตัวอย่าง Code ครับ

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

[aueijung]

ขอบคุณมากครับอาจารย์ ใช้ได้เลยครับไม่มีปัญหาใดเลยครับ นั่งเครียดอยู่ 2-3 วัน เริ่มจะเข้าใจ แนวคิดที่อาจารย์แก้ปัญหาให้บ้างแล้วครับ