แปลกใจทำไมดึงข้อมูลไม่ยอมมาจากอีกไฟล์

[yangkodza]

Capture.GIF

Code: Select all

Sub ดึงข้อมูล()
'
' เปลี่ยนห้อง แมโคร

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

    ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[คะแนนประถมเทอม1xlsx]ป." & ClassRoom & "'!R3c2:r52C18"
    Range("b3").Select
    Selection.AutoFill Destination:=Range("b3:R3"), Type:=xlFillDefault
    Range("b3:R3").Select
    Selection.AutoFill Destination:=Range("b3:R52")
    Range("b3:R52").Select
    Range("b3").Select
End Sub

ดึงข้อมูลแล้วงานไม่ยอมมาครับไม่ทราบว่าผิดตรงไหนครับ งงมาก
เพราะว่าผมเทียบกับงานเก่าที่เคยทำแล้วไล่ Code เอาครับ

คะแนนประถมเทอม1.xlsx

ตัวดึงข้อมูล.xlsm

[snasui]

ช่วยแจ้งมาอย่างละเอียดว่าไฟล์อยู่ใน Path ไหนครับ

Current Drive หมายถึง Drive ปัจจุบันที่กำลังทำงาน

ปัจจุบันไฟล์วางอยู่ที่ Paht ไหน ให้เขียนเข้าไปตรง ๆ แทนที่จะใช้ CurrDir เพราะอาจจะผิดพลาด อ้างไม่ตรงกับที่เก็บไฟล์จริงได้ครับ

[yangkodza]

ช่วยแจ้งมาอย่างละเอียดว่าไฟล์อยู่ใน Path ไหนครับ

Current Drive หมายถึง Drive ปัจจุบันที่กำลังทำงาน

ปัจจุบันไฟล์วางอยู่ที่ Paht ไหน ให้เขียนเข้าไปตรง ๆ แทนที่จะใช้ CurrDir เพราะอาจจะผิดพลาด อ้างไม่ตรงกับที่เก็บไฟล์จริงได้ครับ

ไฟล์ทั้ง 2 ไฟล์ อยู่ในโฟลเดอร์เดียวกันครับผม

[snasui]

สังเกตว่าชื่อไฟล์ใน Code ผิดพลาดอยู่ครับ ไม่มี . (จุด)

[yangkodza]

สังเกตว่าชื่อไฟล์ใน Code ผิดพลาดอยู่ครับ ไม่มี . (จุด)

อาจารย์ครับ ใส่จุดแล้วครับยังไม่ยอมออก
ฟ้องชื่อไฟล์ผิดทั้งๆที่ เราเปลี่ยนชื่อแล้ว งงครับ ดังภาพ

ไฟล์งานอยู่บนหน้าจอ ในโฟลเดอร์ Test ครับ

Capture.GIF

[snasui]

ผมลองทดสอบ Code แล้วโดยไฟล์อยู่ใน Folder เดียวกัน ไม่พบกว่าติดปัญหาใดครับ

[yangkodza]

ผมลองทดสอบ Code แล้วโดยไฟล์อยู่ใน Folder เดียวกัน ไม่พบกว่าติดปัญหาใดครับ

ขอบคุณมากครับ
พอดีออกไปธุระเลยปิดคอม
กลับมาเปิดงานได้ปกติ งงเลยครับ

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

Code: Select all

Sub เปลี่ยนห้อง()
' เปลี่ยนห้อง แมโคร
 CurrDir = Application.ActiveWorkbook.Path
    ClassRoom = InputBox("ตัวอย่าง ห้องเรียน ป.1/1 พิมพ์ 1-1")
    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
    ' ดึงคะแนน
           Sheets("คะแนนเทอม1").Select
          ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[คะแนนประถมเทอม1.xlsx]ป." & ClassRoom & "'!R2c1:r52C18"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:R2"), Type:=xlFillDefault
    Range("A2:R2").Select
    Selection.AutoFill Destination:=Range("A2:R52")
    Range("A2:R52").Select
    Range("A2").Select
           'Call Module14.คะแนน
              '  Sheets("รวม 12 วิชา").Select
              '  ActiveSheet.Protect DrawingObjects:=Flase, Contents:=True, Scenarios:=Flase, Password:="2500"
           '     Sheets("รายชื่อนักเรียน").Select
End Sub

รบกวนอาจารย์ช่วยปรับสูตรให้หน่อยครับ

และอีกอย่าง คะแนนเทอม1 ชอบมี Error แปลกๆ
ดังภาพ
ในภาพแจ้ง Error ที่ U10,T15 ครับ
กดเปลี่ยนห้องครั้งนึงก็จะ Error ทีนึงครับ

Capture.GIF

[snasui]

แนบตัวอย่างไฟล์ที่เกี่ยวข้องทั้งหมดมาด้วยครับ

[yangkodza]

แนบตัวอย่างไฟล์ที่เกี่ยวข้องทั้งหมดมาด้วยครับ

ได้ครับ ผมตัดส่วนไม่จำเป็นออกหมดแล้วครับ

ตัวรันคือ 01 ครูประจำชั้นT2
จากการสังเกตุ ถ้าชีต คะแนนเทอม1 ยังไม่มีข้อมูลมา
เวลาสั่งเปลี่ยนห้องครั้งแรกจะยังเปลี่ยนไม่ได้ ต้องเปลี่ยน 2 ครั้งครับ
การขึ้น Error จะขึ้น บางครั้ง ครับแปลกๆ
ในที่นี้ผมมี ป.1 4 ห้อง ครั้ง

Tset.rar

[snasui]

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

Code: Select all

Sub เปลี่ยนห้อง()
    ' เปลี่ยนห้อง แมโคร
    CurrDir = Application.ActiveWorkbook.Path
    ClassRoom = InputBox("ตัวอย่าง ห้องเรียน ป.1/1 พิมพ์ 1-1")
    Range("b3").FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]ป." & ClassRoom & "'!R3c2:r52C5"
    
    Range("b3").AutoFill Destination:=Range("b3:E3"), Type:=xlFillDefault
    Range("b3:E3").AutoFill Destination:=Range("b3:E52")
    
    ' ดึงคะแนน
    Sheets("คะแนนเทอม1").Select
    Range("a2").FormulaR1C1 = "='" & CurrDir & "\[คะแนนประถมเทอม1.xlsx]ป." & ClassRoom & "'!R2c1:r52C18"
    
    Range("a2").AutoFill Destination:=Range("A2:R2"), Type:=xlFillDefault
    Range("A2:R2").AutoFill Destination:=Range("A2:R52")
End Sub

[yangkodza]

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

Code: Select all

Sub เปลี่ยนห้อง()
    ' เปลี่ยนห้อง แมโคร
    CurrDir = Application.ActiveWorkbook.Path
    ClassRoom = InputBox("ตัวอย่าง ห้องเรียน ป.1/1 พิมพ์ 1-1")
    Range("b3").FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]ป." & ClassRoom & "'!R3c2:r52C5"
    
    Range("b3").AutoFill Destination:=Range("b3:E3"), Type:=xlFillDefault
    Range("b3:E3").AutoFill Destination:=Range("b3:E52")
    
    ' ดึงคะแนน
    Sheets("คะแนนเทอม1").Select
    Range("a2").FormulaR1C1 = "='" & CurrDir & "\[คะแนนประถมเทอม1.xlsx]ป." & ClassRoom & "'!R2c1:r52C18"
    
    Range("a2").AutoFill Destination:=Range("A2:R2"), Type:=xlFillDefault
    Range("A2:R2").AutoFill Destination:=Range("A2:R52")
End Sub

ผ่านแล้วครับ
รบกวนอาจารย์ช่วยอธิบายทีว่าเป็นที่อะไรของผมถึงไม่ผ่านครับ

[snasui]

เกิดจากการเลือก (Select) เซลล์ไม่เป็นไปตามลำดับ ทำให้โปรแกรมทำงานไม่ถูกต้องครับ

[yangkodza]

เกิดจากการเลือก (Select) เซลล์ไม่เป็นไปตามลำดับ ทำให้โปรแกรมทำงานไม่ถูกต้องครับ

เข้าใจแล้วครับ ขอบคุณมากๆครับ