Giúp chèn ảnh tự động vào exel 2007

[tueyennhi]

Giúp nâng cao trong chèn ảnh tự động vào exel 2007

Em gửi data lên mong anh chị làm mẫu giúp cho em, vì em không biết gì về excel cả, làm theo anh chị hướng dẫn mà không được. Em đầu đất quá . Em muốn ảnh tự động chèn vào cell chứ làm thủ công thì bao giờ cho xong hơn 2000 người (. Cho em hỏi luôn có cách nào fix được kích thước ảnh vào chuẩn theo cell luôn không ạ? Mong anh chị chỉ giúp em. Cảm ơn mọi người nhiều lắm !

 

[ndu96081631]

Em gửi data lên mong anh chị làm mẫu giúp cho em, vì em không biết gì về excel cả, làm theo anh chị hướng dẫn mà không được. Em đầu đất quá . Em muốn ảnh tự động chèn vào cell chứ làm thủ công thì bao giờ cho xong hơn 2000 người (. Cho em hỏi luôn có cách nào fix được kích thước ảnh vào chuẩn theo cell luôn không ạ? Mong anh chị chỉ giúp em. Cảm ơn mọi người nhiều lắm !

Đừng nói là KHÔNG BIẾT EXCEL, ngay cả làm việc lâu với Excel rồi nhưng chưa biết lập trình VBA cũng không làm được
Tuy nhiên, bạn có thể tham khảo topic này:
http://www.giaiphapexcel.com/forum/showthread.php?51408-Chèn-hình-vào-cell-bằng-hàm-tự-tạo
May mắn (nếu bạn chịu vọc) thì làm được, còn không thì.. thôi

 

[PhanTuHuong]

Muốn tay không bắt giặc đây bác ndu

 

[tueyennhi]

Không được ((..................

 

[Quang_Hải]

Em gửi data lên mong anh chị làm mẫu giúp cho em, vì em không biết gì về excel cả, làm theo anh chị hướng dẫn mà không được. Em đầu đất quá . Em muốn ảnh tự động chèn vào cell chứ làm thủ công thì bao giờ cho xong hơn 2000 người (. Cho em hỏi luôn có cách nào fix được kích thước ảnh vào chuẩn theo cell luôn không ạ? Mong anh chị chỉ giúp em. Cảm ơn mọi người nhiều lắm !

Bạn nghiên cứu cái này xem sao. Tải file về, giải nén ra trước mới chạy code.

 

[tueyennhi]

Đừng nói là KHÔNG BIẾT EXCEL, ngay cả làm việc lâu với Excel rồi nhưng chưa biết lập trình VBA cũng không làm được
Tuy nhiên, bạn có thể tham khảo topic này:
http://www.giaiphapexcel.com/forum/showthread.php?51408-Chèn-hình-vào-cell-bằng-hàm-tự-tạo
May mắn (nếu bạn chịu vọc) thì làm được, còn không thì.. thôi

Em làm theo cách của em nhưng Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống bảng tính báo #NAME?.
(Em đang dùng office 2007 đã chuyển lưu file sang xls nhưng không được)

 

[tueyennhi]

Bạn nghiên cứu cái này xem sao. Tải file về, giải nén ra trước mới chạy code.

Đã làm theo cách của anh nhưng lỗi vẫn như trên. Em làm theo module trong file anh và làm:
- Gõ công thức này vào cell B3:
PHP Code:
=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)


- Từ cell A5 trở xuống, gõ tên các file hình
- Tại cell B5, gõ công thức =$B$3&A5 và kéo fill xuống
- Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống
Và kết quả ở C5 là #NAME?. Mong anh chỉ giúp.

 

[tueyennhi]

Đã làm theo cách của anh nhưng lỗi vẫn như trên. Em làm theo module trong file anh và làm:
- Gõ công thức này vào cell B3:
PHP Code:
=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)


- Từ cell A5 trở xuống, gõ tên các file hình
- Tại cell B5, gõ công thức =$B$3&A5 và kéo fill xuống
- Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống
Và kết quả ở C5 là #NAME?. Mong anh chỉ giúp.

À mà cho em hỏi chạy code là sao? Em tưởng cứ chỉ cần làm như hướng dẫn là được, (lập module ghi code sau đó viết hàm) sẽ ra ảnh???

 

[tueyennhi]

Đã làm theo file chenhinh của anh và ảnh đã hiện, module thì em biết chỗ insert nhưng còn cái Chèn hình là ở đâu hả anh? CHo em hỏi luôn làm nào để ảnh tự fix chuẩn theo kích thước cell hả anh?

 

[thnghiachau]

Không được ((..................

bạn biết được gì về Excel??? mà bạn lạ la làng lên chỉ 2 chữ "Không được" ???????

 

[ndu96081631]

Em làm theo cách của em nhưng Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống bảng tính báo #NAME?.
(Em đang dùng office 2007 đã chuyển lưu file sang xls nhưng không được)

Chán bạn quá! Làm sẵn công thức cho bạn tại cell E5 rồi đấy, chỉ việc kéo fill xuống là được
Lưu ý:
- Phải giải nén file đính kèm của tôi ra rồi mở file Excel thì code mới chạy được (chạy trực tiếp từ file RAR sẽ không thấy hình)
- Muốn xóa hình thì xóa dữ liệu cột C (đừng xóa hàm ở cột E)
- Khi thay đổi chiều rộng cột, độ cao dòng, nếu hình bị lệch, hãy bấm F9 để chỉnh lại size hình vừa vặn với cell

 

[thnghiachau]

À mà cho em hỏi chạy code là sao? Em tưởng cứ chỉ cần làm như hướng dẫn là được, (lập module ghi code sau đó viết hàm) sẽ ra ảnh???

mình làm cho bạn theo 2 cách.
bạn coi file đính kèm và nghiên cứu để hiều nó là như thế nào rùi hãy comment lại nha!

 

[thnghiachau]

Chán bạn quá! Làm sẵn công thức cho bạn tại cell E5 rồi đấy, chỉ việc kéo fill xuống là được
Lưu ý:
- Phải giải nén file đính kèm của tôi ra rồi mở file Excel thì code mới chạy được (chạy trực tiếp từ file RAR sẽ không thấy hình)
- Muốn xóa hình thì xóa dữ liệu cột C (đừng xóa hàm ở cột E)
- Khi thay đổi chiều rộng cột, độ cao dòng, nếu hình bị lệch, hãy bấm F9 để chỉnh lại size hình vừa vặn với cell

ôi... học được bài này của thầy NDU hay quá!
Cám ơn thầy nhiều lắm.

 

[tueyennhi]

Em đã làm được chỉ còn không tự fix ảnh theo kích thước cell. Vì ảnh của em kích thước không đều mà ảnh nó cứ nối tiếp nhau làm cho ảnh bị tịnh tiến từ cell này chồi dần lên cell kia. Anh chị có giải pháp giúp em giúp cho chót với

 

[tueyennhi]

bạn biết được gì về Excel??? mà bạn lạ la làng lên chỉ 2 chữ "Không được" ???????

Hi hi em chi biết đánh văn bản chứ còn hàm đơn giản cũng chưa biết qua, tạm thời mò được cái chèn ảnh rồi nhưng ảnh nó không tự fix chuẩn vào từng ô mà cứ nối đuôi nhau tịnh tiến dần làm ảnh nọ chèn dần lên cả cell kia

 

[tueyennhi]

ôi... học được bài này của thầy NDU hay quá!
Cám ơn thầy nhiều lắm.

Anh là giảng viên ạ? Em thắc mắc cái bấm F9 không thấy hoạt động được thầy ơi, và nếu sau khi F9 được thì ảnh có vừa vặn cell luôn không ạ?

 

[ndu96081631]

ôi... học được bài này của thầy NDU hay quá!
Cám ơn thầy nhiều lắm.

Thì cũng gần giống cách của bạn thôi
Code của bạn cũng tạm ổn, nhưng có mấy vấn đề:
1> Set curWks = Worksheets("ThongTin_NhanSu") ---> Sao bạn biết chắc rằng tên sheet sẽ là "ThongTin_NhanSu"? ---> Không tổng quát
2> Về vấn đề đường dẫn đến file hình, bạn có đoạn:

myPicPath = ThisWorkbook.Path
If (Right(myPicPath, 1) <> "\") Then myPicPath = myPicPath & "\"
myPictName = myPicPath & MSNV & ".JPG"

Sao bạn biết chắc rằng mấy tấm hình người ta để chung folder với file Excel? ---> Không tổng quát
3> Bạn dùng hàm Dir: Dir(CStr(myPictName)): Sẽ không hoạt động với đường dẫn là tiếng Việt có dấu. Nên dùng Scripting.FileSystemObject
4> Code trên, nếu chạy trên version từ 2007 trở lên thì hình sẽ bị lệch. Phải có đoạn LockAspectRatio = msoFalse để điều chỉnh vụ này
vân vân....

 

[thnghiachau]

Anh là giảng viên ạ? Em thắc mắc cái bấm F9 không thấy hoạt động được thầy ơi, và nếu sau khi F9 được thì ảnh có vừa vặn cell luôn không ạ?

Không phải, mình chỉ là KS điện thôi ah...

 

[tueyennhi]

Thì cũng gần giống cách của bạn thôi
Code của bạn cũng tạm ổn, nhưng có mấy vấn đề:
1> Set curWks = Worksheets("ThongTin_NhanSu") ---> Sao bạn biết chắc rằng tên sheet sẽ là "ThongTin_NhanSu"? ---> Không tổng quát
2> Về vấn đề đường dẫn đến file hình, bạn có đoạn:

Đoạn: [COLOR=#000000] [/COLOR][B]LockAspectRatio = msoFalse  ấy ghi vào module là được hả thầy? hay thế nào mong thầy chỉ giúp em ![/B]
myPicPath = ThisWorkbook.Path
If (Right(myPicPath, 1) <> "\") Then myPicPath = myPicPath & "\"
myPictName = myPicPath & MSNV & ".JPG"

Sao bạn biết chắc rằng mấy tấm hình người ta để chung folder với file Excel? ---> Không tổng quát
3> Bạn dùng hàm Dir: Dir(CStr(myPictName)): Sẽ không hoạt động với đường dẫn là tiếng Việt có dấu. Nên dùng Scripting.FileSystemObject
4> Code trên, nếu chạy trên version từ 2007 trở lên thì hình sẽ bị lệch. Phải có đoạn LockAspectRatio = msoFalse để điều chỉnh vụ này
vân vân....

Đoạn LockAspectRatio = msoFalse ấy ghi ở trong module hả anh?

 

[thnghiachau]

Thì cũng gần giống cách của bạn thôi
Code của bạn cũng tạm ổn, nhưng có mấy vấn đề:
1> Set curWks = Worksheets("ThongTin_NhanSu") ---> Sao bạn biết chắc rằng tên sheet sẽ là "ThongTin_NhanSu"? ---> Không tổng quát
2> Về vấn đề đường dẫn đến file hình, bạn có đoạn:

myPicPath = ThisWorkbook.Path
If (Right(myPicPath, 1) <> "\") Then myPicPath = myPicPath & "\"
myPictName = myPicPath & MSNV & ".JPG"

Sao bạn biết chắc rằng mấy tấm hình người ta để chung folder với file Excel? ---> Không tổng quát
3> Bạn dùng hàm Dir: Dir(CStr(myPictName)): Sẽ không hoạt động với đường dẫn là tiếng Việt có dấu. Nên dùng Scripting.FileSystemObject
4> Code trên, nếu chạy trên version từ 2007 trở lên thì hình sẽ bị lệch. Phải có đoạn LockAspectRatio = msoFalse để điều chỉnh vụ này
vân vân....

Dạ cám ơn thầy nhiều. Em sẽ nghiên cứu lại mấy vấn đề thầy chỉ dẫn. Vì rất thích VBA nên em tự mài mò làm và nghiên cứu dựa trên những bài viết của các thầy trên GPE này.