ต้องการให้โปรแกรมทำงานตามช่วงเวลาครับ

[สมเกียรติ]

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

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

[bank9597]

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

ผมต้องการให้โปรแกรมทำงานตามช่วงเวลาครับ ตั่งแต่ 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 ครับผม ขอบคุณมากครับ

[snasui]

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

[สมเกียรติ]

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

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

[snasui]

คือต้องการแค่ เมื่อโปรแกรมเปิดขึ้นมาเเล้ว เช็คว่า ถึง 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") หมายถึงว่า ถ้ายังไม่ถูกเปิดให้ทำการเปิดไฟล์นี้ไม่ว่าไฟล์นี้จะอยู่ที่ไหนหรอครับ อาจารย์

[snasui]

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

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

[สมเกียรติ]

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

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

[snasui]

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

[สมเกียรติ]

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

[snasui]

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

[สมเกียรติ]

New folder.rar

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

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

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

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

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

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

[snasui]

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 )

[snasui]

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

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

[สมเกียรติ]

ขอบคุณครับ