Giúp câu lệnh dừng Ontime trong VBA (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

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

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

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
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:


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.
xem code nằm ở đâu nhé. Code trật lất mà nói Test đúng thì bó tay. Hay là không biết test có cần quay video lại không
1593699366282.png

1593699389653.png
 
Upvote 0
Anh làm được bài của chủ đề em hỏi chưa.
Nhóm mình nghiệp vụ không giỏi nên chỉ có thể viết mấy chương trình nhỏ và tính bảo mật không có cao. Cho nên chỉ cần người có tí kiến thức cơ bản là bẻ khoá được. Đối với người cần và có đủ khả năng thì họ sẽ mua, với người không cần thì cho không họ cũng không lấy. Code bạn cần thì trên gpe nhiều người viết được. Bạn chịu khó chờ sẽ có người viết miễn phí cho.
Bạn có thời gian và kiến thức thì thử unlock cái tool nhỏ đó xem thử coi có gì trong đó nhé. Coi như giao lưu thôi.
 
Upvote 0
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.
Dừng ở đây được rồi bác. Một người chỉ chuyên đi xin thì xứng gì với bác?
 
Upvote 0
Theo dõi trong nhiều topic, và cụ thể là topic này, nick @hunglam123 nhiều lần tỏ thái độ khinh thường người khác, thậm chí lên giọng chê bai và công kích người khác với thái độ trịch thượng, và tôi đã trích dẫn trong 1 topic khác.
Trong topic này thì bài 11, 14, 18 vẫn có thái độ như vậy.
Quá trình nick này đã bị nhắc nhở nhiều lần, ban có thời hạn không dưới 2 lần nhưng vẫn vậy. Tôi cho rằng nick @hunglam123 không thích hợp với môi trường chia sẻ, đoàn kết, thân thiện của GPE nên quyết định cảnh cáo lần cuối, nếu còn thấy dù chỉ 1 bài, 1 câu tương tự như trên, sẽ bị ban vĩnh viễn.
Các thành viên khác thì cũng đề nghị không bàn thêm. Thích hoặc hứng thú thì làm, không thì thôi.
 
Upvote 0
Nhóm mình nghiệp vụ không giỏi nên chỉ có thể viết mấy chương trình nhỏ và tính bảo mật không có cao. Cho nên chỉ cần người có tí kiến thức cơ bản là bẻ khoá được. Đối với người cần và có đủ khả năng thì họ sẽ mua, với người không cần thì cho không họ cũng không lấy. Code bạn cần thì trên gpe nhiều người viết được. Bạn chịu khó chờ sẽ có người viết miễn phí cho.
Bạn có thời gian và kiến thức thì thử unlock cái tool nhỏ đó xem thử coi có gì trong đó nhé. Coi như giao lưu thôi.
Vào regedit rồi Export ra trong phần Security của Excel, Cái này biết từ 2010
Bài đã được tự động gộp:

Theo dõi trong nhiều topic, và cụ thể là topic này, nick @hunglam123 nhiều lần tỏ thái độ khinh thường người khác, thậm chí lên giọng chê bai và công kích người khác với thái độ trịch thượng, và tôi đã trích dẫn trong 1 topic khác.
Trong topic này thì bài 11, 14, 18 vẫn có thái độ như vậy.
Quá trình nick này đã bị nhắc nhở nhiều lần, ban có thời hạn không dưới 2 lần nhưng vẫn vậy. Tôi cho rằng nick @hunglam123 không thích hợp với môi trường chia sẻ, đoàn kết, thân thiện của GPE nên quyết định cảnh cáo lần cuối, nếu còn thấy dù chỉ 1 bài, 1 câu tương tự như trên, sẽ bị ban vĩnh viễn.
Các thành viên khác thì cũng đề nghị không bàn thêm. Thích hoặc hứng thú thì làm, không thì thôi.
bác thích thì Ban đi . Không có Lửa làm sao có khói. mấy thằng viên khác khiêu khích sao không thấy nói tới, Tất cả 12/7 gặp nhau trên bàn. Tôi dừng tại đây
 
Upvote 0
Mời bạn @hunglam123 xem video này xem file book2.xlsm có bị gọi lên không. Lần đầu chạy thủ tục "chay", sau 10s xuất hiện hộp thoại. Lần sau chạy thủ tục rồi tắt file book2, chờ đến 20s vẫn không thấy gì.
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom