Cách nào tự động copy dữ liệu sau một khoảng thời gian? (4 người xem)

[anhtuan1066]

Tôi cần 2 đoạn code:
Code thứ nhất: Copy 1 cell rồi nhớ vào Clipboard
Code thứ hai: Lấy cái đã nhớ trong Clipboard và paste vào 1 cell khác
ANH TUẤN

 

[chessbase10]

Tôi cần 2 đoạn code:
Code thứ nhất: Copy 1 cell rồi nhớ vào Clipboard
Code thứ hai: Lấy cái đã nhớ trong Clipboard và paste vào 1 cell khác
ANH TUẤN

Tôi không hiểu ý bạn lắm. Không biết ý bạn có phải là như đoạn code này không? copy từ a1 sang a2

Sub copy()
Dim data As Variant
data = Range("a1")
Range("a2") = data
End Sub

 

[anhtuan1066]

Quả đúng là tôi diển đạt chưa rõ nên các bạn ko hiểu... Hảy xem đoạn code này nha:
Sub TG()
Range("A1").FormulaR1C1 = "=NOW()"
Range("A1").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sub DUR()
Range("B1").FormulaR1C1 = "=NOW()-RC[-1]"
Range("B1").Select
End Sub

Cái Sub TG có nhiệm vụ ghi lại thời gian hiện tại rồi paste special\Value vào chính A1 (giả sử thời gian hiện tại là 7:30:00)
Sau 1 khoảng thời gian giã sử bây giờ là 7:30:20, tôi dùng Sub Dur đễ lấy thời gian hiện tại trừ đi thời gian hồi nảy, tức 7:30:20 - 7:30:00 = 20s
Chuyện này cũng ko có vấn đề, nhưng ý tôi muốn làm cách nào đừng hiển thị thời gian thứ nhất, tức thời gian chứa trong A1...
Tôi làm 2 nút nhấn.. TG và DUR... Bấm vào TG thì excel sẽ ghi nhớ thời gian hiện tại (Thời gian 1)... Đến 1 lúc sau tôi bấm vào nút DUR thì excel sẽ lấy thời gian hiện tại trừ thời gian hồi nảy... ra dc khoảng thời gian đã trôi qua giữa 2 thời điểm...
Các bạn có cách nào ko? Tôi ko muốn có sự hiện diện của cell A1 vì điều này có vẽ hơi .. thừa.. chỉ cần bấm vào TG rồi Excel sẽ nhớ ở đâu đó (ko biết là ở đâu nữa)
Mến
ANH TUẤN

 

[voda]

Bạn thử xem file này.

 

[anhtuan1066]

Có lý à nha!...
Sub DUR()
Range("B1") = Now() - tt
End Sub
thì tôi hiểu rồi... còn...
Sub tg()
tt = Now()
End Sub
nghĩa là sao nhỉ?
Bạn đừng cười, có thể với bạn nó bình thường nhưng tôi mới chập chững vào lĩnh vực VBA nên thấy nó lạ lắm... Bạn giãi thích kỹ dùm dc ko? Vì nếu hiểu rõ thì biến hóa dc chứ... Tải về sử dụng thì nói làm gì... Phải ko?
Chủ yếu tôi ko hiểu ở đâu ra chử tt... (Có phải nó là tham số bạn tự gán vào theo hàm NOW() ko?)... Giống như người ta vẫn gán Delta= B*B - 4*A*C trong cách giãi phương trình bậc 2 đó ko?...
ANH TUẤN

 

[voda]

Bạn cũng đừng cười. Vì mình cũng dân nghiệp dư.
Chữ tt là tôi gán đại một tên biến bất kỳ.
Ý đồ của bạn là muốn lưu dữ liệu vào clipboard. Mình lưu giá trị vào biến. Dùng khai báo public để biến đó được dùng trong cả 2 thủ tục. Khi chạy sub tg(), biến tt được gán cho giá trị của now(). Giá trị đó vẫn lưu lại khi ta chạy sub DUR().
Thân

 

[anhtuan1066]

Vậy tôi hiểu rồi... Cũng đơn giãn nhỉ... Cám ơn bạn nhiều...
Giờ tôi hỏi thêm 1 cái nữa... Số là tôi muốn làm cái đồng hô đếm trên bảng tính (đồng hồ dạng Digital, chủ yếu là đếm xem từ lúc Start đến lúc Stop đã trải qua bao nhiêu thời gian rồi).. nhưng làm sao đễ khi tôi kéo thanh trượt dọc thì cái đồng hồ sẽ "trôi theo" cho tôi nhìn thấy nó... Giống như Popup trên 1 số trang web vậy!
Bạn có thể thiết kế 1 cái đồng hồ tương tự như tôi nói dc ko?
Mong sự trợ giúp của bạn!
Mến
ANH TUẤN

 

[voda]

File này không an toàn. Các bạn đừng tải

 

[voda]

Bạn xem thử đã đúng ý bạn chưa?

 

[vungoc]

Các bác chịu khó gõ và tìm kiếm trên GPE, theo cụm từ Clockchart - mình thấy có file đồng hồ rất hay (Bằng cả kim và số)

 

[anhtuan1066]

Cái đồng hồ này hoàn toàn chính xác ý tôi muôn... Bạn Voda giõi thiệt (mong học hỏi thêm... vậy mà bạn nói mới biết... hi.. hi...)
Với VuNgoc: ClockChart mà bạn nói ko phải là cái tôi cần... Chủ yếu tôi muốn đếm xem từ lúc START đến lúc STOP đã trôi qua bao nhiêu thời gian rồi, bạn hiểu ko? Ứng dụng nó đễ khống chế thời gian thi trắc nghiệm chẳng hạn
Với bạn Voda: Bạn giúp tôi thêm 1 chuyện nhỏ nữa nha! Tôi muốn 2 nút START và STOP nằm riêng trên bảng tính (Nút Command trên thanh Forms... đừng nằm chung với đồng hồ) Bạn làm ơn tách nó ra dùm tôi đi, chứ tôi nhìn vào Code thì... mù tịt... hi... hi...
Mến
ANH TUẤN

 

[voda]

Mình gởi lại file cho bạn đây.
Thân

 

[tedaynui]

Đồng hồ trên Form của Voda tuyệt thật.
Cái này không được như Voda nhưng mình gởi đến các bạn cái đồng hồ trên Cell để các bạn tham khảo thêm.

TDN

 

[anhtuan1066]

Bạn tedaynui ơi! Cái đồng hồ của bạn đẹp lắm! Nhưng tôi vẫn chưa hiểu... Đúng lý ra khi bấm nút START thì nó bắt đầu đếm giây, bấm nút STOP thì nó sẽ dùng lại ở số cuối cùng... Còn ở đây, cái nút START và STOP lại chẳng liên quan gì đến cái đồng hồ đếm giây cả... Còn RESET thì nó đếm lại từ đầu (chưa đúng ý tôi lắm)... Mà tôi thì thua, ko biết cách nào đễ sữa code lại theo ý muốn
Chắc tôi diển đạt kém nên các bạn ko hiểu... Cái tôi cần là 1 cái đồng hồ đếm giây, dùng trong các chương trình thi trắc nghiệm, xem thử thí sinh đã làm xong bài mất bao nhiêu thời gian chứ ko phải là cái đồng hồ đeo tay xem giờ các bạn à!
Cả 2 đồng hồ này đều gần đúng ý tưởng của tôi... nhưng chính xác nhất là làm 1 cái đồng hồ giống giống của bạn Voda, còn 2 nút START, STOP thì nằm rời bên ngoài (đừng dính chung với cái đồng hồ)
Tôi biết là đã làm phiền mọi người.. nhưng mong các bạn giúp tôi thêm lần nữa...
Cám ơn
ANH TUẤN

 

[anhtuan1066]

Ah... còn nữa... khi bấm nút STOP thì làm sao lấy ra dc giá trị thời gian đang hiện trên cái đồng hồ vào 1 cell nào đó (bình thường thì cell này = 0)
Cám ơn!
ANH TUẤN

 

[voda]

Mình đã tách 2 nút điều khiển ra ngoài sheet cho bạn rồi. Mà vẫn chưa được hả? Bạn có thể nói cụ thể hơn không?

 

[tedaynui]

Gởi Anhtuan1066
Nút Start và Stop là để khởi động và dừng đồng hồ hiển thị giờ. Còn để dừng và khởi động đồng hồ đếm giây là nút Reset

Mến

 

[Nguyễn Duy Tuân]

Các bạn có thể tham khảo thêm chương trình "Quản lý phòng máy". Có hàng tá đồng hồ tính với các mốc thời gian khác nhau.

http://www.giaiphapexcel.com/forum/showthread.php?t=1370

 

[anhtuan1066]

Cám ơn các bạn... Tại hôm qua lúc tôi lên mạng thì chưa thấy file của bạn Voda... cái này là chính xác rồi đấy...
Oh... mà nghĩ cũng lạ ha! Hôm qua tôi loay hoay với cái đồng hồ của bạn, cũng tìm cách tách nút nhấn ra ngoài, vừa nhìn code vừa đoán... giờ nhìn lại code của bạn thì thấy cũng giống y cách tôi làm... Thế sao lúc tôi tách nút nhấn ra thì nó ko chạy nhỉ?... Kinh nghiệm còn non quá nên làm gì cũng khổ... hi... hi...
Ah! Làm sao lấy dc chỉ số đồng hồ lúc STOP vào cell A1 nhỉ? Mò hoài ko dc, chán ghê!
Dù sao vẫn cám ơn các bạn
ANH TUẤN

 

[voda]

Bạn chỉnh lại dòng lệnh như sau:

Sub stops()
Sheet1.Cells(1, 1) = UserForm1.Label1.Caption
timer_enabled = False
End Sub