Snasui Excel Forum

เรียนท่าน อาจารย์ และ ผู้รู้

ผมต้องการให้โปรแกรมทำงานตามช่วงเวลาครับ ตั่งแต่ 10.00-12.00 14.00-16.00 ครับ ผมได้แนบไฟล์มาครับ คือผมไม่รู้จะ เชื่อมต่อเวลาอย่างไรครับและ ผมได้เขียนโดยให้ทำงานไป 9000 วินาทีเเทนครับซึ่งก็อาจจะเริ่มไม่ตรงเวลาถ้าผมเปิดโปรแกรม ไม่ตรงเวลาครับ ขอบพระคุณ อาจารย์ และท่านผู้รู้

สมเกียรติ wrote:เรียนท่าน อาจารย์ และ ผู้รู้

ผมต้องการให้โปรแกรมทำงานตามช่วงเวลาครับ ตั่งแต่ 10.00-12.00 14.00-16.00 ครับ ผมได้แนบไฟล์มาครับ คือผมไม่รู้จะ เชื่อมต่อเวลาอย่างไรครับและ ผมได้เขียนโดยให้ทำงานไป 9000 วินาทีเเทนครับซึ่งก็อาจจะเริ่มไม่ตรงเวลาถ้าผมเปิดโปรแกรม ไม่ตรงเวลาครับ ขอบพระคุณ อาจารย์ และท่านผู้รู้

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

คือผมต้องการให้โปรแกรมทำงาน เพื่อ ตรวจสอบเงื่อนไขอะไรบางอย่างที่เปลี่ยนไปครับ ซึ่งเป็นราคาหุ้นที่เปลี่ยนไป เเละต้องการให้โปรแกรมทำงาน ตามช่วงเวลาครับ คือตอนนี้โปรแกรมสามารถทำงานเปิดเเละปิดได้ แต่จริงๆเเล้วไม่ได้ทำตามช่วงเวลาครับผมยังทำไม่ได้ครับ คือเขียนให้ทำงาน ตามวินาทีไป 9000 วินาทีเเทนครับ(รอปรับปรุง) เเล้วหยุดการทำงานครับ และผมต้องการให้โปรแกรมกลับมาทำงานอีกครั้งแต่ผมยังไม่สามารถทำได้ครับ เนื่องจาก เขาต้องใช้ชื่อ sub xxxx เพื่อเรียกให้ xxxx (ทำงานครับupdate ทุกๆ1วินาทีครับ) เเละการเรียก sub อื่น(ให้นับเวลาไปอีก7200เเล้วจึงให้ subเดิม ทำงานอีกครั้ง)มาใช้ใน sub เดิมผมลองเเล้วมันไม่เรียกให้นะครับคือ application.ontime request subนะครับ สรุปคือผมทำได้รอบเดียวครับ หยุดเเล้วหยุดเลย ให้ทำต่ออีกรอบผมคิดไม่ออกครับ

คือต้องการแค่ เมื่อโปรแกรมเปิดขึ้นมาเเล้ว เช็คว่า ถึง 10.00 ยัง ถ้าถึงเเล้วให้โปรแกรมทำงานไปเรื่อยๆ (update ทุกๆ1วินาที) จนถึง 12.00 ครับ เเละทำอีกที 14.00-16.00 ครับผม ขอบคุณมากครับ

ถ้าเปิดโปรแกรมมาในเวลา 11:30 น. จะให้โปรแกรมทำงานอย่างไรครับ

snasui wrote: ถ้าเปิดโปรแกรมมาในเวลา 11:30 น. จะให้โปรแกรมทำงานอย่างไรครับ

ให้รอไปก่อนครับอาจารย์ จนถึงเวลาครับ

สมเกียรติ wrote:คือต้องการแค่ เมื่อโปรแกรมเปิดขึ้นมาเเล้ว เช็คว่า ถึง 10.00 ยัง ถ้าถึงเเล้วให้โปรแกรมทำงานไปเรื่อยๆ (update ทุกๆ1วินาที) จนถึง 12.00 ครับ เเละทำอีกที 14.00-16.00 ครับผม ขอบคุณมากครับ

แสดงว่าหากเลย 10:00 ก็ไม่ต้อง Run ช่วง 10:00-12:00 และหากเลย 14:00 ก็ไม่ต้อง Run ช่วง 14:00-16:00

สำหรับ Code ที่เขียนมาได้เขียนให้ตรวจสอบช่วงเวลาไว้แล้วหรือไม่ครับ

ผมแก้ได้เเล้วครับ ขอบคุณครับ
รบกวนถาม code นี้หน่อยครับ
If wbOrder Is Nothing Then Set wbOrder = Workbooks.Open(ThisWorkbook.Path & "\Stock-Order.xlsx") หมายถึงว่า ถ้ายังไม่ถูกเปิดให้ทำการเปิดไฟล์นี้ไม่ว่าไฟล์นี้จะอยู่ที่ไหนหรอครับ อาจารย์

หมายถึงหากตัวแปร wbOrder ยังไม่ถูกกำหนดค่า ก็ให้กำหนดค่าให้กับตัวแปร wbOrder เป็น Workbooks.Open(ThisWorkbook.Path & "\Stock-Order.xlsx")

ซึ่ง Workbooks.Open(ThisWorkbook.Path & "\Stock-Order.xlsx") เป็นการเปิดไฟล์ Stock-Order.xlsx หรือหมายถึงกำหนดให้ตัวแปร wbOrder คือไฟล์ tock-Order.xlsx นั่นเอง

snasui wrote: หมายถึงหากตัวแปร wbOrder ยังไม่ถูกกำหนดค่า ก็ให้กำหนดค่าให้กับตัวแปร wbOrder เป็น Workbooks.Open(ThisWorkbook.Path & "\Stock-Order.xlsx")

ซึ่ง Workbooks.Open(ThisWorkbook.Path & "\Stock-Order.xlsx") เป็นการเปิดไฟล์ Stock-Order.xlsx หรือหมายถึงกำหนดให้ตัวแปร wbOrder คือไฟล์ tock-Order.xlsx นั่นเอง

เรียนถามอาจารย์ เเละผู้รู้

ทำไมเวลากด stop rum macro มันขึ้น popup ว่า can't execute code in break mode ครับ

แสดงว่าอยู่ใน Mode ของการ Debug การจะ Run Code จะต้องออกจากการ Debug ก่อนครับ

ขอบคุณครับ เรียนถามอาจารย์ เเละผู้รู้
เมื่อกดเปิดexcel เเล้วพบว่า label not defined คืออะไรหรอครับ

ลองแนบไฟล์ตัวอย่างที่เกิดปัญหานั้นมาด้วยจะได้ช่วยดูได้ครับ

snasui wrote: ลองแนบไฟล์ตัวอย่างที่เกิดปัญหานั้นมาด้วยจะได้ช่วยดูได้ครับ

เรียนถามอาจารย์ 2ข้อครับ

1
อยากให้อาจารย์ช่วยอธิบาย code ที่เกี่ยวกับ On Error Resume Next คือถ้าผมไม่ใส่ มันจะไม่สามารถเปิดไฟล์workbookอื่นๆได้นะครับ เเละผมก็ งงว่ามันจำเป็นไหมครับว่าต้องมี On Error Resume Next เพื่ออะไรนะครับ เเละ ถ้าจะเอาออก ต้องเเก้ codeให้เป็นอย่างไรครับถึงจะคงไว้ซึ่งปลอดภัยไว้อยู่นะครับ หรือมันอาจจะไม่จำเป็นต้องมีก็ได้หรือเปล่าครับ

2
On Error GoTo botError
........
........
........
botError:
MsgBox Err.Description

คือมีความจำเป็นอะไรที่ต้องมีไว้นะครับ(คือผมเข้าใจว่าถ้ามีerror ก็ให้มันเเจ้งเป็น msgbox แต่ปกติมันก็เเจ้งอยู่เเล้วเปล่าครับมันต่างยังไงครับอาจารย์)

ขอบคุณครับอาจารย์

On Error Resume Next หมายถึงหากมีข้อผิดพลาดใด ๆ ก็ให้ Run Code ต่อไป การที่จะใส่ On Error Resume Next ก็ต้องทราบก่อนว่ามี Error ใดที่เกิดขึ้นและเราไม่สนใจ Error นั้น

ส่วน On Error GoTo botError หมายถึงหากมี Error ก็ให้ไปยังส่วนของ botError เพื่อที่จะทำงานตาม Code หลังบรรทัด botError

ขอบคุณครับอาจารย์

เรียนถามอาจารย์ เเละผู้รู้ ครับ
เรื่อง if in vba

If a > b and c > d or a > e and e > g and r > y Then
.....
.....
end if

อยากถามว่า syntax code ถูกไหมครับ (ต้องถูกในชุดเเรก 2คู่ เป็นจริงหมด คือ a > b and c > d หรือ ถูกหมดในชุดหลัง 3 คู่ คือ a > e and e > g and r > y )

ให้เขียนแบ่งชุดด้วยวงเล็บจะได้ไม่สับสนครับ เช่น

If (a > b and c > d) or (a > e and e > g and r > y) Then

ขอบคุณครับ