Làm sao để tạm dừng để nhập dữ liệu khi đang chạy VBA ?

[phamvandunghp84]

Hôm nay mình gặp vấn đề cảm thấy rất khó hiểu mong được các bạn giúp đỡ :
Mình muốn VBA tạm dừng ở đây để nhập dữ liệu nhưng nó lại chạy đồng thời luôn những lệnh phía dưới, làm thế nào để cho nó khi thực hiện tới câu lệnh này thì tạm dừng cho mình nhập ghi chú rồi mới tiếp tục thực hiện những câu lệnh phía dưới?

Application.ThisWorkbook.Worksheets("sheet4").Range("T2:U2").Copy Destination:= _
Application.Workbooks("Dinh.xlsm").Worksheets("sheet1").[A65000].End(xlUp).Offset(1, 0)

Application.OnTime Now() + TimeSerial(0, 0, 5), "doinhap_ghichu" ' Mình muốn VBA tạm dừng ở đây để nhập dữ liệu nhưng nó lại chạy đồng thời luôn những lệnh phía dưới

Windows("Dinh.xlsm").Activate
ActiveWorkbook.Save
Windows("Dinh.xlsm").Close

 

[phamvandunghp84]

Hôm nay mình gặp vấn đề cảm thấy rất khó hiểu mong được các bạn giúp đỡ :
Mình muốn VBA tạm dừng ở đây để nhập dữ liệu nhưng nó lại chạy đồng thời luôn những lệnh phía dưới, làm thế nào để cho nó khi thực hiện tới câu lệnh này thì tạm dừng cho mình nhập ghi chú rồi mới tiếp tục thực hiện những câu lệnh phía dưới?

Application.ThisWorkbook.Worksheets("sheet4").Range("T2:U2").Copy Destination:= _
Application.Workbooks("Dinh.xlsm").Worksheets("sheet1").[A65000].End(xlUp).Offset(1, 0)

Application.OnTime Now() + TimeSerial(0, 0, 5), "doinhap_ghichu" ' Mình muốn VBA tạm dừng ở đây để nhập dữ liệu nhưng nó lại chạy đồng thời luôn những lệnh phía dưới

Windows("Dinh.xlsm").Activate
ActiveWorkbook.Save
Windows("Dinh.xlsm").Close

dò như dò mật khẩu các bác ạ, cuối cùng cũng ra

Sub Waste30Sec()
target = (Now + TimeValue("0:00:30"))
Do
DoEvents 'keeps Excel running other stuff
Loop Until Now >= target
End Sub

 

[SA_DQ]

Ông bà ta nói: "Một nghề cho chí hơn 9 mười nghề"
Suy rọng ra làm xong cái này mới nên bước qua cái khác!
Cũng cần đề phòng 1 ngày đẹp trời nào đó CSDL sẽ trở thành đống rác do 1 lí do bất khả kháng nào đó.

 

[phamvandunghp84]

Ông bà ta nói: "Một nghề cho chí hơn 9 mười nghề"
Suy rọng ra làm xong cái này mới nên bước qua cái khác!
Cũng cần đề phòng 1 ngày đẹp trời nào đó CSDL sẽ trở thành đống rác do 1 lí do bất khả kháng nào đó.

Nhân tiện bác cho em hỏi em muốn đặt tên file như này nhưng em muốn nó đặt tên theo 2 số, thêm số 0 ở đầu thì làm thế nào vậy?
em muốn nó như này: 04 - 03- 2020 nhưng hiện tại nó như này 4 - 3 - 2020

E:\Luutru\" & ten & " " & Day(Date) & " - " & Month(Date) & " - " & Year(Date) & ".jpg"

 

[VetMini]

... & ten & " " & Format(Date, "dd - mm - yyyy") & ...

Chú: lưu trứ hồ sơ thì người ta dùng dạng yyyymmdd hoặc yyyy-mm-dd chứ ai lại dùng ngày trước.

 

[SA_DQ]

Thì xài hàm Right("0" & CStr(Day(Date()),2)
& nên làm ngược lại: 2020_10_13

 

[truongvu317]

... & ten & " " & Format(Date, "dd - mm - yyyy") & ...

Chú: lưu trứ hồ sơ thì người ta dùng dạng yyyymmdd hoặc yyyy-mm-dd chứ ai lại dùng ngày trước.

Nó liên quan tới việc sắp xếp và tìm kiếm file sau này á sư phụ vẹt nhỏ?

Bài đã được tự động gộp: 24/3/20

Chủ thớt đang làm phi vụ gì mà cần nhập liệu ngang chừng khi chạy code,

 

[VetMini]

Nó liên quan tới việc sắp xếp và tìm kiếm file sau này á sư phụ vẹt nhỏ?
...

Săp xếp chỉ là một vấn đề, tiêu chuẩn còn quan trọng hơn:
1. nhìn 20200501 ai cũng hiểu ngày 1 tháng năm. Nhưng nhìn 01052020 thì ai dám bảo đảm ngày 1 tháng năm hay ngày 5 tháng giêng?
2. đọc quen dạng yyyymmdd rồi sẽ thấy nó rất dễ phân biệt ngày lớn nhỏ bằng mắt.

...Chủ thớt đang làm phi vụ gì mà cần nhập liệu ngang chừng khi chạy code,

Vấn đề (format date) chỉ nhỏ xíu, giải quyết chỉ 1 dòng cho nên tôi không cần phân biệt là nó có thuộc cùng chủ đề.

Phi vụ phi vọt gì tôi chả quan tâm. Cái tiêu điểm và trọng điểm (goal and focus) của tôi trong Excel là dữ liệu. Tất cả những trò màu mè khác đều không hứng.

 

[phamvandunghp84]

Nhân tiện bác cho em hỏi em muốn đặt tên file như này nhưng em muốn nó đặt tên theo 2 số, thêm số 0 ở đầu thì làm thế nào vậy?
em muốn nó như này: 04 - 03- 2020 nhưng hiện tại nó như này 4 - 3 - 2020

E:\Luutru\" & ten & " " & Day(Date) & " - " & Month(Date) & " - " & Year(Date) & ".jpg"

Cảm ơn các bác đã hướng dẫn nhiệt tình, em chọn được cách này thấy cũng tạm ổn
E:\Luutru\" & ten & " " & Format(Date, "yyyy mm dd") & ".jpg"

 

[SA_DQ]

Nhân tiện bác cho em hỏi em muốn đặt tên file như này nhưng em muốn nó đặt tên theo 2 số, thêm số 0 ở đầu thì làm thế nào vậy?

Nếu là mình thì tên trang tính không cần dài như vậy & nên chỉ là 'J9A' Ở đâu J là năm 2020, sang năm sẽ là 'K'
Con số trong nớ chỉ tháng; tháng 10 sẽ là 'A'

Name 'Alf' co trị là "0123456789ABCDEFGHIJK. . . Z"

ShName => Mid(Alf,Year(Date)-2000,1) & mid(Alf,1+month(date),1) & . . .

 

[phamvandunghp84]

Nếu là mình thì tên trang tính không cần dài như vậy & nên chỉ là 'J9A' Ở đâu J là năm 2020, sang năm sẽ là 'K'
Con số trong nớ chỉ tháng; tháng 10 sẽ là 'A'

Name 'Alf' co trị là "0123456789ABCDEFGHIJK. . . Z"

ShName => Mid(Alf,Year(Date)-2000,1) & mid(Alf,1+month(date),1) & . . .

Cảm ơn bạn rất nhiều !