Nhờ hướng dẫn cách làm sổ Thư Viện trường học.

Thảo luận trong 'Excel và Giáo Dục' bắt đầu bởi havietchuong, 13 Tháng mười hai 2009.

  1. havietchuong

    havietchuong New Member

    Tôi đang làm 1 quyển sổ Thư viện trường học vời nhiều đầu sách và quyển sổ phải làm theo mẫu của Phòng Giáo Dục quy định. Do quá nhiều đầu sách và sắp xếp lại để tạo danh mục cho bạn đọc. Khi thực hiện, tôi gặp phải khó khăn như sau:
    1-.Làm thế nào để cắt bỏ được những hàng với tên sách là (nt), cột E.
    2-.Sau khi cắt xong, đánh lại số thứ tự Bản sách ở cột Tên sách (cột C).
    3-.Đánh số thứ tự xong tô đậm lại những hàng có số bản sách là 5; 10; 15; ... (cách 5 hàng có 1 lằn tô đậm như tôi làm mẫu ở file đính kèm)
    Cám ơn các bạn nhiều lắm.

    Vì làm sổ thư viện, tôi nghĩ là post bài ở mục này, có đúng sai mong quý vị thông cảm.
     

    Các file đính kèm:

    Last edited: 13 Tháng mười hai 2009
  2. dat_butmuc

    dat_butmuc weitə r ə'pɔn prɔvidəns

    1. Dùng Auto filter trên Data chọn những dòng chứa nt hoặc -nt- rồi xóa dòng đi là được.
    2. Công thức tại cột B (xem file)
    3. Dùng Conditional Formatting trên Format.
    Bạn mở ra thì thấy, xem file nhé!
     

    Các file đính kèm:

  3. havietchuong

    havietchuong New Member

    Cám ơn bạn đã giúp tôi giải quyết được những điều theo yêu cầu. Công thức trong Conditional Formatting bạn có thể giả thích cho tôi hiểu rõ hơn cũng khi ghi công thức này cần chọn vùng nào? tôi còn dở lắm.
    Còn nét đậm đó có thể tăng lớn hơn thêm được không? Vì trong Conditional Formatting chỉ là nét liền mà thôi. Mong giúp đỡ.
     
    Last edited: 13 Tháng mười hai 2009
  4. dat_butmuc

    dat_butmuc weitə r ə'pɔn prɔvidəns

    =MOD(ROW()+8,5)=0
    - Mod: Dùng để lấy số dư của một phép chia</SPAN>
    Cú pháp: = MOD(number, divisor)
    number: Số bị chia
    divisor: Số chia

    => ở đây ta lấy vị trí các dòng bắt đầu từ bảng tính chia hết cho 5.
    - Nói tới hàng ta nghĩ ngay đến hàm Row(), Row(A1)=1, Row(A5)=5,...
    Row()+8 (Bạn có 02 dòng để dùng làm thanh tiêu đề) => Là tôi lấy từ dòng là 10,15, 20,.... khi chia cho 5 thì không có số dư (hay số dư =0)
    => Trước khi sử dụng Conditional Formatting bạn nên chọn vùng bạn muốn thực hiện trước (đánh dấu nó).
    Những thông tin trên có giúp ích được cho bạn chăng?
     
  5. ChanhTQ@

    ChanhTQ@ Thành viên già cỗi.

    Nếu trường bạn có trên 500 đầu sách thì nên xài cái ni

    PHP:
    Option Explicit
    Sub TenSach
    ()
     
    Sheets("S1").Select
     Dim Rng 
    As RangesRng As RangeMyAdd As StringdRng As RangeGPE As Byte
     Set Rng 
    Range([E1], [E65500].End(xlUp))
     
    Set dRng = [E65501]
     
    Set sRng Rng.Find("nt", , xlFormulasxlPart)
     If 
    Not sRng Is Nothing Then
       MyAdd 
    sRng.Address
       
    Do
          
    Set dRng Union(dRngsRng)
          
    Set sRng Rng.FindNext(sRng)
       
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
     End 
    If
     
    dRng.EntireRow.Delete
     Set Rng 
    Rng.Offset(, -3)
     For 
    GPE 1 To 2
       Set dRng 
    = [A1].Resize(, 5)
       
    Set sRng Rng.Find(Choose(GPE50))
       If 
    Not sRng Is Nothing Then
          MyAdd 
    sRng.Address
          
    Do
             
    Set dRng Union(dRngsRng.Offset(, -1).Resize(, 5))
             
    Set sRng Rng.FindNext(sRng)
          
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
       End 
    If
       
    dRng.Interior.ColorIndex GPE 35 + (Day(DateMod 5)
       
    Set dRng Nothing
     Next GPE
    End Sub
    Chú í: Đã xài cái ni thì từ biệt CF đi nha!
     
  6. havietchuong

    havietchuong New Member

    Rất cám ơn sự nhiệt tình của dat_butmuc và ChanhTQ@, tôi mới đang tìm hiểu thêm về VBA từ khi mới làm quen với GPE nên nói về code thì xin chịu.
    Thư viện trường tôi có trên 3000 tên sách nên để tạo một mẫu đúng quy định rất khó cho khả năng của tôi, hy vọng gia đình ta sẽ trợ giúp bước qua trở ngại này.

    Lại nhờ các bạn một việc nữa đây:
    Ở cột F (Môn loại), nhờ các bạn giúp tôi sort theo thứ tự: Kí tự đầu là số từ 0-->9, sau đó mới theo kí tự đầu là mẫu tự A,B,C,... Những số có 1 chữ số thêm dùm phía trước 1 chữ số 0 và xem là có kí tự đầu bằng 0.
    Cám ơn các bạn.
     

    Các file đính kèm:

  7. MinhCong

    MinhCong Well-Known Member

    Thêm cho Bạn 1 cách lọc bằng công thức nữa đây, về tha hồ nghiên cứu nhé.--=0
    Bạn muốn xem conditioanal formatting quét từ ô A3:E3 xem nhé.
    Chỉ cần đặt MOD($C3,5)=0 và MOD($C3,5)<>0 để định dạng
     
  8. dat_butmuc

    dat_butmuc weitə r ə'pɔn prɔvidəns

    Bạn xem file có được không?
    Nếu cần có thể copy và paste value 2 cột "môn loại" thành 1 cột.
     

    Các file đính kèm:

    Last edited: 13 Tháng mười hai 2009
  9. havietchuong

    havietchuong New Member

    Cám ơn các bạn đã nhiệt tình giúp đỡ. Trong file bạn gởi tôi rất vừa ý nhưng khi về thực hiện với file nguyên của tôi lại gặp khó khăn không như ý muốn. Mong được các bạn xem giúp đỡ. Còn dốt lắm, các bạn có thể giới thiệu từng thao tác, cám ơn nhiều.
     

    Các file đính kèm:

    Last edited: 13 Tháng mười hai 2009
  10. dat_butmuc

    dat_butmuc weitə r ə'pɔn prɔvidəns

    Để tránh phá vỡ cấu trúc đã định dạng khi dùng công thức copy xuống, bạn nên vào Paste Special -> Formulas toàn bộ các dòng cần dùng công thức (đánh dấu nó trước)
    Tại cột môn loại sau khi dùng công thức ra kết quả bạn nên paste value rồi chuyển nó sang text trước khi copy sang cột khác
    Gửi file đính kèm,
    Bạn xem có thiếu chỗ nào nữa không?
     

    Các file đính kèm:

  11. thuanduc08

    thuanduc08 New Member

    Chào bạn Havietchuong.
    Lại được gặp bạn trong chuyên mục này. Tôi cũng đang lần mò để làm chương trình quản lý thư viện trường học và tôi thấy bạn làm có những ý rất hay tuy nhiên ta phải hiểu về chương trình quản lý thư viện thì mới làm được hoàn chỉnh.
    Trước kia các trường, viện nghiên cứu đã từng dùng chương trình IZIS của nga, bây giờ thì của Tinh vân, Lybool và mới nhất là của bách khoa nhìn chung mục tiêu là để quản lý, thống kê, giới thiệu và phục vụ. Thư viện trường học cấp I,II,III ta coi như là thư viện chuyện ngành bởi nó phục vụ cho 2 đối tượng là hs và GV nên ta có thể làm như sau:
    Bước 1: Phân loại tủ sách
    - Tủ sách dùng chung( SGK)
    - Tủ sách pháp luật
    - Tủ sách đạo đức
    - Tủ sách HCM
    - Tủ sách nghiệp vụ
    - Tủ sách tham khảo
    Bước 2: Lập bảng
    - Stt( của tài liệu)
    - SĐKCB( số thứ tự xếp giá)
    - Tên sách( bởi phục vụ 2 đối tượng mà là HS và GV nên những đối tượng này ko phải là đối tượng nghiên cứu vì thế ta xếp theo tên sách)
    - Tên tác giả
    - Nơi năm XB
    - Nhà xuất bản
    - Đơn giá
    - Phân loại
    - Người mượn( GV,HS)
    Bước 3: Dùng Autofilter để lọc
    Bước 4: Thống kê
    - Lập bảng thống kê với hàm counta hoặc countif để đếm số ấn phẩm của từng loại, số lần mượn, số người mượn, số sách ra khỏi thư viện)
    - Lập báo cáo hàng tháng, hàng năm
    - Lập báo cáo kiểm kê thanh lý
    Bước 5: In phích ( đây là bước rất khó để có thể gộp nội dung của tất cả các thông tin một cuốn sách thành tờ phích mô tả như quy định- Tớ chưa nghĩ ra cách)
    Bước 6: Đưa lên mạng, Hướng dẫn học sinh và GV cách sử dụng và viết phiếu yêu cầu


    Đây là các bước mà tớ đang làm, tớ thấy rất hiệu quả, dễ sử dụng, tìm kiếm rât nhanh( tên sách, tên tác giả, nơi XB, năm XB...nhưng nó chưa hoàn thiện nên ko dám đưa ra cho mọi người xem
    Bạn xem có vấn đề gì thì trao đổi với tớ nhé.
    Chào bạn.
     
  12. kimdung1980

    kimdung1980 New Member

    chào bạn! Hôm nay mình đang phải chuẩn bị làm một số biểu mẫu thống kê để kiểm tra thư viện trường học, mãu sổ sách mình đang phải viết tay vậy bạn có thể gửi mình xin được phai đính kèm của bạn đã có các loại sổ sách đến mẫu in phích của thư viện được không. Xin được cảm ơn bạn rất nhiều nếu bạn không từ chối.
     
  13. thienthandangyeu

    thienthandangyeu New Member

    tra loi day ma

    Cho minh hoi: Sach bo tro nang cao kien thuc ky ngu van 10 co ky hieu phan loai lâ gi?Cảm ơn nhiều-=.,,--=0@$@!^%
     
  14. đúng là quan trọng là bước 5 đó. Cái đó không có quy định như thế nào. Một chỗ là 1 quy định khác nhau
     
  15. befaint

    befaint |||||||||||||

    Bài gửi từ ngày 06/04/2010 (bây giờ là ngày 20/05/2017) thì vào đọc tham khảo thôi, lôi lên làm chi nữa?
     

Chia sẻ trang này