Bảng mã hóa tên sách thư viện tiểu học năm 2024

• Information
• AI Chat

Was this document helpful?

Course: kỹ thuật ô tô

11 Documents

Students shared 11 documents in this course

Was this document helpful?

HƯỚNG DẪN SỬ DỤNG TÀI LIỆU THƯ VIÊN

9. SỬ DỤNG TÀI LIỆU VĂN BẢN

1. Cách sắp xếp tài liệu trong kho sách và các nhãn kí hiệu

Tài liệu được sắp xếp theo chuẩn của chuyên môn ngành Thư viện (Có bảng chỉ dẫn tại kho sách):

- Mỗi lĩnh vực tài liệu được bố trí theo từng khu vực giá sách (có biển ghi trên đầu giá sách)

- Gáy hoặc bìa trước (bìa 1) của mỗi cuốn sách được dán Ký hiệu xếp giá (mang thông tin tên tác

giả/tên sách, năm xuất bản, ký hiệu phân loại, mã vạch) và sách được sắp xếp tịnh tiến theo kí hiệu

phân loại.

Ví dụ:

- Mã vạch (còn gọi là đầu mục) sách được dán tại bìa sau (bìa 2) của mỗi cuốn sách là ký hiệu mã

hóa được đặt tên cho từng cuốn sách, mỗi cuốn có một mã riêng biệt.

2. Tìm kiếm tài liệu

Bạn có thể phối hợp sử dụng các cách sau: Qua máy tính trước khi vào kho, qua Bảng chỉ dẫn tổng

Ký hiệu xếp giá

• Home
• My Library
• Ask AI

Mã:

Public Sub Ma_Hoa_Ten_Sach()
Dim DL, MaVan, XoaDau, Tam, r As Long, rw As Long, c As Long, i, j
DL = Sheet2.Range("A2", Sheet2.Range("A65000").End(xlUp))
MaVan = Sheet1.Range("A1").CurrentRegion
XoaDau = Sheet1.Range("D1").CurrentRegion
For r = 1 To UBound(DL)
Tam = Split(DL(r, 1) & " ", " ")
DL(r, 1) = Tam(0) & " " & Tam(1)
For c = 1 To Len(DL(r, 1))
For rw = 1 To UBound(XoaDau)
If Mid(DL(r, 1), c, 1) = XoaDau(rw, 1) Then
Mid(DL(r, 1), c, 1) = XoaDau(rw, 2)
End If
Next rw
Next c
Tam = Split(DL(r, 1), " ")
i = Len(Tam(0)): j = ""
For rw = 1 To UBound(MaVan)
If InStr(1, Tam(0), MaVan(rw, 1), 1) Then
If i > Len(Replace(Tam(0), MaVan(rw, 1), "")) Then
i = Len(Replace(Tam(0), MaVan(rw, 1), ""))
j = MaVan(rw, 2)
End If
End If
Next rw
Tam(0) = UCase(Left(Tam(0), i) & j)
i = Len(Tam(1))
For rw = 1 To UBound(MaVan)
If InStr(1, Tam(1), MaVan(rw, 1), 1) Then
If i > Len(Replace(Tam(1), MaVan(rw, 1), "")) Then
i = Len(Replace(Tam(1), MaVan(rw, 1), ""))
End If
End If
Next rw
Tam(1) = UCase(Left(Tam(1), i))
DL(r, 1) = Tam(0) & Tam(1)
Next r
Sheet2.Range("B2").End(xlDown).ClearContents
Sheet2.Range("B2").Resize(UBound(DL), 1).Value = DL
End Sub