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

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

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#1

Postby yangkodza » Mon Nov 28, 2016 7:52 pm

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.

User avatar
snasui
Site Admin
Site Admin
Posts: 20786
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#2

Postby snasui » Tue Nov 29, 2016 6:07 pm

: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

yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#3

Postby yangkodza » Tue Nov 29, 2016 6:40 pm

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

yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#4

Postby yangkodza » Tue Nov 29, 2016 7:23 pm

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

yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#5

Postby yangkodza » Tue Nov 29, 2016 7:38 pm

อาจารย์ครับ รบกวนสอบถามเพิ่มเติมครับ
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")

อย่างเดียว แล้วเพิ่มบรรทัดใช่ไหมครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 20786
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#6

Postby snasui » Tue Nov 29, 2016 8:20 pm

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

yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#7

Postby yangkodza » Tue Nov 29, 2016 8:32 pm

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


รบกวนอาจารย์ชี้แนะด้วยครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 20786
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#8

Postby snasui » Tue Nov 29, 2016 8:41 pm

:D ลอง Run ทีละ Step โดยกดแป้น F8 ซ้ำ ๆ แล้วแจ้งมาว่าติดขัดที่บรรทัดใดครับ

yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#9

Postby yangkodza » Tue Nov 29, 2016 8:49 pm

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

User avatar
snasui
Site Admin
Site Admin
Posts: 20786
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#10

Postby snasui » Tue Nov 29, 2016 8:58 pm

: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---

yangkodza
Member
Member
Posts: 164
Joined: Tue Feb 10, 2015 10:37 am

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

#11

Postby yangkodza » Wed Nov 30, 2016 7:57 am

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

ยังหาทางออกไม่ได้ครับ รบกวนชี้แนะด้วยครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 20786
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#12

Postby snasui » Wed Nov 30, 2016 7:47 pm

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


Return to “Excel”

Who is online

Users browsing this forum: Google Feedfetcher, puriwutpokin and 12 guests