: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

VBA ต้องการโชว์ ฟอร์ม เมื่อเกิด Debug

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: VBA ต้องการโชว์ ฟอร์ม เมื่อเกิด Debug

Re: VBA ต้องการโชว์ ฟอร์ม เมื่อเกิด Debug

#3

by 9010521 » Sat Jan 04, 2020 2:48 pm

ทำได้แล้วครับ ขอบคุณที่ให้ความสนใจ

Re: VBA ต้องการโชว์ ฟอร์ม เมื่อเกิด Debug

#2

by snasui » Wed Jan 01, 2020 8:59 pm

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

การโพสต์ Code ควรโพสต์ให้แสดงเป็นข้อความแบบ Code จะได้สะดวกในการอ่านและการ Copy ไปทดสอบครับ

วิธีการคือครอบด้วย [code]...[/code] ดูตัวอย่างที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ

VBA ต้องการโชว์ ฟอร์ม เมื่อเกิด Debug

#1

by 9010521 » Wed Jan 01, 2020 1:36 pm

(คำถามอยู่บรรทัดสุดท้าย)
สถานการณ์ คือ ผมต้องโหลดไฟล์ Excel มาจากฐานข้อมูล แล้วไฟล์นั้น ในแต่ละวันจะมีจำนวน Sheet ไม่เท่ากัน (สูงสุด คือ 6 Sheet)

สิ่งที่ผมต้องการข้อที่ 1 คือ รวมไฟล์ทุก Sheet มาไว้หน้าที่ 1 จากนั้น copy ทั้งหมด (เพื่อส่งไปอีก workbook) ในส่วนนี้ ผมใช้ On Error GoTo HandleError: เพื่อว่า เมื่อเกิด debug จากการค้นหา sheet ไม่เจอ (เช่น วันที่มี 3 Sheet ก็หา Sheet 4 ไม่เจอ) ให้ข้ามไป Sheet แรก แล้ว Copy ซึ่งในส่วนนี้สำเร็จอย่างงดงาม

(ตัวอย่าง) สมมติว่ามี 3 sheet

Sub คัดลอกและวาง()
On Error GoTo HandleError:

'copy จากหน้า 2 มาหน้า 1
Windows("ไฟล์สมมติ.xls").Activate Sheets("Sheet2").Select Selection.Copy
Sheets("Sheet1").Select Range("B26").Select ActiveSheet.Paste

'copy จากหน้า 3 มาหน้า 1
Windows("ไฟล์สมมติ.xls").Activate Sheets("Sheet3").Select Selection.Copy
Sheets("Sheet1").Select Range("B36").Select ActiveSheet.Paste

'copy จากหน้า 4 มาหน้า 1
Windows("ไฟล์สมมติ.xls").Activate Sheets("Sheet4").Select Selection.Copy
Sheets("Sheet1").Select Range("B46").Select ActiveSheet.Paste

HandleError:
'copy ข้อมูลทั้งหมดที่เอามาแปะไว้หน้าแรก
Sheets("Sheet1").Rows("13:100").Select Application.CutCopyMode = False Selection.Copy

มันก็สำเร็จดี แต่ปัญหาคือ ในกรณีที่ ผู้ใช้ไม่ได้เปิด "ไฟล์สมมติ.xls" ขึ้นมา มันจะแจ้งเตือน Debug อีกครั้ง ซึ่งผมต้องการแจ้งให้ผู้ใช้ทราบว่า กำลังลืมเปิด "ไฟล์สมมติ.xls" อยู่

ผมได้ทดลองใช้ On Error GoTo ซ้ำอีกครั้งแล้วแต่มันไม่ได้ผล
อีกแนวคิดที่ผมพยายามทำคือ ใช้ if โดยที่พยายามเขียนตรรกะว่า ถ้า การเลือก sheet ล้มเหลว ให้แสดง ฟอร์ม แต่ถ้าไม่ล้มเหลวให้ทำงานต่อไป ซึ่งผมไม่รู้ว่าต้องเขียนตรรกะนี้อย่างไร
หรือท่านใดมีหนทางอื่นๆ ที่สามารถให้ผลลัพธ์ได้ในทำนองเดียวกันนี้ รบกวนด้วยนะครับ

Top