GPE Phát hành sách: "Lập trình VBA trong Excel cho người mới bắt đầu - 2014" | "VBA trong Excel - Cải thiện và tăng tốc - 2013"
Trang 1/3 1 2 3 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 25
  1. #1
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    Huế
    Bài gởi
    56
    Cảm ơn
    60
    Được cảm ơn 47 lần trong 17 bài viết

    Đồng hồ đếm ngược trên form

    Em cần đồng hồ đếm ngược trên form, khi chạy hết thời gian thì tự động khóa sheet lại, mong các Pác giúp.

  2. #2
    Tham gia ngày
    12 2007
    Nơi Cư Ngụ
    Q. Bình Thạnh - TPHCM
    Bài gởi
    1,847
    Cảm ơn
    2,778
    Được cảm ơn 4,762 lần trong 1,455 bài viết
    Trích Nguyên văn bởi anktdn View Post
    Em cần đồng hồ đếm ngược trên form, khi chạy hết thời gian thì tự động khóa sheet lại, mong các Pác giúp.
    Về đồng hồ đếm ngược thì bạn tìm hiểu thêm trên diễn đàn. Mình chỉ nói đến thuật toán xác định thời gian đóng form

    Ta tạo 1 Userform. Sử dụng sự kiện Active để xác định thời gian mở form
    PHP Code:
    Private Sub UserForm_Activate()
    Application.OnTime Now TimeValue("00:00:05"), "dongform"
    End Sub 
    Sau khi mở form 5 giây, thủ tục trên sẽ gọi thủ tục đóng form.
    Bạn Insert module và nhập thủ tục này vào.

    PHP Code:
    Sub dongform()
    UserForm1.Hide
    End Sub 
    Tập tin đính kèm Tập tin đính kèm

  3. Có 3 thành viên cảm ơn hoangdanh282vn về bài viết này:


  4. #3
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    Huế
    Bài gởi
    56
    Cảm ơn
    60
    Được cảm ơn 47 lần trong 17 bài viết
    Trích Nguyên văn bởi hoangdanh282vn View Post
    Về đồng hồ đếm ngược thì bạn tìm hiểu thêm trên diễn đàn. Mình chỉ nói đến thuật toán xác định thời gian đóng form

    Ta tạo 1 Userform. Sử dụng sự kiện Active để xác định thời gian mở form
    PHP Code:
    Private Sub UserForm_Activate()
    Application.OnTime Now TimeValue("00:00:05"), "dongform"
    End Sub 
    Sau khi mở form 5 giây, thủ tục trên sẽ gọi thủ tục đóng form.
    Bạn Insert module và nhập thủ tục này vào.

    PHP Code:
    Sub dongform()
    UserForm1.Hide
    End Sub 
    Có thêm đồng hồ đếm ngược chạy trên form thì hay quá .

  5. #4
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hai Phong
    Bài gởi
    4,246
    Cảm ơn
    3,495
    Được cảm ơn 6,871 lần trong 3,243 bài viết
    Không phải vậy đâu Hoang Danh à, ý bạn ấy là cần bổ xung điều khiển Timer trong VB ấy. Như vậy trong thời gian cho phép thì người dùng muốn làm gì thì làm nhưng hết giờ buộc phải thoát. Còn như bạn thì nó giống như flash form thôi. Không hiếu sao máy của mình có điều khiển Timer nhưng không ad được nên đành chịu.
    thay đổi nội dung bởi: sealand, 09-12-08 lúc 02:22 PM

  6. #5
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    Huế
    Bài gởi
    56
    Cảm ơn
    60
    Được cảm ơn 47 lần trong 17 bài viết
    Trích Nguyên văn bởi sealand View Post
    Không phải vậy đâu Hoang Danh à, ý bạn ấy là cần bổ xung điều khiển Timer trong VB ấy. Như vậy trong thời gian cho phép thì người dùng muốn làm gì thì làm nhưng hết giờ buộc phải thoát. Còn như bạn thì nó giống như flast form thôi. Không hiếu sao máy của mình có điều khiển Timer nhưng không ad được nên đành chịu.
    Đúng như ý bạn nói, mình muốn hiển thị thời gian chạy trên form ví dụ trên form sẽ hiển thị 10:15, khi chạy hết đúng 10phút 15 giây form sẽ đóng lại. Ai có ý tưởng hay xin chì giúp. thanks

  7. #6
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    Huế
    Bài gởi
    56
    Cảm ơn
    60
    Được cảm ơn 47 lần trong 17 bài viết
    Here is some code that works in Excel 97.

    On the userform., two buttons to start and stop the timer and a label, lblCountdown, and this code


    VBA:

    PHP Code:
    Private Sub cmdStart_Click() 
    nTime nCount 
    Call RunTimer 
    End Sub 
    PHP Code:
    Private Sub cmsdStop_Click() 
    nTime 
    End Sub 
    VBA tags courtesy of www.thecodenet.com

    In a general module, this code


    VBA:

    PHP Code:
    Public Const nCount As Long 30 ' secs 
    Public nTime As Double 
    Public Sub RunTimer() 
    If nTime > 1 Then 
    nTime = nTime - 1 
    UserForm1.lblCountDown.Caption = Format(TimeSerial(0, 0, nTime), "hh:mm:ss")
     Application.OnTime Now + TimeSerial(0, 0, 1), "RunTimer" 
    Else 
    Unload UserForm1 
    End If 
    End Sub 
    VBA tags courte
    Tìm trên trang vba của tác giả XLD viết code cho bộ đồng hồ đếm ngược, mình đã thiết kế được đồng hồ trên form ,gửi file lên đẩ các bạn tham khảo, code đơn giản nhưng ứng dụng rất hay.
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: ptm0412, 15-05-09 lúc 07:39 AM

  8. #7
    Tham gia ngày
    06 2009
    Bài gởi
    2
    Cảm ơn
    0
    Được cảm ơn 0 lần trong 0 bài viết
    Có vấn đề khi dùng lệnh OnTime là người dùng nếu điều chỉnh lại đồng hồ của máy tính (win) thì tẻo, excel có nhược điểm là phụ thuộc vào giờ hệ thống (win) bởi vậy khi làm các file có các macro điều khiển bằng time thì bị người dùng sửa giờ hệ thống để lách. Đang đau đầu vì không biết làm thế nào để xây dựng được 1 cái đồng hồ độc lập (không phụ thuộc vào giờ hệ thống) để khi đến những mốc thời gian hạn định file tự chạy các macro theo mình mong muốn mà những người dùng khác không lách được.

  9. #8
    Tham gia ngày
    06 2008
    Bài gởi
    23,016
    Cảm ơn
    13,027
    Được cảm ơn 40,659 lần trong 18,522 bài viết
    Trích Nguyên văn bởi anktdn View Post
    Em cần đồng hồ đếm ngược trên form, khi chạy hết thời gian thì tự động khóa sheet lại, mong các Pác giúp.
    Xem file này thử nhé
    Tập tin đính kèm Tập tin đính kèm

  10. Có 3 thành viên cảm ơn ndu96081631 về bài viết này:


  11. #9
    Tham gia ngày
    02 2007
    Nơi Cư Ngụ
    TP-Sóc Trăng
    Bài gởi
    2,079
    Cảm ơn
    1,095
    Được cảm ơn 2,014 lần trong 908 bài viết
    thấy đồng hồ đếm ngược không biết chèn âm thanh vào như thế nào đây!

  12. #10
    Tham gia ngày
    06 2008
    Bài gởi
    23,016
    Cảm ơn
    13,027
    Được cảm ơn 40,659 lần trong 18,522 bài viết
    Trích Nguyên văn bởi ongtrungducmx25 View Post
    thấy đồng hồ đếm ngược không biết chèn âm thanh vào như thế nào đây!
    Vấn đề này nói nhiều trên diển đàn rồi mà:
    Chèn âm thanh dạng MIDI:
    http://www.giaiphapexcel.com/forum/s...8&postcount=15
    Chèn âm thanh dạng MP3:
    http://www.giaiphapexcel.com/forum/s...01&postcount=1
    Trong đó chèn âm thanh MIDI là dể nhất

  13. Có 3 thành viên cảm ơn ndu96081631 về bài viết này:


Trang 1/3 1 2 3 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Dùng combobox lọc dữ liệu để đưa vào form,tính tổng trong form
    Viết bởi duylong78 trong chuyên mục Lập Trình với Excel
    Trả lời: 1
    Bài mới gởi: 13-10-10, 03:29 PM
  2. Kích thước của User Form và điều khiển Form
    Viết bởi thaibinh_excel trong chuyên mục Lập Trình với Excel
    Trả lời: 17
    Bài mới gởi: 23-03-10, 08:03 AM
  3. Giúp mình cách đóng form khi click chuột bên ngoài form
    Viết bởi mayouly trong chuyên mục Lập Trình với Excel
    Trả lời: 4
    Bài mới gởi: 07-01-10, 11:33 AM
  4. Code chuyển form đồng thời đóng form
    Viết bởi duong_nam_dao trong chuyên mục Hỏi đáp về VBA - Macro
    Trả lời: 4
    Bài mới gởi: 12-08-08, 07:02 PM
  5. Gọi form từ file khác (……Form.show)
    Viết bởi VADaNang trong chuyên mục Lập Trình với Excel
    Trả lời: 4
    Bài mới gởi: 26-10-07, 02:19 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]