Giúp câu lệnh dừng Ontime trong VBA

Liên hệ QC

hunglam123

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
31/3/20
Bài viết
180
Được thích
43
Chào tất cả anh chỉ GPE. CHo em hỏi cách dừng Ontime vơi 2 trường hợp
1. Ví dụ sau khi chạy COde chạy trong lúc đợi 10 giây em muốn dừng lại thì dừng lại thì dùng câu lệnh nào
2. Ví dụ sau khi chạy COde chạy trong lúc đợi 10 giây . nếu em thoát file này luôn, mà trên máy tính đang mở các file khác thì mặc định nó lại mở lại file đang có code . Vậy cho em có cách nào khi thoát file hẳn thì nó dừng luôn Ontime Now không. Xin chân thành cảm ơn @VetMini @thuyyeu99 @ndu96081631 @SA_DQ @PacificPR
Mong các Sếp giúp đỡ

Sub chay()
Application.OnTime Now + TimeValue("00:0:10"), "test"
End Sub

Sub test()
MsgBox ("Sau 10 giay ok")
End Sub
 
Tôi chỉ biết về dữ liệu. Và chỉ làm việc với dữ liệu.
Những chuyện không kiên quan đến con số dữ liệu tôi không màng tới.
Muốn hỏi nốt nhạc thì tìm nhạc sư. Muốn hỏi bước nhảy thì tìm vũ sư.
 
Upvote 0
Chào tất cả anh chỉ GPE. CHo em hỏi cách dừng Ontime vơi 2 trường hợp
1. Ví dụ sau khi chạy COde chạy trong lúc đợi 10 giây em muốn dừng lại thì dừng lại thì dùng câu lệnh nào
2. Ví dụ sau khi chạy COde chạy trong lúc đợi 10 giây . nếu em thoát file này luôn, mà trên máy tính đang mở các file khác thì mặc định nó lại mở lại file đang có code . Vậy cho em có cách nào khi thoát file hẳn thì nó dừng luôn Ontime Now không. Xin chân thành cảm ơn @VetMini @thuyyeu99 @ndu96081631 @SA_DQ @PacificPR
Mong các Sếp giúp đỡ

Sub chay()
Application.OnTime Now + TimeValue("00:0:10"), "test"
End Sub

Sub test()
MsgBox ("Sau 10 giay ok")
End Sub
Tôi tốn công comment cho bạn mà không thấy được phản hồi gì hết. nếu đúng thì ít ra cũng "Vỗ tay khen bạn đi nào". còn sai rồi thì "Bạn sai rồi, cố gắng lên".
nên giờ học đến đây là kết thúc hẹn gặp bạn lần sau.
mà cái này dễ mà
 
Upvote 0
Tôi tốn công comment cho bạn mà không thấy được phản hồi gì hết. nếu đúng thì ít ra cũng "Vỗ tay khen bạn đi nào". còn sai rồi thì "Bạn sai rồi, cố gắng lên".
nên giờ học đến đây là kết thúc hẹn gặp bạn lần sau.
mà cái này dễ mà
Đổi phong cách chứ một kiểu hoài chán lắm. Mà hình như có hiệu quả, cụ thể là khi bạn trả lời xong thì mong phản hồi, chứng tỏ là có hiệu quả sau khi đổi phong cách rồi còn gì.
 
Upvote 0
Tôi tốn công comment cho bạn mà không thấy được phản hồi gì hết. nếu đúng thì ít ra cũng "Vỗ tay khen bạn đi nào". còn sai rồi thì "Bạn sai rồi, cố gắng lên".
nên giờ học đến đây là kết thúc hẹn gặp bạn lần sau.
mà cái này dễ mà
Thớt chỉ xin solution(s) chứ đâu có ham comments.

Vả lại, thớt quen đòi hỏi gì được nấy cho nên không thèm để ý. Ở diễn đàn có một tay rất chuyên cái vụ RPC này mà không chịu mời.

Châm ngôn: khi làm chủ một đồ án thì biết người quan trọng hơn biết code.
 
Upvote 0
Tôi tốn công comment cho bạn mà không thấy được phản hồi gì hết. nếu đúng thì ít ra cũng "Vỗ tay khen bạn đi nào". còn sai rồi thì "Bạn sai rồi, cố gắng lên".
nên giờ học đến đây là kết thúc hẹn gặp bạn lần sau.
mà cái này dễ mà
ak cái bài Kia mình Test thấy vẩn còn sai khi người dùng click 2 lần trở lên .chỉ có anh @HeSanbi trả lời ok thôi. Do bị sai nên mình phản hồi lại CHị buồn nên thôi im lặng. Khi nào Test ok mình mới Phản hồi. Bài này bạn giải quyết mình trong hôm nay nhé. Chúc bạn sớm rực rở bên Audi hay Metcidesben E350 AMG, chứ mình 29 tuôi đã Mazda 6 rồi
Bài đã được tự động gộp:

Thớt chỉ xin solution(s) chứ đâu có ham comments.

Vả lại, thớt quen đòi hỏi gì được nấy cho nên không thèm để ý. Ở diễn đàn có một tay rất chuyên cái vụ RPC này mà không chịu mời.

Châm ngôn: khi làm chủ một đồ án thì biết người quan trọng hơn biết code.
Chuyên gia GPE mà trả lời như Muối bỏ biển vậy. Vẫn còn Thâm Sân Si thì chưa phải là Chuyên gia. CHuyên gia phải VÔ Ngã, ai ghét mình cũng kệ, ai chửi mình cũng kệ, Nhưng 1 khi chúng sinh hỏi là phải giúp đờ nhé. ráng giúp tôi nhé trong chiều này phải giải quyết xong vụ này
Bài đã được tự động gộp:

Đổi phong cách chứ một kiểu hoài chán lắm. Mà hình như có hiệu quả, cụ thể là khi bạn trả lời xong thì mong phản hồi, chứng tỏ là có hiệu quả sau khi đổi phong cách rồi còn gì.
bIẾT giúp tôi cái. ráng suy nghỉ giúp tôi. tôi cảm ơn 1 like
 
Upvote 0
...
Chuyên gia GPE mà trả lời như Muối bỏ biển vậy. Vẫn còn Thâm Sân Si thì chưa phải là Chuyên gia. CHuyên gia phải VÔ Ngã, ai ghét mình cũng kệ, ai chửi mình cũng kệ, Nhưng 1 khi chúng sinh hỏi là phải giúp đờ nhé. ráng giúp tôi nhé trong chiều này phải giải quyết xong vụ này
Biết Kinh Liên Hoa kể câu chuyện "muối bỏ biển" ra sao hôn mà cứ trích từ này hoài không thấy nắc cỡ?
Về kiếm thầy học đạo lại đi.
Kiến thức kinh kệ còn thấp kém lắm. Từ lúc hỉ mũi chưa sạch đã làm công tử bột Phường lẻ Quận xó, có phải đi gánh nước bổ củi trên chùa hay cầm mo đi khất thực ngày nào đâu mà bày đặt lên tiếng Tham Sân Si. Con nít đọc Tam Tự Kinh còn nghe được tai hơn.
 
Lần chỉnh sửa cuối:
Upvote 0
Thử xem có được "vỗ tay khen" không, không được là nghỉ chơi
Mã:
Public x
Sub test()
MsgBox "Sau 10 giay ok "
End Sub
Sub chay()
x = Now + TimeValue("00:00:10")
Application.OnTime x, "test"
End Sub
Mã:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime x, "test", , False
Cancel = False
End Sub
 
Upvote 0
Biết Kinh Liên Hoa kể câu chuyện "muối bỏ biển" ra sao hôn mà cứ trích từ này hoài không thấy nắc cỡ?
Về kiếm thầy học đạo lại đi.
Kiến thức kinh kệ còn thấp kém lắm. Từ lúc hỉ mũi chưa sạch đã làm công tử bột Phường lẻ Quận xó, có phải đi gánh nước bổ củi trên chùa hay cầm mo đi khất thực ngày nào đâu mà bày đặt lên tiếng Tham Sân Si. Con nít đọc Tam Tự Kinh còn nghe được tai hơn.
Biết cái nick kia trong 1 topic xin giúp đỡ (biết C nhưng không biết VBA gì gì đó), rồi biết hơn qua topic "Thư giãn..." (đi giao lưu sẽ mang cả nhà lầu xe hơi theo). Ca này nan y, khó chữa lắm!
 
Upvote 0
Biết cái nick kia trong 1 topic xin giúp đỡ (biết C nhưng không biết VBA gì gì đó), rồi biết hơn qua topic "Thư giãn..." (đi giao lưu sẽ mang cả nhà lầu xe hơi theo). Ca này nan y, khó chữa lắm!
Bạn hơi nhầm một chút: Xê cọng cọng (hàng xịn) chứ không phải Xê trơn.

Và về thành tích thì bạn cũng thiếu một chút: viết code Xê xiếc giỏi đến mức độ những diễn đàn chuyên code như codeproject còn phải chôm nguyên xi đem về đăng.
 
Upvote 0
Thử xem có được "vỗ tay khen" không, không được là nghỉ chơi
Mã:
Public x
Sub test()
MsgBox "Sau 10 giay ok "
End Sub
Sub chay()
x = Now + TimeValue("00:00:10")
Application.OnTime x, "test"
End Sub
Mã:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime x, "test", , False
Cancel = False
End Sub
Nghĩ chơi được rồi đó bạn. Code trật lất. làm có test không vậy.
GỌi file có code trên là FIle A, File khác là FIle B
Mở file A lên trước, và mở lên tiếp File B, Cho chạy code File A Sub Chạy, sau đó tắt file A dù chưa đến 10 giây, thì sau 10 giây nó lại mở file A nó tự mở lên lại là Trật lất yêu cầu rồi. Trong đề bài yêu cầu là nếu thoát thì tắt hẳn mà
 
Upvote 0
Thử xem có được "vỗ tay khen" không, không được là nghỉ chơi
...
Ở diễn đàn này chỉ có 1 người chưa bị cho "nghỉ chơi" thôi. (hình như thớt khớp cơ người này)
Theo như lời bài #11 thì bạn chưa có cái hân hạnh được làm người thứ hai. :p
 
Upvote 0
Ở diễn đàn này chỉ có 1 người chưa bị cho "nghỉ chơi" thôi. (hình như thớt khớp cơ người này)
Theo như lời bài #11 thì bạn chưa có cái hân hạnh được làm người thứ hai. :p
Tránh... cột bê tông chẳng xấu mặt nào. Tôi xin nghỉ trước khi bị cho nghỉ chơi.
 
Upvote 0
Mình có nguồn viết mọi dạng code thuộc dạng chương trình nhỏ. Nhưng vì lý do kinh doanh nên họ viết mã code mã nguồn đóng.
Code sẽ được gói trong file như một phần mềm. Dạng tương tự như file đính kèm. Nếu có nhu cầu thì nhắn tin riêng thỏa thuận giá cả nhé. Giá tầm 10 triệucho 1 chương trình. Nếu không có thì coi như spam hén
 

File đính kèm

  • EnableMacroTool.rar
    3.3 KB · Đọc: 16
Upvote 0
Mình có nguồn viết mọi dạng code thuộc dạng chương trình nhỏ. Nhưng vì lý do kinh doanh nên họ viết mã code mã nguồn đóng.
Code sẽ được gói trong file như một phần mềm. Dạng tương tự như file đính kèm. Nếu có nhu cầu thì nhắn tin riêng thỏa thuận giá cả nhé. Giá tầm 10 triệucho 1 chương trình. Nếu không có thì coi như spam hén
Cái này hay. Đi với bụt phải mặc áo cà sa mới được.
 
Upvote 0
Mình có nguồn viết mọi dạng code thuộc dạng chương trình nhỏ. Nhưng vì lý do kinh doanh nên họ viết mã code mã nguồn đóng.
Code sẽ được gói trong file như một phần mềm. Dạng tương tự như file đính kèm. Nếu có nhu cầu thì nhắn tin riêng thỏa thuận giá cả nhé. Giá tầm 10 triệucho 1 chương trình. Nếu không có thì coi như spam hén

Anh làm được bài của chủ đề em hỏi chưa. Còn cái Appilcaiton của anh. có cần em bẻ khóa không. Anh trả lời không gùm cái. Nếu không trả lời 9h tôi chính thức đăng video làm như thế nào ra cái tool đó, và cách xem code như thế nào. File tootl của anh giá 100k củng không đáng để mua
Bài đã được tự động gộp:

Một nhận định đầy chủ quan, mang sẵn tính định kiến. Mà thôi, tôi xin nghỉ rồi nhé!
trình độ còn non lắm. đâu có làm được đâu. Chỉ giỏi vào comment tào lao. về đi học lại đi con vẹt
 
Upvote 0
Nghĩ chơi được rồi đó bạn. Code trật lất. làm có test không vậy.
GỌi file có code trên là FIle A, File khác là FIle B
Mở file A lên trước, và mở lên tiếp File B, Cho chạy code File A Sub Chạy, sau đó tắt file A dù chưa đến 10 giây, thì sau 10 giây nó lại mở file A nó tự mở lên lại là Trật lất yêu cầu rồi. Trong đề bài yêu cầu là nếu thoát thì tắt hẳn mà
Mình test ok nhé bạn, đừng nói là bạn không biết thủ tục sự kiện copy vào đâu nhé. Nhờ các bác thử hộ file này xem.
Bài đã được tự động gộp:

Ở diễn đàn này chỉ có 1 người chưa bị cho "nghỉ chơi" thôi. (hình như thớt khớp cơ người này)
Theo như lời bài #11 thì bạn chưa có cái hân hạnh được làm người thứ hai. :p
Em biết bác nhắc đến bạn HeSanBi, công nhận bạn ấy giỏi. Thực ra bài này em làm cho vui còn được chủ topic "vỗ tay" hay bị ném đá hay không thèm để ý cũng không quan trọng.
 

File đính kèm

  • Book2.xlsm
    14.2 KB · Đọc: 11
Upvote 0
Mình test ok nhé bạn, đừng nói là bạn không biết thủ tục sự kiện copy vào đâu nhé. Nhờ các bác thử hộ file này xem.
...
Code chạy tốt thì bạn nhớ đăng ký bản quyền nhé.
Ở đây có người đã bị bắt quả tang chôm code về ghi chữ ký của mình vào rồi.

Cứ đọc bài trên (#19) sẽ thấy có những người không hề biết tôn trọng chủ quyền sản phẩm trí tuệ đâu.
 
Upvote 0
Web KT
Back
Top Bottom