:!: โปรดทราบ 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: 217
Joined: Tue Feb 10, 2015 10:37 am

รบกวนช่วยตรวจสูตรครับ

#1

Postby yangkodza » Sun Aug 27, 2017 7:59 pm

Code: Select all

Sub คะแนน()
    Sheets("รวม 12 วิชา").Select
        ' ส15101  สังคม
    Range("j2").Select
    ActiveCell.FormulaR1C1 = "=[ส15101.xls]ห้อง" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), 1) & "!R[6]C[32]"
    Selection.AutoFill Destination:=Range("j2:j51")
    End Sub

จาก Code ดังกล่าว การทำงานถูกต้อง
ชื่อแผ่นงานในไฟล์ ส15101.xls จะเป็น ห้อง1 ห้อง2 ห้อง3 ตามลำดับ
ถ้าแปลี่ยนชื่อแผ่นงานเป็น C1 C2 C3 ผมเปลี่ยน คำว่า "ห้อง" เป็น "C" ยังคงทำงานตามปกติได้อยู่
แต่ผมต้องปรับเป็น c1t1 c2t1 c3t1 ตามลำดับ
ผมต้องการเปลี่ยนชื่อแผ่นงาน ทำให้การอ้างอิงผิดไป
ผมต้องปรับสูตรแบบไหนครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#2

Postby snasui » Sun Aug 27, 2017 8:12 pm

:D แนบไฟล์ตัวอย่างที่มีชื่อชีตตามที่ต้องการจะใช้จริงมาด้วยจะได้สะดวกในการตอบครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#3

Postby yangkodza » Sun Aug 27, 2017 8:36 pm

ไฟล์แนบครับ
01 ครูประจำชั้น.xls

รายชื่อประถม.xlsx

ส15101.xls



ไฟล์ Run คือ ครูประจำชั้น ลองกดเปลี่ยนห้องเป็น 5-1 หรือ 5-2 ดูครับ จะปกติ
เพราะว่าชื่อแผ่นงานใน ส15101 เป็น C1 C2
แต่ผมต้องการเปลี่ยนชื่อแผ่นงาน จาก C1 เป็น C1T1 และ C2 เป็น C2T1
ทำให้ไม่สามารถอ้างอิงคะแนนได้ครับ
มาโครอยู่ในไฟล์ ครูประจำชั้น ชื่อมาโครมา คะแนน
You do not have the required permissions to view the files attached to this post.

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

Re: รบกวนช่วยตรวจสูตรครับ

#4

Postby snasui » Sun Aug 27, 2017 9:36 pm

:D สุตรในไฟล์ ครูประจำชั้น ติดการอ้างอิงแบบ Error ที่น่าจะเกิดการลบชีตทิ้งไป กรุณาแนบมาใหม่ครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#5

Postby yangkodza » Sun Aug 27, 2017 9:55 pm

snasui wrote::D สุตรในไฟล์ ครูประจำชั้น ติดการอ้างอิงแบบ Error ที่น่าจะเกิดการลบชีตทิ้งไป กรุณาแนบมาใหม่ครับ

01 ครูประจำชั้น.xls

รบกวนด้วยครับ
You do not have the required permissions to view the files attached to this post.

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

Re: รบกวนช่วยตรวจสูตรครับ

#6

Postby snasui » Mon Aug 28, 2017 7:14 pm

:D เปลี่ยนบรรทัดนี้ครับ

ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]ป." & ClassRoom & "'!R3c2:r52C5"

เปลี่ยนเป็น

ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]" & ClassRoom & "'!R3c2:r52C5"

โดยไฟล์ที่จะ Link ข้อมูลมาใช้คือ [รายชื่อประถม.xlsx] และชีตที่จะนำข้อมูลมาใช้คือ C1T1, C2T1 และถ้าไม่มีชีตชื่อนี้จะติด Error ครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#7

Postby yangkodza » Mon Aug 28, 2017 7:29 pm

snasui wrote::D เปลี่ยนบรรทัดนี้ครับ

ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]ป." & ClassRoom & "'!R3c2:r52C5"

เปลี่ยนเป็น

ActiveCell.FormulaR1C1 = "='" & CurrDir & "\[รายชื่อประถม.xlsx]" & ClassRoom & "'!R3c2:r52C5"

โดยไฟล์ที่จะ Link ข้อมูลมาใช้คือ [รายชื่อประถม.xlsx] และชีตที่จะนำข้อมูลมาใช้คือ C1T1, C2T1 และถ้าไม่มีชีตชื่อนี้จะติด Error ครับ


กำลังงงครับ ว่า แล้วดึงข้อมูลจากไฟล์ ส15101.xls แผ่นงาน C1T1, C2T1 มาตอนไหนครับ
ตอนนี้ยังดึงคะแนนไม่มาครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#8

Postby snasui » Mon Aug 28, 2017 7:49 pm

:D ผมเขียนอธิบายไว้แล้วกรุณาอ่านทบทวนอีกครั้ง จะเป็นไฟล์ใดก็นำไปใช้ใน Code ได้ตามที่ต้องการ ขอให้ไฟล์นั้นมีชีต C1T1, C2T1 หรืออื่น ๆ ตามต้องการ

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

Re: รบกวนช่วยตรวจสูตรครับ

#9

Postby yangkodza » Mon Aug 28, 2017 8:52 pm

snasui wrote::D ผมเขียนอธิบายไว้แล้วกรุณาอ่านทบทวนอีกครั้ง จะเป็นไฟล์ใดก็นำไปใช้ใน Code ได้ตามที่ต้องการ ขอให้ไฟล์นั้นมีชีต C1T1, C2T1 หรืออื่น ๆ ตามต้องการ

Untitled.gif


ผมพยายามอ่านอย่างช้าๆ หลายครั้งแล้วครับ แต่ยังทำไม่ได้สักที
ตอนนี้ยังไม่ผ่านครับ
R3c2:r52C5 เป็นข้อมูล รายชื่อนักเรียน อย่างเดียว
ยังไม่มีการดึงคะแนนเข้ามาใน G2 ครับ
รบกวนช่วยดู มาโคร คะแนน ในไฟล์ ส15101.xls ด้วยครับ
ถ้า ชื่อแผ่นงานเป็น C1T1, C2T1
You do not have the required permissions to view the files attached to this post.

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

Re: รบกวนช่วยตรวจสูตรครับ

#10

Postby snasui » Mon Aug 28, 2017 9:34 pm

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

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

Re: รบกวนช่วยตรวจสูตรครับ

#11

Postby yangkodza » Mon Aug 28, 2017 10:35 pm

01 ครูประจำชั้น.xls

ส15101.xls

รายชื่อประถม.xlsx


การทำงาน
เปิดไฟล์ 01 ครูประจำชั้น.xls
กดตัวการ์ตูนสีเขียว พิมพ์ 5-1 แล้วกด Enter
จะเจอหน้าต่างเลือกแผ่นงาน (ตรงส่วนนี้ต้องการให้ถ้าเราเลือก 5-1 ก็เรียกข้อมูลในแผ่นงาน C1t1 มาเลย
หรือถ้าเรา
กดตัวการ์ตูนสีเขียว พิมพ์ 5-2 แล้วกด Enter ก็เรียกข้อมูลในแผ่นงาน C2t1 มาเลย
โดยข้อมูลไปวางที่แผ่นงาน รวม 12 วิชา วางที่ Cell G2:G51 ครับ
ส่วนมาโครปัญหา
น่าจะเป็น มาโครชื่อคะแนน ในไฟล์ 01 ครูประจำชั้น.xls

Code: Select all

Sub คะแนน()
    Sheets("รวม 12 วิชา").Select
        ' ส15101  สังคม
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=[ส15101.xls]C" & Right(Sheets("รายชื่อนักเรียน").Range("e3"), t1) & "!R[6]C[35]"
    Selection.AutoFill Destination:=Range("G2:G51")
    End Sub

ขอบคุณมากครับ
You do not have the required permissions to view the files attached to this post.

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

Re: รบกวนช่วยตรวจสูตรครับ

#12

Postby snasui » Mon Aug 28, 2017 10:41 pm

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

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 Module14.คะแนน
    Sheets("รวม 12 วิชา").Select
        ' ส15101  สังคม
       
    Range("G2").Select
    If Classroom = "5-1" Then
        ActiveCell.FormulaR1C1 = "=[ส15101.xls]" & "C1T1" & "!R[6]C[35]"
    ElseIf Classroom = "5-2" Then
        ActiveCell.FormulaR1C1 = "=[ส15101.xls]" & "C2T1" & "!R[6]C[35]"
    End If
    Selection.AutoFill Destination:=Range("G2:G51")

End Sub

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

Re: รบกวนช่วยตรวจสูตรครับ

#13

Postby yangkodza » Tue Aug 29, 2017 8:04 pm

จากที่อาจารย์ปรับแก้ไขให้สามารถทำงานได้ดีครับ

Code: Select all

 Sheets("รวม 12 วิชา").Select
 ' คะแนนสังคม เทอม1
    Range("G2").Select
    On Error Resume Next
    Set WB = Workbooks("01สังคม_ป4.xlsm")
    If Err <> 0 Then GoTo สุขศึกษา
If Classroom = "5-1" Then
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[-5]"  'ok =B4
ElseIf Classroom = "5-2" Then
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[-2]"  'ok =E4
ElseIf Classroom = "5-3" Then
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[1]"  'ok =H4
ElseIf Classroom = "5-4" Then
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[4]"  'ok =K4
ElseIf Classroom = "5-5" Then
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[7]"  'ok =N4
End If
Selection.AutoFill Destination:=Range("G2:G51")
สุขศึกษา:


Set WB = Workbooks("01สังคม_ป4.xlsm")
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[-5]" 'ok =B4

แต่ผมอยากปรับในส่วนของ code เพิ่มเติมให้กระชับขึ้น
โดยถ้าเราประกาศตัวแปรเข้าไป แล้วนำมาใช้งาน
ในส่วนที่ผมทำข้อความสีแดง ต้องปรับอย่างไรครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#14

Postby snasui » Tue Aug 29, 2017 9:40 pm

yangkodza wrote:Set WB = Workbooks("01สังคม_ป4.xlsm")
ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[-5]" 'ok =B4


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

จาก

ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" &...

ปรับเป็น

ActiveCell.FormulaR1C1 = "=["&WB.Name&"]" &...

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

Re: รบกวนช่วยตรวจสูตรครับ

#15

Postby yangkodza » Tue Aug 29, 2017 10:26 pm

ขอถามเพิ่มเติมครับ

Code: Select all

ActiveCell.FormulaR1C1 = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!R[2]C[-5]" 'ok =B4

ถ้าเราต้องการอ้างอิงแบบปกติ ไม่เอารูปแบบ R1C1 เราต้องปรับสูตรอย่างไรครับ
จาก

Code: Select all

R[2]C[-5]
คือ เซล B4
ขอบคุณครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#16

Postby snasui » Tue Aug 29, 2017 10:32 pm

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

ActiveCell.Formula = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!B4"

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

Re: รบกวนช่วยตรวจสูตรครับ

#17

Postby yangkodza » Tue Aug 29, 2017 11:23 pm

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

ActiveCell.Formula = "=[01สังคม_ป4.xlsm]" & "สรุป1" & "!B4"

ส่วนนี้ทำได้แล้วครับ
ผมก็ติดอยู่นาน แก้แต่ทางด้านหลัง ไม่ได้แก้ที่ด้านหน้าด้วย

002.GIF

เหลือตรงตัวแปรครับ ลองใส่แล้วฟ้องข้อความแดงครับผม
You do not have the required permissions to view the files attached to this post.

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

Re: รบกวนช่วยตรวจสูตรครับ

#18

Postby snasui » Tue Aug 29, 2017 11:28 pm

:D คีย์ให้มีวรรคคั่นระหว่างระหว่างเครื่องหมาย & กับข้อความอื่นครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#19

Postby yangkodza » Tue Aug 29, 2017 11:37 pm

ขอบคุณมากครับอาจารย์ :D
ผมลองปรับกรณีเป็น 2 วิชา
สามารถทำงานได้ตามปกติ
พรุ่งนี้ค่อยเพิ่มวิชาที่เหลืออีกทีครับผม

นอนดึก แต่คุ้มค่ามากๆครับ

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

Re: รบกวนช่วยตรวจสูตรครับ

#20

Postby yangkodza » Fri Oct 13, 2017 5:07 pm

ดึงคะแนนไม่ได้ครับ
ผมจะลองดึง 3 วิชา
ถ้ากรณีไม่เจอชื่อไฟล์ ก็ให้ไปดึงคะแนนถัดไปได้เลย

Code: Select all

Sub ดึง()
CurrDir = Application.ActiveWorkbook.Path
Classroom = [z4].Value
Range("J4").Select
 On Error Resume Next
Set wb = Workbooks("01สังคม_ป1.xlsm")
If Err <> 0 Then GoTo สุขศึกษา
If Classroom = "1" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง1เทอม1"
ElseIf Classroom = "2" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง2เทอม1"
ElseIf Classroom = "3" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง3เทอม1"
ElseIf Classroom = "4" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง4เทอม1"
ElseIf Classroom = "5" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง5เทอม1"
End If
Selection.AutoFill Destination:=Range("J4:J53"), Type:=xlFillDefault
สุขศึกษา:
Classroom = [z4].Value
Range("L4").Select
 On Error Resume Next
Set wb = Workbooks("02สุขศึกษา_ป1.xlsm")
If Err <> 0 Then GoTo ศิลปะ
If Classroom = "1" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง1เทอม1"
ElseIf Classroom = "2" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง2เทอม1"
ElseIf Classroom = "3" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง3เทอม1"
ElseIf Classroom = "4" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง4เทอม1"
ElseIf Classroom = "5" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง5เทอม1"
End If
Selection.AutoFill Destination:=Range("L4:L53"), Type:=xlFillDefault
ศิลปะ:
Classroom = [z4].Value
Range("M4").Select
 On Error Resume Next
Set wb = Workbooks("03ศิลปะ_ป1.xlsm")
If Err <> 0 Then GoTo จบ
If Classroom = "1" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง1เทอม1"
ElseIf Classroom = "2" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง2เทอม1"
ElseIf Classroom = "3" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง3เทอม1"
ElseIf Classroom = "4" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง4เทอม1"
ElseIf Classroom = "5" Then
ActiveCell.Formula = "=[" & wb.Name & "]" & "สรุป1" & "!ห้อง5เทอม1"
End If
Selection.AutoFill Destination:=Range("M4:M53"), Type:=xlFillDefault
จบ:
End Sub


คะแนน.rar
You do not have the required permissions to view the files attached to this post.


Return to “Excel”

Who is online

Users browsing this forum: No registered users and 33 guests