Đưa hình vào Excel?

Tùng ơi! Làm sao đưa 1 hình vào 1 cell trong Excel. Thí dụ thầy lập danh sách theo bảng, mỗi hàng là 1 người có tên, địa chỉ … và kèm theo hình.

VD:

TT	Họ và tên	Ngày sinh	…	Ảnh
1	Huỳnh Văn Vy	30-11-1953	…	?

Em xin trả lời thay anh Tùng.
Để chèn hình vào 1 ô trên Excel thì Thầy làm theo các bước sau nhé:
* Bước 1:




* Bước 2:


* Bước 3:


* Bước 4:


* Bước 5:



* Bước 6:


* Bước 7:


* Bước 8:


* Kết quả:


Chúc thầy thành công!

Em đang làm bài hướng dẫn theo như ýThầy nói, chừng nào xong em sẽ đưa lên Thầy tham khảo...

Em xin chào Thầy! Hôm nay em tiếp tục phần chèn hình như yêu cầu của Thầy.
Yêu cầu là chèn hình vào excel tự động theo đường dẫn, chuyện này mặc định trong excel không có nên chúng ta phải tạo thêm hàm cho nó. Các hàm này em tham khảo trên mạng và em đã làm sẵn 1 file excel DSLOP.xls đính kèm bên dưới, Thầy tải về và chỉnh sửa theo ý của mình.
Chú ý:
- File excel (ở đây là DSLop.xls) phải nằm cùng thư mục với các file hình ảnh.
- Tên file hình ở đây phải đặt tên như sau: ví dụ tên Trần Hữu Đạt thì đặt tên hình là: tranhuudat.jpg, Nguyễn Thị Mơ thì đặt tên hình là: nguyenthimo.jpg.
- Trong bài này em sử dụng mã chữ Unicode, font chữ là: Arial.
- Bấm phím F9 để cập nhật lại hình ảnh trong ô.
Thực hiện:
- Trong ô cần chèn hình ảnh Thầy Viết công thức như sau:
CommPic(LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)&SUBSTITUTE(LoaiDauUni(B2)," ","")&".jpg",E2)
Công thức này chèn hình ảnh vào ô dựa vào phần Họ và Tên trong bảng danh sách mà nó tìm hình ảnh tương ứng. VD: Họ và Tên là Nguyễn Văn A thì nó tìm được hình NguyenVanA.jpg.
- LoaiDauUni(): hàm loại bỏ dấu tiếng Việt theo mã Unicode, nếu sử dụng mã chữ là VNI thì thay hàm LoaiDauUni() thành hàm LoaiDauVni(). VD: LoaiDauUni("Nguyễn Văn A") cho kết quả là: Nguyen Van A.
- SUBSTITUTE(): Hàm xóa khoảng trắng trong chuỗi. VD: SUBSTITUTE("Nguyen Van A"," ","") cho kết quả là: NguyenVanA.
- SUBSTITUTE(LoaiDauUni(Trần văn A)," ","")&".jpg" cho kết quả là: Tranvana.jpg
- .......SUBSTITUTE(LoaiDauUni(B2)," ","")&".jpg",E2): trong đó B2 là ô chứa Họ và Tên, E2 là ô cần hiển thị hình ảnh.
Tải file DSLop.xls:http://www.mediafire.com/?x0ppf1xvznaqzfj
Một số hình ảnh:







Trong quá trình thực hiện có gặp vấn đề gì thì thầy viết lên đây em sẽ giải quyết.

- Thầy đã tải file của em rồi.
- Thầy làm thử nhưng chưa được có thể không có code.
- File của em khi nhấp trái chuột vào hình thì không thấy công thức. Nhấp thêm lần nữa thì có dấu nháy chuột ở đó. Nhấp tiếp thì không thấy gì, nhấp vào cell khác thì cell khi nảy có chữ #name? Nhấp trở lại thì thấy công thức nhưng hình thì mất tiêu. Khi đưa chuột vào cell #name? thì thấy hình bên cạnh, không làm sao đưa hình trở lại.
- Thầy copy 1 hình của em paste vào folder danh sach của em rồi đặt tên là aaa. Mở file DSlop, cell A7 ghi a a a rồi copy cell E1 và paste vào E7 nhưng cũng chỉ thấy hình thầy?
- Thầy đang nghiên cứu tiếp.

Thầy vào menu Tools --> Macro --> Security --> Một cửa sổ hiện lên --> thầy click chuột chọn vào mục Low --> đóng chương trình excel và mở lại thử xem.
Còn về phần copy: trong file em gởi cho thầy, ô chứa hình của thầy là cell E2 chứ không phải là E1 (số 1 đó là STT em đánh vào) cho nên khi thầy copy công thức đó xuống cell E8 (không phải E7) thì phải sửa lại như sau:
Công thức cell E2:
CommPic(LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)&SUBSTITUTE(LoaiDauUni(B2)," ","")&".jpg",E2)

Công thức cell E8:
CommPic(LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)&SUBSTITUTE(LoaiDauUni(B8)," ","")&".jpg",E8)

Thầy chú ý đoạn này:
- SUBSTITUTE(LoaiDauUni(B8), B8 là ô chứa Họ và Tên (theo ví dụ của Thầy là a a a)
- E8 cuối dòng của công thức trên là ô chứa hình. ô mà thầy đang gõ công thức này vào đấy.
Thầy có thể copy công thức theo cách này: click trái chuột vào ô chứa hình cuối cùng rồi click chuột ra ô khác sau đó click chuột vào lại ô chứa hình cuối cùng đó (lúc này trong ô này không có hiển thị hình và không có dấu nháy) thầy nhìn vào góc phải phía dưới ô đó có dầu tròn, thầy click chuột vào dấu tròn đó vào kéo xuống ô phía dưới, sau đó bấm phím F9 để hiển thị hình ảnh trong ô chứa hình.

Cám ơn em nhiều, thầy đã thực hiện được rồi. Chung qui là do chỉnh security thấp là xong. Em có nhận mail thầy gởi cho em? Nếu có thầy sẽ gởi cho em 1 file xem thử, thầy lấy trong trang web “giải pháp excel”. Trong đó cũng có nhiều cái hay nhưng chưa hiểu, khi nào rảnh thầy sẽ hỏi em thêm.

Em có nhận được mail của thầy, thầy có gửi 2 file excel
- file excel của em thầy có thêm a a a và ô hình có hiển thị được hình ảnh của file hình là aaa.jpg --> công thức thầy copy vậy là đúng rồi.
- file excel của thầy nó không hiển thị hình được nó chỉ hiện chữ #NAME? vì nó không hiểu được 2 hàm CommPic() và LoaiDauUni(), hai hàm này là hàm tự tạo bản thân excel không có mình phải add vào.
Phần add code vào excel em sẽ hướng dẫn ở bài sau. Trong file excel của em đã add code vào rồi, thầy chỉ xóa nội dung trong đó và làm lại bảng danh sách thôi.

Thôi ba cái code khó học lắm, thầy cũng thấy nó trong file excel của em rồi. Thầy gởi em 1 file thầy tải được để em nghiên cứu, nó cũng có code nhưng khác của em.
Riêng bài của em lại trục trặc nữa rồi : Khi đổi tên có khi không có hình (nếu đánh không dấu thì bảo đảm có hình), nếu copy tên paste vào đó thì lại có hình. Em thử lại xem, nếu cần thì thầy sẽ gởi phần lỗi cho em. Mến.

1. Bảng danh sách nầy đang thảo luận, nếu xong thầy và Tuyết sẽ làm và gởi lên.
2. Thầy đã làm 1 danh sách dạng table dựa vào danh sách của Biền và danh sách các bạn ghi hôm 2/9 (thầy chụp lại) và đưa lên nhưng không được (hình như là quá dài)

Gửi Thầy!
Em có xem file excel Thầy gửi em để tham khảo, em thấy làm như vậy rất tiện lợi, ít code, cách thức hoạt động của nó rất phù hợp với gợi ý lúc đầu của Thầy. File này chỉ làm mẫu nên nó hạn chế chỉ có 11 người, nếu Thầy muốn xây dựng bảng danh sách dựa theo file excel này thì em sẽ cùng thực hiện với Thầy.

Gởi em file đã chỉnh sheet 1 thêm từ A3- A50 (chỉnh trong code). Chỉ có không làm sao chỉnh danh sách sổ xuống theo ý mình (Nó chỉ có 11). Thầy đã vào thử Data validation nhưng không chỉnh được, em nghiên cứu xem. Mến

Gởi Thầy!
Em đã chỉnh xong và đã gởi mail cho Thầy file excel mà Thầy gởi cho em.

Bàn việc thêm ảnh vào excel đã tạm ổn, khi cần thì liên hệ tiếp qua mail để tiện việc kèm file. Ai cần tìm hiểu thì liên hệ sau.
Mục nầy đến đây chấm dứt. BB.

Trời ơi! có cách làm hay vậy mà không chia sẻ cho mọi người với vậy!

Nếu em cần thì cứ trao đổi. Giữ làm gì kiến thức của nhân loại!
Em có thể liên hệ theo địa chỉ huynhvysp@gmail.com

thầy có thể cho em xin file excel để em tham khảo cái code được ko ah!...tại phần này trên mạng cũng hiếm có, tham khảo nhiều để biết làm.. cảm ơn thầy nhiều....!

Đây là file excel của thầy Vy:tải tại đây (file này chứa trên host ảo cài trên máy cá nhân tại nhà nên chỉ tải đc trong thời gian từ 07 giờ sáng đến 23 giờ)