:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#1

Post by yangkodza »

Code: Select all

Sub Macro1()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "='[รายชื่อประถม.xlsx]ป.1-1'!R[1]C"
    Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
    Range("B2:E2").Select
    Selection.AutoFill Destination:=Range("B2:E51")
    Range("B2:E51").Select
    Range("A1").Select
End Sub
จาก Code ข้างต้น โปรแกรมดึงข้อมูลมาได้ปกติ
แต่อยากจะปรับ Code ให้ว่า
ถ้าไม่เจอไฟล์ดังกล่าว ก็ไม่ต้องดึงข้อมูล
เพราะถ้าไม่เจอไฟล์ จะฟ้องหน้าต่างถามหาไฟล์เลยไม่อยากให้ถามครับ

รบกวนช่วยปรับ Code ให้หน่อยครับ
ดึงไฟล์.rar
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31258
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#2

Post by snasui »

:D ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Macro1()
    Range("B2").Select
    On Error Resume Next
    Set wb = Workbooks("รายชื่อประถม.xlsx")
    If Err <> 0 Then Exit Sub
    ActiveCell.FormulaR1C1 = "='[รายชื่อประถม.xlsx]ป.1-1'!R[1]C"
    Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
    Range("B2:E2").Select
    Selection.AutoFill Destination:=Range("B2:E51")
    Range("B2:E51").Select
    Range("A1").Select
End Sub
Top
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#3

Post by yangkodza »

snasui wrote::D ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Macro1()
    Range("B2").Select
    On Error Resume Next
    Set wb = Workbooks("รายชื่อประถม.xlsx")
    If Err <> 0 Then Exit Sub
    ActiveCell.FormulaR1C1 = "='[รายชื่อประถม.xlsx]ป.1-1'!R[1]C"
    Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
    Range("B2:E2").Select
    Selection.AutoFill Destination:=Range("B2:E51")
    Range("B2:E51").Select
    Range("A1").Select
End Sub
อาจารย์ครับ ผมนำ Code ไปใช้ แต่ไม่มีการแสดงผลอะไรครับ
ในขณะที่ไฟล์ฐานข้อมูลยังอยู่ ไม่สามารถดึงข้อมูลได้ครับ

Code ที่ใช้ครับ

Code: Select all

Sub Macro3()
    Range("B2").Select
    On Error Resume Next
    Set wb = Workbooks("รายชื่อประถม.xlsx")
    If Err <> 0 Then Exit Sub
    ActiveCell.FormulaR1C1 = "='[รายชื่อประถม.xlsx]ป.1-1'!R[1]C"
    Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
    Range("B2:E2").Select
    Selection.AutoFill Destination:=Range("B2:E51")
    Range("B2:E51").Select
    Range("A1").Select
End Sub
Top
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#4

Post by yangkodza »

ทำได้แล้วครับอาจารย์
Code ที่อาจารย์ให้มาถูกต้องแล้ว
เป็นที่คอมผมเอง อาการเครื่องแปลกๆ
สงสัยได้เวลาลงวินโดวใหม่อีกแล้วครับ
Top
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#5

Post by yangkodza »

อาจารย์ครับ รบกวนสอบถามเพิ่มเติมครับ
Code ที่ใช้อยู่จริงเราดึงข้อมูลมาจากหลายไฟล์
ดัง code แนบ

Code: Select all

Sub ดึงคะแนนเทอม1()
    Range("J2").Select      ' คะแนนสังคม เทอม1
    ActiveCell.FormulaR1C1 = "=[01_สังคมศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[32]"
    Selection.AutoFill Destination:=Range("j2:j51")
        Range("L2").Select      ' คะแนนสุขศึกษา เทอม1
    ActiveCell.FormulaR1C1 = "=[02_สุขศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[30]"
    Selection.AutoFill Destination:=Range("L2:L51")
            Range("M2").Select      ' คะแนนศิลปะ เทอม1
    ActiveCell.FormulaR1C1 = "=[03_ศิลปะ_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[29]"
    Selection.AutoFill Destination:=Range("M2:M51")
            Range("N2").Select      ' คะแนนศิลปะ เทอม1
    ActiveCell.FormulaR1C1 = "=[04_กอท_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[28]"
    Selection.AutoFill Destination:=Range("N2:N51")
            Range("O2").Select      ' คะแนนภาษาอังกฤษ เทอม1
    ActiveCell.FormulaR1C1 = "=[05_ภาษาอังกฤษ_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[27]"
    Selection.AutoFill Destination:=Range("O2:O51")
            Range("P2").Select      ' คะแนนคอมพิวเตอร์ เทอม1
    ActiveCell.FormulaR1C1 = "=[06_คอมพิวเตอร์_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[26]"
    Selection.AutoFill Destination:=Range("P2:P51")
            Range("Q2").Select      ' คะแนนภาษาอังกฤษเพื่อการสื่อสาร เทอม1
    ActiveCell.FormulaR1C1 = "=[07_ภาษาอังกฤษเพื่อการสื่อสาร_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[25]"
    Selection.AutoFill Destination:=Range("Q2:Q51")
            Range("R2").Select      ' คะแนนหน้าที่พลเมือง เทอม1
    ActiveCell.FormulaR1C1 = "=[08_หน้าที่พลเมือง_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[24]"
    Selection.AutoFill Destination:=Range("R2:R51")
    End Sub
Sub ดึงคะแนนเทอม2()
    Range("J2").Select      ' คะแนนสังคม เทอม2
    ActiveCell.FormulaR1C1 = "=[01_สังคมศึกษา_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[32]"
    Selection.AutoFill Destination:=Range("j2:j51")
        Range("L2").Select      ' คะแนนสุขศึกษา เทอม2
    ActiveCell.FormulaR1C1 = "=[02_สุขศึกษา_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[30]"
    Selection.AutoFill Destination:=Range("L2:L51")
            Range("M2").Select      ' คะแนนศิลปะ เทอม2
    ActiveCell.FormulaR1C1 = "=[03_ศิลปะ_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[29]"
    Selection.AutoFill Destination:=Range("M2:M51")
            Range("N2").Select      ' คะแนนศิลปะ เทอม2
    ActiveCell.FormulaR1C1 = "=[04_กอท_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[28]"
    Selection.AutoFill Destination:=Range("N2:N51")
            Range("O2").Select      ' คะแนนภาษาอังกฤษ เทอม2
    ActiveCell.FormulaR1C1 = "=[05_ภาษาอังกฤษ_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[27]"
    Selection.AutoFill Destination:=Range("O2:O51")
            Range("P2").Select      ' คะแนนคอมพิวเตอร์ เทอม2
    ActiveCell.FormulaR1C1 = "=[06_คอมพิวเตอร์_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[26]"
    Selection.AutoFill Destination:=Range("P2:P51")
            Range("Q2").Select      ' คะแนนภาษาอังกฤษเพื่อการสื่อสาร เทอม2
    ActiveCell.FormulaR1C1 = "=[07_ภาษาอังกฤษเพื่อการสื่อสาร_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[25]"
    Selection.AutoFill Destination:=Range("Q2:Q51")
            Range("R2").Select      ' คะแนนหน้าที่พลเมือง เทอม2
    ActiveCell.FormulaR1C1 = "=[08_หน้าที่พลเมือง_ป.1_เทอม2.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[24]"
    Selection.AutoFill Destination:=Range("R2:R51")
    End Sub
เราสามารถใช้

Code: Select all

 On Error Resume Next
    Set wb = Workbooks("รายชื่อประถม.xlsx")
    If Err <> 0 Then Exit Sub
แล้วแก้บบรรทัด

Code: Select all

Set wb = Workbooks("รายชื่อประถม.xlsx")
อย่างเดียว แล้วเพิ่มบรรทัดใช่ไหมครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31258
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#6

Post by snasui »

:D ลองทำได้เลย ติดตรงไหนแล้วค่อยถามกันได้เรื่อย ๆ อย่าพยายามถามต่อโดยไม่ได้ลอง เพราะอาจจะรอคำตอบนานครับ :mrgreen:
Top
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#7

Post by yangkodza »

snasui wrote::D ลองทำได้เลย ติดตรงไหนแล้วค่อยถามกันได้เรื่อย ๆ อย่าพยายามถามต่อโดยไม่ได้ลอง เพราะอาจจะรอคำตอบนานครับ :mrgreen:
ลองแล้วไม่รอดครับ ที่แรกก็ได้นะ แต่พอทำครบหมดกลายเป็นไม่ได้เฉย งงเลย

Code: Select all

Sub ดึงคะแนนเทอม1()

    Range("J2").Select      ' คะแนนสังคม เทอม1
    On Error Resume Next
    Set wb1 = Workbooks("01_สังคมศึกษา_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo สุขศึกษา
    ActiveCell.FormulaR1C1 = "=[01_สังคมศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[32]"
    Selection.AutoFill Destination:=Range("j2:j51")
    
สุขศึกษา:
        Range("L2").Select      ' คะแนนสุขศึกษา เทอม1
    On Error Resume Next
    Set wb2 = Workbooks("02_สุขศึกษา_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo ศิลปะ
    ActiveCell.FormulaR1C1 = "=[02_สุขศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[30]"
    Selection.AutoFill Destination:=Range("L2:L51")
    
ศิลปะ:
            Range("M2").Select      ' คะแนนศิลปะ เทอม1
    On Error Resume Next
    Set wb = Workbooks("03_ศิลปะ_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo กอท
    ActiveCell.FormulaR1C1 = "=[03_ศิลปะ_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[29]"
    Selection.AutoFill Destination:=Range("M2:M51")
    
กอท:
            Range("N2").Select      ' คะแนนกอท เทอม1
    On Error Resume Next
    Set wb = Workbooks("04_กอท_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo ภาษาอังกฤษ
    ActiveCell.FormulaR1C1 = "=[04_กอท_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[28]"
    Selection.AutoFill Destination:=Range("N2:N51")
    
ภาษาอังกฤษ:
            Range("O2").Select      ' คะแนนภาษาอังกฤษ เทอม1
    On Error Resume Next
    Set wb = Workbooks("05_ภาษาอังกฤษ_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo คอมพิวเตอร์
    ActiveCell.FormulaR1C1 = "=[05_ภาษาอังกฤษ_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[27]"
    Selection.AutoFill Destination:=Range("O2:O51")
    
คอมพิวเตอร์:
            Range("P2").Select      ' คะแนนคอมพิวเตอร์ เทอม1
    On Error Resume Next
    Set wb = Workbooks("06_คอมพิวเตอร์_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo ภาษาอังกฤษเพื่อการสื่อสาร
    ActiveCell.FormulaR1C1 = "=[06_คอมพิวเตอร์_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[26]"
    Selection.AutoFill Destination:=Range("P2:P51")
    
ภาษาอังกฤษเพื่อการสื่อสาร:
            Range("Q2").Select      ' คะแนนภาษาอังกฤษเพื่อการสื่อสาร เทอม1
    On Error Resume Next
    Set wb = Workbooks("07_ภาษาอังกฤษเพื่อการสื่อสาร_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo หน้าที่พลเมือง
    ActiveCell.FormulaR1C1 = "=[07_ภาษาอังกฤษเพื่อการสื่อสาร_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[25]"
    Selection.AutoFill Destination:=Range("Q2:Q51")
    
หน้าที่พลเมือง:
            Range("R2").Select      ' คะแนนหน้าที่พลเมือง เทอม1
    On Error Resume Next
    Set wb = Workbooks("08_หน้าที่พลเมือง_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo จบ
    ActiveCell.FormulaR1C1 = "=[08_หน้าที่พลเมือง_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[24]"
    Selection.AutoFill Destination:=Range("R2:R51")
จบ:
    End Sub
รบกวนอาจารย์ชี้แนะด้วยครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31258
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#8

Post by snasui »

:D ลอง Run ทีละ Step โดยกดแป้น F8 ซ้ำ ๆ แล้วแจ้งมาว่าติดขัดที่บรรทัดใดครับ
Top
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#9

Post by yangkodza »

snasui wrote::D ลอง Run ทีละ Step โดยกดแป้น F8 ซ้ำ ๆ แล้วแจ้งมาว่าติดขัดที่บรรทัดใดครับ
ผ่านหมดครับแต่กลายเป็นไม่ดึงคะแนน
ผมตั้งให้ว่า ถ้า ไม่เจอไฟล์ก็ให้กระโดดไป หาไฟล์ต่อไป
ผมเขียน code ถูกไหมครับ

ตอนนี้ code พอวิ่งไปถึง go to กระโดดไปเลย ยังไม่ทันจะดึงคะแนนเลยครับ
ทั้งๆที่ชื่อไฟล์ก็ถูกต้องครับผม

Code: Select all

Range("J2").Select      ' คะแนนสังคม เทอม1
    On Error Resume Next
    Set wb = Workbooks("01_สังคมศึกษา_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo สุขศึกษา
    ActiveCell.FormulaR1C1 = "=[01_สังคมศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[32]"
    Selection.AutoFill Destination:=Range("j2:j51")
    
สุขศึกษา:
        Range("L2").Select      ' คะแนนสุขศึกษา เทอม1
    On Error Resume Next
    Set wb = Workbooks("02_สุขศึกษา_ป.1_เทอม1.xls")
    If Err <> 0 Then GoTo ศิลปะ
    ActiveCell.FormulaR1C1 = "=[02_สุขศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[30]"
    Selection.AutoFill Destination:=Range("L2:L51")
เริ่มไปไม่รอดแล้วครับ :D
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31258
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#10

Post by snasui »

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

Code: Select all

'---Other code---
     Range("J2").Select      ' คะแนนสังคม เทอม1
    On Error Resume Next
    Set wb1 = Workbooks("01_สังคมศึกษา_ป.1_เทอม1.xls")
    If Err <> 0 Then
        Err.Clear
        GoTo สุขศึกษา
    End If
    ActiveCell.FormulaR1C1 = "=[01_สังคมศึกษา_ป.1_เทอม1.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[32]"
    Selection.AutoFill Destination:=Range("j2:j51")
    '---Other code---
Top
yangkodza
Bronze
Bronze
Posts: 372
Joined: Tue Feb 10, 2015 10:37 am
Excel Ver: 2021

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#11

Post by yangkodza »

อาจารย์ครับ เท่าที่ผมทดสอบลองผิดลองถูก
ปัญหาที่เจอคือ ไฟล์ต้นทางที่เป็นไฟล์คะแนนครับ
ประมาณว่า ถ้าเราไม่เปิดไฟล์ต้นทาง สูตรจะไม่ทำงานครับ :sg:

ยังหาทางออกไม่ได้ครับ รบกวนชี้แนะด้วยครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31258
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากยกเลิกหน้าต่างเวลาดึงไฟล์แล้วไม่พบไฟล์ข้อมูล

#12

Post by snasui »

:D ก็ต้องเปิดไฟล์ต้นทางเสียก่อนครับ หรือหากจะทำงานกับไฟล์ไหนก็ให้เปิดไฟล์นั้นไว้ก่อน หรือจะเปิดด้วย Code ก็ย่อมได้ครับ
Top
Post Reply

Return to “Excel Formulas & Functions”