ttung_1191
Thành viên mới
- Tham gia
- 23/5/15
- Bài viết
- 3
- Được thích
- 0
Dear cả nhà!
Chắc cả nhà đọc cũng không lạ gì topic em ghi ở trên nhỉ? Nhưng em tìm trên forum không thấy có bài viết hoặc file chưa của em. Bên công ty em có 1 file excel nó có 2 sheet 1 là dữ liệu, 2 là in. Tất nhiên là sheet in đánh số vào nó sẽ vlookup sang sheet dữ liệu để lấy thông tin như là tên, mã nhân viên, bộ phận...
Điều quan trọng là cái ảnh nó sẽ tìm trong thư mục được setup link sẵn theo mã nhân viên, có nghĩa là ảnh mình đặt tên là mã nhân viên, sau đó nó chèn tự động với kích cỡ và vị trí cố định không thể thay đổi.
File gốc thiết kế không đẹp nhưng do không thể di chuyển ảnh lên em không sửa chữa được. Phần VBA đặt pass nên em đã chỉnh mã HEX rồi. Các bác mở file thì chắc em cũng không phải nói nhiều về cách mở
Em không hiểu lắm về VBA lên không hiểu được cách tạo ra file như vậy. Mong cả nhà giúp đỡ cho em và cả nhà hiểu được nguyên lý và cách tạo file, cũng như thêm một form em nghĩ là làm thẻ nhân viên rất tiện và nhanh.
Phần có VBA đây nhé cả nhà:
File đính kèm là file em lấy ở công ty, các bác mở ra là sẽ hiểu nhé, mỗi e gà không hiểu.
Chắc cả nhà đọc cũng không lạ gì topic em ghi ở trên nhỉ? Nhưng em tìm trên forum không thấy có bài viết hoặc file chưa của em. Bên công ty em có 1 file excel nó có 2 sheet 1 là dữ liệu, 2 là in. Tất nhiên là sheet in đánh số vào nó sẽ vlookup sang sheet dữ liệu để lấy thông tin như là tên, mã nhân viên, bộ phận...
Điều quan trọng là cái ảnh nó sẽ tìm trong thư mục được setup link sẵn theo mã nhân viên, có nghĩa là ảnh mình đặt tên là mã nhân viên, sau đó nó chèn tự động với kích cỡ và vị trí cố định không thể thay đổi.
File gốc thiết kế không đẹp nhưng do không thể di chuyển ảnh lên em không sửa chữa được. Phần VBA đặt pass nên em đã chỉnh mã HEX rồi. Các bác mở file thì chắc em cũng không phải nói nhiều về cách mở
Em không hiểu lắm về VBA lên không hiểu được cách tạo ra file như vậy. Mong cả nhà giúp đỡ cho em và cả nhà hiểu được nguyên lý và cách tạo file, cũng như thêm một form em nghĩ là làm thẻ nhân viên rất tiện và nhanh.
Phần có VBA đây nhé cả nhà:
Mã:
Private Sub TextBox1_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox1.Value + ".jpg"
Image1.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox2_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox2.Value + ".jpg"
Image2.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox3_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox3.Value + ".jpg"
Image3.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox4_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox4.Value + ".jpg"
Image4.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox5_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox5.Value + ".jpg"
Image5.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox6_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox6.Value + ".jpg"
Image6.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox7_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox7.Value + ".jpg"
Image7.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox8_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox8.Value + ".jpg"
Image8.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox9_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox9.Value + ".jpg"
Image9.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End Sub
Private Sub TextBox10_Change()
Dim a As String
On Error GoTo er
a = "d:\in_the_nv\De_lieu_anh\" + TextBox10.Value + ".jpg"
Image10.Picture = LoadPicture(a)
Exit Sub
er:
MsgBox "khong Co Hinh"
End SubFile đính kèm là file em lấy ở công ty, các bác mở ra là sẽ hiểu nhé, mỗi e gà không hiểu.
