Snasui Excel Forum

Code: Select all

Sub คะแนนห้อง1()
    Sheets("รวม 12 วิชา").Select
        ' ส11101  สังคม
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=[ส11101.xls]ห้อง1!R[6]C[32]"
    Selection.AutoFill Destination:=Range("J2:J51")
   ' พ11101  สุขศึกษา
       Range("l2").Select
    ActiveCell.FormulaR1C1 = "=[พ11101.xls]ห้อง1!R[6]C[30]"
    Selection.AutoFill Destination:=Range("l2:l51")
   ' ศ11101 ศิลปะ
          Range("m2").Select
    ActiveCell.FormulaR1C1 = "=[ศ11101.xls]ห้อง1!R[6]C[29]"
    Selection.AutoFill Destination:=Range("m2:m51")
       ' ง11101 กอท
          Range("n2").Select
    ActiveCell.FormulaR1C1 = "=[ง11101.xls]ห้อง1!R[6]C[28]"
    Selection.AutoFill Destination:=Range("n2:n51")
           ' อ11101 ภาษาอังกฤษ
          Range("o2").Select
    ActiveCell.FormulaR1C1 = "=[อ11101.xls]ห้อง1!R[6]C[27]"
    Selection.AutoFill Destination:=Range("o2:o51")
               ' ง11201 คอมพิวเตอร์
          Range("p2").Select
    ActiveCell.FormulaR1C1 = "=[ง11201.xls]ห้อง1!R[6]C[26]"
    Selection.AutoFill Destination:=Range("p2:p51")
                   ' อ11201 ภาษาอังกฤษเพื่อการสื่อสาร
          Range("q2").Select
    ActiveCell.FormulaR1C1 = "=[อ11201.xls]ห้อง1!R[6]C[25]"
    Selection.AutoFill Destination:=Range("q2:q51")
        Sheets("รายชื่อนักเรียน").Select
End Sub

Code: Select all

Sub เปลี่ยนห้อง()
'
' เปลี่ยนห้อง แมโคร
'
 CurrDir = Application.ActiveWorkbook.Path
    ClassRoom = InputBox("ตัวอย่าง ห้องเรียน ป.1/1 พิมพ์ 1-1")
    'ClassRoom = o6
'
    Range("b3").Select

    ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]ป." & ClassRoom & "'!R3c2:r52C5"
    Range("b3").Select
    Selection.AutoFill Destination:=Range("b3:E3"), Type:=xlFillDefault
    Range("b3:E3").Select
    Selection.AutoFill Destination:=Range("b3:E52")
    Range("b3:E52").Select
    Range("b3").Select
    Call Module12.คะแนนห้อง1
End Sub

Code: Select all

Sub คะแนนห้อง1()
    Sheets("รวม 12 วิชา").Select
        ' ส11101  สังคม
    Range("g2").Select
    ActiveCell.FormulaR1C1 = "=[ส11101.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[35]"
    Selection.AutoFill Destination:=Range("g2:g51")
   ' พ11101  สุขศึกษา
       Range("h2").Select
    ActiveCell.FormulaR1C1 = "=[พ11101.xls]ห้อง1!R[6]C[34]"
    Selection.AutoFill Destination:=Range("h2:h51")
             Sheets("รายชื่อนักเรียน").Select
 End Sub