ต้องการให้เซลล์ที่ระบุดึงข้อมูลใน VBA มาใช้ครับ

[yangkodza]

จากไฟล์งาน

001.GIF (21.05 KiB) Viewed 101 times

เมื่อกดเปลี่ยนห้อง จะได้รายชื่อนักเรียนห้องนั้น (ทำได้แล้ว)
และให้ตรงระดับชั้น สัมพันธ์กับห้อง (ทำได้แล้ว) ที่เป็น 1/1 พื้นแดงๆ
แต่ต้องการให้ 1/1 พื้นแดงๆ ไปดึงข้อมูล ดึงคะแนนห้อง1 ใน vba ด้วย
ถ้าเราเปลี่ยนห้องเป็น 1/2 ก็จะไป ดึงคะแนนห้อง2 ใน vba แทน

002.GIF (48.96 KiB) Viewed 101 times

ตอนนี้ต้องทำเป็นปุ่มกดเพื่อดึงข้อมูลเอาครับ
อันนี้ vba ของห้อง 1

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

The attachment ถามปัญหา.xls is no longer available

[snasui]

แนบไฟล์ต้นทางมาด้วยจะได้ช่วยทดสอบได้ นอกจากนี้ควรแจ้งเสมอว่า Code ชื่ออะไร อยู่ที่ Module ใดจะได้เข้าถึงปัญหาโดยไวครับ

ที่เขียนมาเองแล้วนั้นมีปัญหาตรงไหน อย่างไรครับ

[yangkodza]

แนบไฟล์ต้นทางมาด้วยจะได้ช่วยทดสอบได้ นอกจากนี้ควรแจ้่งเสมอว่า Code ชื่ออะไร อยู่ที่ Module ใดจะได้เข้าถึงปัญหาโดยไวครับ

ที่เขียนมาเองแล้วนั้นมีปัญหาตรงไหน อย่างไรครับ

ไฟล์ต้นทาง ขนาดไฟล์ละ 600 K ครับ ผมเลยไม่รู้ว่าจะแนบไปยังงัย ถ้าตัดออกสูตรก็ขาดครับผม
ไฟล์ VBA อยู่ใน Module12 ครับ

[snasui]

ควรทำมาแค่เป็นตัวอย่างเท่านั้น ไม่จำเป็นต้องส่งไฟล์จริงมาครับ

ตัดแล้วสูตรขาดเป็นอย่างไร ลองตัดมาดู สามารถถามสิ่งที่เป็นปัญหาในทุกเรื่องไม่ต้องกังวลกับเรื่องเช่นนั้นครับ

[yangkodza]

ควรทำมาแค่เป็นตัวอย่างเท่านั้น ไม่จำเป็นต้องส่งไฟล์จริงมาครับ

ตัดแล้วสูตรขาดเป็นอย่างไร ลองตัดมาดู สามารถถามสิ่งที่เป็นปัญหาในทุกเรื่องไม่ต้องกังวลกับเรื่องเช่นนั้นครับ

ขอบคุณมากครับ สักครู่ครับอาจารย์

[yangkodza]

อาจาร์ยครับ ผมเพิ่งไฟล์ได้แค่ 3 ไฟล์เองครับ

[yangkodza]

อันนี้ไฟล์คำถามครับ

[snasui]

ลองดูว่าใช่ที่ต้องการหรือไม่ อ่านแล้วยังไม่ค่อยกระจ่าง ผมทำตัวอย่างมาให้เห็นว่าเมื่อมีการเปลี่ยนห้องแล้วสามารถไปเรียก Code ที่ Module12 อย่างไร โดย Code นี้เขียนเพียง Code เดียวเท่านั้น อ้างอิงห้องโดยอาศัยเซลล์ E3 ของชีต "รายชื่อนักเรียน"

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

[yangkodza]

ทำได้แล้วครับ ขอบคุณมากครับ