: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

ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

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 a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#10

by shikamaru » Thu Jan 12, 2017 8:52 am

:thup: :cp: :D
ขอบคุณมาครับอาจารย์ ใช้งานได้แล้วครับ

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#9

by snasui » Wed Jan 11, 2017 5:35 pm

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

Code: Select all

Sub Delete_Sheet()

Application.DisplayAlerts = False

' Delete_Sheet Macro

    Dim strThisbook As Variant
    
    strThisbook = Application.GetOpenFilename(Filefilter:= _
            "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True)

    If TypeName(strThisbook) = "Boolean" Then
        Exit Sub
    End If
    
    For i = 1 To UBound(strThisbook)
        Workbooks.Open (strThisbook(i))
        Sheets(Array("Ex_0801", "Ex_0901")). _
            Select
            
        Sheets("Ex_0901").Activate
        
        ActiveWindow.SelectedSheets.Delete
        ActiveWorkbook.Save
        ActiveWindow.Close
    
    Next i
End Sub

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#8

by shikamaru » Wed Jan 11, 2017 5:08 pm

ผมนำ Code ไปวางใน Module ตามที่อาจารย์บอกแล้วครับ ก็ยังใช้งานไม่ได้ครับ Error เหมือนเดิมครับ
Attachments
MacroDelete.xlsm
(16.2 KiB) Downloaded 8 times

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#7

by snasui » Wed Jan 11, 2017 4:54 pm

:D ไม่พบ Code ในไฟล์ MacroDelete.xlsm ครับ

การแนบ Macro มาในไฟล์ให้กดแป้น Alt+F11 เพื่อเปิดหน้าต่าง VBE > เข้าเมนู Insert > Module แล้ววาง Code ใน Module ครับ

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#6

by shikamaru » Wed Jan 11, 2017 10:03 am

แนบไฟล์เพิ่มเติมครับ
Attachments
Test01.xlsx
(10.08 KiB) Downloaded 8 times
MacroDelete.xlsm
(10.26 KiB) Downloaded 7 times

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#5

by shikamaru » Wed Jan 11, 2017 10:03 am

อาจารย์ครับ ผมแก้ไขตามที่อาจารย์ได้ให้แก้แล้วนะครับ แต่พอรัน Macro ก็ขึ้น Error Run time 9 ครับ
ผมแนบไฟล์มาให้ใหม่แล้วครับ อันนี้เกิดจากการที่ผมเปลี่ยนชื่อ sheet ด้วยหรือเปล่าครับ
Attachments
Error run time 9.JPG
Error run time 9.JPG (15.38 KiB) Viewed 107 times
Code Error run time 9.JPG
Code Error run time 9.JPG (33.81 KiB) Viewed 107 times

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#4

by snasui » Tue Jan 10, 2017 8:59 pm

:D ไฟล์ที่จะแนบ Macro ได้จะต้อง Save As เป็นนามสกุล .xlsm เป็นอย่างน้อย ลองแนบไฟล์มาใหม่ครับ

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#3

by shikamaru » Tue Jan 10, 2017 6:56 pm

อาจารย์ครับ ผมแนบไฟล์มาให้แล้วครับ แต่เกิดปัญหา หลังจาก สร้าง Macro เสร็จแล้ว ปิดไฟล์ Macro Delete ไป
แล้วเปิดไฟล์ Macro Delete ใหม่ กดปุ่ม Delete sheet แล้วเกิด Error run-time '9' : Subscript Out of rang ครับ
ผมต้องแก้ไขอย่างไรครับ
Attachments
Test01.xlsx
(10.08 KiB) Downloaded 9 times
MacroDelete.xlsx
(10.24 KiB) Downloaded 9 times

Re: ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#2

by snasui » Tue Jan 10, 2017 5:46 pm

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

ใช้ macro ทำการลบ sheet ในไฟล์อื่น ขอแนวทางหน่อยครับ

#1

by shikamaru » Tue Jan 10, 2017 4:06 pm

เนื่องจากผมต้องรันไฟล์ Excel มาทุกวัน ชื่อ Sheet ในไฟล์จะรันชื่อ ตามวัน เช่น Ex_0801, Ex_0901, Ex1001 ซึ่งผมจะต้องทำการรวมไฟล์
และลบ sheet ที่ไม่เกี่ยวข้องออก เลยใช้ Macro ในการลบ แต่ Macro จะจำชื่อ sheet ที่บันทึกในครั้งแรกไว้ ผมต้องการให้ลบได้ทุก sheet ต้องแก้ไขตรงไหนบ้างครับ

Code: Select all

Sub Delete_Sheet()

Application.DisplayAlerts = False

' Delete_Sheet Macro

    Dim strThisbook As Variant
    
strThisbook = Application.GetOpenFilename(Filefilter:= _
            "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True)

    Sheets(Array("Ex_0801", "Ex_0901")). _
        Select
        
    Sheets("Ex_0901").Activate
    
    ActiveWindow.SelectedSheets.Delete
    ActiveWorkbook.Save
    ActiveWindow.Close
    
End Sub

Top