: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

เรียนสอบถามเกี่ยวกับ Maro ค่ะ

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน 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
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#1

Post by araya2016 »

เรียนสอบถามเกี่ยวกับ Maro ค่ะ
วันนี้พึ่งลองใช้ Macro เป็นครั้งแรก
คือ ต้องทำรายงานยอดขาย เป็นรายสัปดาห์ค่ะ เข้าบริษัท
ซึ่งร้านที่ดูแล มี 24 ร้านค่ะ
ดังนั้น ต้องรวบรวมยออดขาย ตั้งแต่ร้านที่ 1-24 ร้าน
ให้อยู่ในหน้าเดียวกัน
แล้วส่งเมลเข้าบริษัท

ทีนี้เลยลองทำ Macro
สั่งให้ Copy ข้อมูลจากร้านค้าที่ 1-24
มาวางไว้ที่ไฟล์รวบรวมยอดขายร้านค้า

ลองทำmarcoแล้วพอเข้าใจบ้าง
แต่ตอนนี้ อยากให้ run macro โดยที่เปิดไฟล์ ชื่อ รวบรวมยอดขายร้านค้า ไว้เพียงไฟล์เดียว
แล้ว รัน macro ให้ Copy และ paste ข้อมูล โดยที่ไม่ต้องเปิดไฟล์ร้านค้า ที่1-24 (เก็บไฟล์ทั้งหมดไว้ในโฟเดอร์เดียวกัน)
ไม่ทราบว่าจะทำได้ หรือไม่คะ

รบกวนช่วยเขียนสูตรใน macro ให้หน่อยได้ไหมคะ

ในไฟล์แนบจะมี
รวมยอดขายร้านค้า
ร้านค้า1
ร้านค้า2
มาให้ดูเป็นตัวอย่างค่ะ
จริงๆแล้วต้องมี 24ร้าน

เอามาให้ดูเป็นแนวทางค่ะ
Sub test()
'
' test แมโคร
'

'
Windows("1.xlsx").Activate
Sheets("template").Select
Range("B2").Select
Selection.Copy
Windows("รวมยอดขายร้านค้า.xlsm").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("1.xlsx").Activate
Sheets("template").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("รวมยอดขายร้านค้า.xlsm").Activate
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("1.xlsx").Activate
Sheets("template").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("รวมยอดขายร้านค้า.xlsm").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2.xlsx").Activate
Sheets("template").Select
Range("B2").Select
Selection.Copy
Windows("รวมยอดขายร้านค้า.xlsm").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2.xlsx").Activate
Sheets("template").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("รวมยอดขายร้านค้า.xlsm").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2.xlsx").Activate
Sheets("template").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("รวมยอดขายร้านค้า.xlsm").Activate
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
อันนี้ที่ลองทำเอง
แต่มันต้องเปิดไฟล์ร้านค้าที่ 1 และ2 ไว้ด้วย
ไม่งั้นรัน Macroแล้วขึ้น Error

ปล.ไม่มีความรู้เรื่อง Excel นะคะ
ไม่เคยเรียน

อาศัยอ่านจากในเวป

แต่ลองหาคำถามแบบที่ตัวเองต้องการแล้วไม่มี
เลยต้องมาตั้งคำถามใหม่ค่ะ


ขอบคุณมากๆค่ะ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3801
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#2

Post by puriwutpokin »

ลองทดสอบจากไฟล์ตัวอย่างที่แนบมาดูครับ ติดขัดอย่างไรตรงโค้ดไหน ค่อยถามมาอีกทีครับ หมายเหตุ โค้ดดังกล่าวได้มาจากเว็บนี้ครับ
You do not have the required permissions to view the files attached to this post.
:shock: :roll: :D
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#3

Post by snasui »

araya2016 wrote:เรียนสอบถามเกี่ยวกับ Maro ค่ะ
วันนี้พึ่งลองใช้ Macro เป็นครั้งแรก
คือ ต้องทำรายงานยอดขาย เป็นรายสัปดาห์ค่ะ เข้าบริษัท...
:D การโพสต์ Code ในฟอรัมอ่านคลิกดูตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบน :roll: จะได้สะดวกในการอ่านครับ
Top
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#4

Post by araya2016 »

ขอบคุณทุกท่านมากๆค่ะ ^^
Top
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#5

Post by araya2016 »

ลองดาวโหลดไฟล์ไปทำแล้วขึ้นว่า Patch is incorrect ค่ะ
You do not have the required permissions to view the files attached to this post.
Top
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#6

Post by araya2016 »

เรียนคุณ puriwutpokin
ตอนนี้เข้าใจบ้างแล้วค่ะ
ต้องไปแก้ code patch

ขอบคุณนะคะ
ตื่นเต้น กับ Excelมากๆค่ะ
เคยใช้แต่ บวก ลบ คูณหาร

ความจริงecxelความสามารถเยอะมากๆค่ะ
Top
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#7

Post by araya2016 »

Code: Select all

Windows("1.xlsx").Activate
Sheets("template").Select
Range("B2").Select
Selection.Copy
Windows("ÃÇÁÂÍ´¢ÒÂÃéÒ¹¤éÒ.xlsm").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("1.xlsx").Activate
Sheets("template").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ÃÇÁÂÍ´¢ÒÂÃéÒ¹¤éÒ.xlsm").Activate
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("1.xlsx").Activate
Sheets("template").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ÃÇÁÂÍ´¢ÒÂÃéÒ¹¤éÒ.xlsm").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2.xlsx").Activate
Sheets("template").Select
Range("B2").Select
Selection.Copy
Windows("ÃÇÁÂÍ´¢ÒÂÃéÒ¹¤éÒ.xlsm").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2.xlsx").Activate
Sheets("template").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ÃÇÁÂÍ´¢ÒÂÃéÒ¹¤éÒ.xlsm").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2.xlsx").Activate
Sheets("template").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ÃÇÁÂÍ´¢ÒÂÃéÒ¹¤éÒ.xlsm").Activate
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Top
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#8

Post by araya2016 »

อยากจะสอบถามเพิ่มเติมจาก Loopfile ที่ให้มาค่ะ
อยากเอาสูตร ข้างบนเข้าไปรวมค่ะ

คือความจริง Loopfile นั้นก็สามารถทำได้ค่ะ
แต่ความจริงแล้ว ร้านทั้ง 24 ร้าน
ไม่ได้เรียงจาก น้อยไปมากแบบนี้ค่ะ
1
2
3
4
ลำดับจะล็อคตามบริษัทเช่น
24
3
2
1
5
แบบนี้ค่ะ
ดังนั้นเลยต้องเขียน สูตร Copy และ Paste ขึ้นมา
ให้มันวาง ตามตำแหน่ง Cell ที่เราต้องการค่ะ

ตามสูตร Loopfile จะวางจาก
น้อยไปมากคือ 1ถึง 24 ค่ะ

เลยอยากสอบถามว่า
จะเอาสูตร Loopfile ที่มีประโยชน์คือ
1.ไม่ต้องเปิด Excel file ก็ดึงข้อมูลมาได้
รวมกับสูตรที่ เขียนไว้ ตามที่วางให้ดูค่ะ

ก่อนอื่น
ขอโทษอีกครั้งนะคะ
ลอง โพสต์แบบ วางCode แล้วก็ยังไม่ได้ค่ะ
มันขึ้นเป็น Post ธรรมดา

ไม่รู้ว่าจะเอา Loopfile มารวมกับ code ของตัวเองยังไงค่ะ
ในcode ที่ถาม จะมีแค่ ร้านที่ 1 กับ 2 ค่ะ

แต่ถ้า สามารถรวมสูตร Loopfile กับร้านที่ 1 กับ2 ได้
เดี๋ยวจะได้ไปเขียน ร้านที่ 3-24 เพิ่มค่ะ

ให้วางตาม ตำแหน่งเซลล์ที่เราต้องการค่ะ

ขอบคุณมากๆค่ะ
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3801
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#9

Post by puriwutpokin »

ดูวิธีวางโค้ด ใหม่นะครับ ว่างแบบนี้ไม่เป็นภาษาต่างด้าวด้วยครับ
http://www.snasui.com/viewtopic.php?f=6&t=1354
และลูปไม่ได้เป็นตัวที่คัดลอกข้อมูลมาจากไฟล์ที่ปิดนะครับ เป็นเพียงวนทำงานตามคำสั่ง
ส่วนโค้ดที่จะให้ใส่ไปในลูป ตามที่แจ้งมา คงทำจากไฟล์ที่ปิดอยู่ไม่ได้ ต้องปรับโค้ดอีกมากมายครับ
จริงๆแล้วเราสามารถ ทำตามโค้ดที่ให้ไป แล้ว นำมาเรียงตามข้อมูลของลำดับสาขาได้ครับ หลังจากดึง
ข้อมูล
:shock: :roll: :D
Top
araya2016
Member
Member
Posts: 53
Joined: Wed Jan 18, 2017 10:10 pm

Re: เรียนสอบถามเกี่ยวกับ Maro ค่ะ

#10

Post by araya2016 »

ขอบคุณมากๆค่ะ ^^
Top
Post Reply

Return to “Excel Formulas & Functions”