Giúp mình tạo 1 file quản lý cho thuê băng đĩa? (2 người xem)

[quytrung982]

Cac cao thu vao giup do minh lam bai toan nay voi

Minh dang can tao 1 file de quan ly cho thue bang dia. Cac ban giup minh tao 1 file co cac chuc nang quan ly hang nhap va hang da ban, quan ly so bang dia da cho thue, nhung bang dia nao khach chua tra thi sau 10 ngay se co nhac nho de minh biet. Thank cac ban nhieu cai nay kho qua minh chiu khong lam noi. Email cho minh theo dia chi sau: nguyenquytrung@gmail.com

 

[levanduyet]

Chào bạn quytrung982,
_ Trước hết xin nhắc nhở bạn hãy viết có dấu. Đó cũng là nội quy của diễn đàn.
_ Các bạn chỉ có thể hướng dẫn bạn làm mà thôi. Có như vậy bạn mới có thể học hỏi được, mặc dù yêu cầu của bạn không phải là quá khó khăn! Tin tôi đi bạn cố gắng rồi từ từ sẽ trở thành "chuyên gia" thôi.
Xin các bạn cho bạn quytrung982 ý kiến.

Lê Văn Duyệt

 

[OverAC]

Chào bạn Quytrung.

Có nhiều cách để làm được vấn đề mà bạn đang cần đó là hiện ra thông báo với yêu cầu là những thông tin quá số lượng quy định. Tôi tạm chia các cách ra làm 3 nhóm như sau:

1. Dùng dấu hiệu chỉ thị: Cho biến thành màu đỏ các dòng có số ngày thuê quá 10 ngày so với ngày hôm nay. Với điều này bạn có thể dùng chức năng Conditional formating của Excel để thực hiện.

2. Dùng câu thông báo không cần lập trình: Cách này thì theo mình là hơi khó, bạn cần dùng một hàm quét qua tất cả các ô ngày thuê để xét và nếu ngày thuê nào quá 10 ngày thì cộng thêm vào ô thông báo chỉ số xác định dòng đó (ví dụ: số dòng). Về cách thực hiện thì có thể dùng công thức mãng kết hợp hàm if. (bản thân tôi chưa tự làm được)

3. Dùng câu thông báo có lập trình: dùng một đoạn lập trình ngắn quét qua các ô và cho hiện thông báo. Đoạn code này được để trong workbook_Open hoặc Worksheet_activate Đoạn lập trình có thể được viết như sau:
ví dụ giả định: Cột ngày thuê cần xét là cột D, hàng bắt đầu là hàng 6

Private Sub Workbook_Open()
    With Sheets(1)
    .Select
    dongketthuc = .UsedRange.Rows.Count
    quahan = ""
    For i = 6 To dongketthuc
        If .Cells(i, 4).Value < Date - 10 Then
            quahan = .Cells(i, 1).Value & ", "
        End If
    Next i
    If quahan = "" Then
        MsgBox "Khong co ai thue qua han"
    Else
        MsgBox "Co nhung nguoi sau da thue qua han: " & Left(quahan, Len(quahan) - 2)
    End If
    End With
End Sub

4. Dùng cột phụ (hoặc không cần) kết hợp autofiter: đây là cách dể nhất, bạn lập một cột phụ trong đó xác nhận liệu một giao dịch cho thuê băng là quá hạn hay không. rồi dùng autofiter để lọc ra những dòng có điều kiện là ngày thuê quá hạn.

Chúc thành công, Thân Ái

 

[ketoantruong.com.vn]

Bạn phải tự nghiêu cứu.

Để viết bất cứ chương trình gì dù nhỏ or lớn thì bạn cũng cẩn phải phân tích rõ nhu cầu, phân tích chương trình để sau này có triển chương trình thì không cần phải làm lại từ đầu.

Đối với chương trình bạn cần thì bạn nên phân tích như sau.
+ Nêu nhu cầu tính năng của chương trình.
+ Phân tích nhu cầu.
+ Hệ thống các sheet cần xử lý.
+ Thiết kế bảng phù hợp.(ô , cột dòng dữ liệu ..)
+ Lập công thức các ô của bảng hoặc tạo macro VB...
+ Nhập liệu chạy thử
+ Phát hiện sữa lỗi.
+ Hòan tất chương trình
+ Phát triển thêm tính năng....

Chúc bạn thành chuyên gia Excel

 

[yeudoi]

Theo mình nếu bạn chưa biết nhiều về excel bạn nên tập làm những file nhỏ thôi rồi từ đó mới làm cái khó hơn với khả năng của mình.Để tham khảo bạn có thể xem qua thử file quản lý thư viện trong thư viện diễn đàn xem thử có giúp đựơc gì không nha.