Thứ Tư, 17 tháng 2, 2010

Làm thẻ mã vạch cho cán bộ trong Excel

Bạn đọc lưu ý:
+Không hỏi sự cố bằng nhắn tin
+Dạy các thủ thuật ngăn cản người dùng và xử lý các lỗi trên máy tính.Dạy làm File trợ giúp (Help.)

1-Tìm hiểu làm mã vạch bằng Excel.
Nếu bạn không có chương trình chuyên dụng để tạo mã vạch dùng làm thẻ cho học sinh, sinh viên hoặc cán bộ công chức bạn có thể dùng Excel để thực hiện công việc này, cách làm như sau:
Bước 1:Bổ sung phông chữ tạo mã vạch
+ Bạn sưu tầm trên mạng phông Free 3 of 9 Extended và Copy tập tin này vào thư mục Font của Windows tại ổ C.
Bước 2: Tiến hành thiết lập thẻ sinh viên trong Excel.
+Khởi động chương trình Excel XP.
+Tại Sheet1 bạn đổi tên là Tra tim.
+Bôi đen các cột và chọn Format\Columns\ Widt và chọn thông số là 2, bấm OK mục đích để tạo ra các cột có kích thước nhỏ.
+Tạo một tấm thẻ học sinh như hình dưới đây:


+Ô hiện ảnh có tọa độ là H10 và L16 chẳng hạn.
Bước 3: Tiến hành lập danh sách sinh viên trong Excel.
+Tại Sheet2 bạn đổi tên là Danh sach lop.
+Tạo một bảng tính gồm các yếu tố dưới đây:


Chú ý: Bạn bỏ cột A chỉ làm từ cột B.
+Bôi đen các ô từ Mã số đến cột H (Có giá trị đến) và kéo xuống hàng thứ 100 hay 1000 tùy ý của bạn.
+Nháy vào Insert chọn Name chọn tiếp Define gõ chữ A, bấm OK, như vậy ta đã đặt tên cho bảng danh sách này là bảng A.

Bước 4: Tiến hành lập hàm để gọi thông tin của sinh viên


+Ô có tọa độ AR14 là nơi mà bạn sẽ nhập mã sinh viên vào.
+Tại ô sẽ hiển thị họ và tên sinh viên bạn nhập vào hàm dưới đây:
=IF(ISNA(VLOOKUP($AR$14,A,2,0)),"Không có ai tên là:"&AR14,VLOOKUP($AR$14,A,2,0))
+Tại các ô khác bạn Copy công thức xuống và chỉ cần sửa thông số sau A, thí dụ:
-Tại ô Khoa tương ứng với cột 4 của bảng danh sách bạn sửa như sau:
=IF(ISNA(VLOOKUP($AR$14,A,4,0)),"Không có ai tên là:"&AR14,VLOOKUP($AR$14,A,4,0))
+Tại ô hiện mã vạch sau khi Copy công thức và gán mã vào bạn sẽ chỉ thấy hiện số mã của sinh viên chứ chưa ra mã vạch, bạn nháy vào ô hiện mã vạch chọn Font Free 3 of 9 Extended, mã vạch lập tức hiện ra.
Bước 5: Tiến hành lập hàm để gọi ảnh của sinh viên
+Bạn tạo một thư mục có tên là Anh, thư mục này sẽ chứa ảnh của sinh viên, mỗi ảnh sẽ được đặt tên theo mã số, thí dụ ảnh của tôi sẽ có tên là 094QTVB008.jpg
+Để gọi ảnh sinh viên khi nhập mã vào ô AR14 bạn thiết lập hàm như sau:
+Nháy vào Tools \ Macro \ Visual Basic Editor hoặc ấn ALT+F11
+Nhập đoạn mã dưới đây vào.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$AR$14" Then
Dim ExcelApp, p As Object
Dim pathApp, path1 As String
pathApp = ThisWorkbook.Path & "\Ma vach.xls"
Set ExcelApp = GetObject(pathApp)
Dim Wkb As New Excel.Workbook
Dim targetCell As Range, t As Double, l As Double, w As Double, h As Double, d As Double, r As Double
On Error Resume Next
Set p = ExcelApp.Sheets("Tra tim").Pictures(1)
p.Delete
Set p = ExcelApp.Sheets("Tra tim").Pictures(2)
p.Delete
path1 = Trim(ExcelApp.Sheets("Tra tim").Range("AR14"))
path1 = ExcelApp.Path & "\Anh\\" & path1 & ".jpg"
Set p = ExcelApp.Sheets("Tra tim").Pictures.Insert(path1) 'chen anh
Set targetCell = ExcelApp.Sheets("Tra tim").Range("H10")
With targetCell
t = .Top
l = .Left
End With
Set targetCell = Nothing
Set targetCell = ExcelApp.Sheets("Tra tim").Range("L16")
With targetCell
d = .Top + .Height
r = .Left + .Width
End With
With p
.Top = t
.Left = l
.Width = r - l
.Height = d - t
End With
End If
End Sub

Bước 6: Tiến hành lập hàm để bảo về công thức ở Sheet Tra tim
+Nháy vào Tools \ Macro \ Visual Basic Editor hoặc ấn ALT+F11
+Tìm tới mục ThisWorkbook và nháy đúp, chép đoạn mã dưới đây vào.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next rng
End Sub
+Ấn CTRL+S để ghi lại.
Nếu người nào cố tình xóa hàm tại Sheet Tra tim sẽ hiện ra cảnh báo.


Xin được chia sẻ cùng bạn đọc những kinh nghiệm nhỏ chương trình rất dễ sử dụng và chạy chính xác.
Chú ý: Nếu không hiện ảnh bạn phải kích hoạt Macro của Excel bằng cách nháy vào Tools chọn Macro, chọn tiếp mục Security, đánh dấu vào mục Low (not recommended), bấm OK.
Đóng Excel và mở lại, khi nhập mã xong ấn Enter bạn sẽ thấy ảnh của người nào sẽ hiện ra trùng khớp với mã số và mã vạch (Mã vạch tự động đổi theo mã số).

+Tác giả nhận dạy cài đặt các phần mềm trên máy tính.
+Dạy cách tạo File. ISO, cách tạo File Ghost để phục hồi máy tính.
+Dạy cài đặt Windows, cách tìm Driver cho máy tính, tạo Blog cá nhân

0 nhận xét:

Đăng nhận xét

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites