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

[havietchuong]

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.

 

[dat_butmuc]

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.

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é!

 

[havietchuong]

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á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 đỡ.

 

[dat_butmuc]

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 đỡ.

=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?

 

[ChanhTQ@]

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

Option Explicit
Sub TenSach()
 Sheets("S1").Select
 Dim Rng As Range, sRng As Range, MyAdd As String, dRng As Range, GPE As Byte
 Set Rng = Range([E1], [E65500].End(xlUp))
 Set dRng = [E65501]
 Set sRng = Rng.Find("nt", , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
   MyAdd = sRng.Address
   Do
      Set dRng = Union(dRng, sRng)
      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(GPE, 5, 0))
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         Set dRng = Union(dRng, sRng.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(Date) Mod 5)
   Set dRng = Nothing
 Next GPE
End Sub

Chú í: Đã xài cái ni thì từ biệt CF đi nha!

 

[havietchuong]

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.

 

[MinhCong]

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.

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é.
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

 

[dat_butmuc]

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.

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.

 

[havietchuong]

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á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.

 

[dat_butmuc]

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.

Để 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?

 

[thuanduc08]

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.

 

[kimdung1980]

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.

 

[thienthandangyeu]

tra loi day ma

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.

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

 

[nguyenvana2016]

.

 

[befaint]

đú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

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?