Nhờ Các Anh Chị Hỗ Trợ Chèn ảnh Vào Userform | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Nhờ các Anh chị hỗ trợ chèn ảnh vào userform (1 người xem)

• Thread starter Thread starter sakura1010
• Ngày gửi Ngày gửi 28/11/19

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) S

sakura1010

Thành viên mới

Tham gia 4/4/09 Bài viết 32 Được thích 2 Em lên mạng tìm kiếm có file này phù hợp với nhu cầu công việc. Nên em nhờ các thầy, anh chị hỗ trợ viết giúp file phần chèn ảnh vào userform. Cảm ơn đã hỗ trợ.

File đính kèm

• chen anh.rar chen anh.rar 529.2 KB · Đọc: 26

Sắp xếp theo thời gian sắp xếp theo bầu chọn

be_09

Biên Hòa, Đồng Nai

Tham gia 9/4/11 Bài viết 9,972 Được thích 9,884 Nghề nghiệp Công chức

sakura1010 đã viết: Em lên mạng tìm kiếm có file này phù hợp với nhu cầu công việc. Nên em nhờ các thầy, anh chị hỗ trợ viết giúp file phần chèn ảnh vào userform. Cảm ơn đã hỗ trợ. Nhấp chuột vào đây để mở rộng...

Góp ý cho bạn: 1/ Tốt nhất là bạn nên thiết kế Form theo tiêu đề thực tế cần rồi đưa lên nhờ mọi người giúp, làm chi phức tạp quá, code cũng nhiều rà cũng mệt. 2/ Theo tôi thì bạn chỉ cần làm đơn giản như thế này. Lần chỉnh sửa cuối: 29/11/19 Upvote 0 B

batman1

Thành viên gạo cội

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819

sakura1010 đã viết: Em lên mạng tìm kiếm có file này phù hợp với nhu cầu công việc. Nên em nhờ các thầy, anh chị hỗ trợ viết giúp file phần chèn ảnh vào userform. Cảm ơn đã hỗ trợ. Nhấp chuột vào đây để mở rộng...

Code chỉ có nhiêu thôi Mã: Sao chép. Me.Image1.Picture = LoadPicture(<đường dẫ tới tập tin ảnh>) Trong đó <đường dẫ tới tập tin ảnh> là đường dẫn đầy đủ tới tập tin ảnh trên đĩa. Bạn không mô tả là sẽ lấy tên tập tin từ đâu nên chỉ đoán mò thôi. Nếu tên, chỉ tên thôi, bạn nhập vào vd. TextBox1 (575 chẳng hạn) thì code là Mã: Sao chép. Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Me.TextBox1.Text & ".jpg") ------------ Code load ảnh bạn đã có trong tập tin. Hãy xem code tôi trích từ tập tin

Private Sub Cmdbutton2_Click() Dim pName As Range imagepath = ThisWorkbook.Path & "\" With Cells(activeRow, 1) Me.TextBox1.Text = Cells(activeRow, 1).Value Set pName = .Find(Me.TextBox1.Text) With pName On Error Resume Next Me.Image1.Picture = LoadPicture(imagepath & "jpg") Me.Image1.Picture = LoadPicture(imagepath & Me.TextBox1.Text & ".jpg") End With End With If ListBox1.ListIndex = ListBox1.ListCount - 1 Then MsgBox "Last Record", vbCritical, "" Exit Sub Else On Error Resume Next TextBox15 = TextBox15 + 1 With Me.ListBox1 .ListIndex = .ListIndex + 1 End With End If End Sub Nhấp chuột vào đây để mở rộng...

Upvote 0 S

sakura1010

Thành viên mới

Tham gia 4/4/09 Bài viết 32 Được thích 2

be09 đã viết: Góp ý cho bạn: 1/ Tốt nhất là bạn nên thiết kế Form theo tiêu đề thực tế cần rồi đưa lên nhờ mọi người giúp, làm chi phức tạp quá, code cũng nhiều rà cũng mệt. 2/ Theo tôi thì bạn chỉ cần làm đơn giản như thế này. View attachment 229190 Nhấp chuột vào đây để mở rộng...

Em cảm ơn anh đã góp ý, nhưng nhiều lúc thông tin em cần tìm lại nhiều nên userform hơi phức tạp nhiều. Bài đã được tự động gộp: 29/11/19

batman1 đã viết: Code chỉ có nhiêu thôi Mã: Sao chép. Me.Image1.Picture = LoadPicture(<đường dẫ tới tập tin ảnh>) Trong đó <đường dẫ tới tập tin ảnh> là đường dẫn đầy đủ tới tập tin ảnh trên đĩa. Bạn không mô tả là sẽ lấy tên tập tin từ đâu nên chỉ đoán mò thôi. Nếu tên, chỉ tên thôi, bạn nhập vào vd. TextBox1 (575 chẳng hạn) thì code là Mã: Sao chép. Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Me.TextBox1.Text & ".jpg") ------------ Code load ảnh bạn đã có trong tập tin. Hãy xem code tôi trích từ tập tin Nhấp chuột vào đây để mở rộng...

Em có làm load picture nhưng kiểm tra lại không load được ảnh như mong muốn. Nên nhờ các anh chị hỗ trợ giúp. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 88 Đọc 3K 30 phút trước SA_DQ H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự (1 người xem)

• • 

• hotboykute
• 22/2/26
• Những vấn đề chung

Trả lời 15 Đọc 406 Hôm nay lúc 10:09 yeudoi Giúp kết nối từ Excel VBA đến Oracle database. (2 người xem)

• MinhKhai
• Hôm qua, lúc 17:08
• Cơ sở dữ liệu

Trả lời 2 Đọc 82 Hôm nay lúc 09:35 Nguyễn Duy Tuân

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 639 Đọc 95K Hôm nay lúc 09:03 sát thủ uyên ương S File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 24 Đọc 6K Hôm qua, lúc 22:38 doredore1988 D

• Question Question

Trình điều khiển Web tải hóa đơn điện tử từ trang Misa (actapp.misa.vn/app)

• • 
  • 

• HeSanbi
• 26/2/26
• Lập Trình với Excel

Trả lời 2 Đọc 257 Hôm qua, lúc 17:10 HeSanbi File kiểm đếm phiếu bầu cử 2026-2031 dễ hiểu có kết quả và biên bản (7 người xem)

• • 

• katanvn
• Hôm qua, lúc 13:46
• Excel Ứng Dụng

Trả lời 0 Đọc 415 Hôm qua, lúc 13:46 katanvn Gửi tặng file excel kiểm phiếu bầu cử Đại biểu Quốc hội và Hội đồng nhân dân các cấp (4 người xem)

• • 
  • 

• adua29
• 19/5/11
• Ứng dụng cho lĩnh vực khác

Trả lời 25 Đọc 29K Hôm qua, lúc 13:27 NamCT9x N T Chương trình kiểm phiếu bầu cử QH và HĐND các cấp (1 người xem)

• • 
  • 

• thanhtratt
• 5/5/21
• Ứng dụng cho lĩnh vực khác

Trả lời 6 Đọc 2K Hôm qua, lúc 11:54 PhanTuHuong C

• Question Question

Tự động điền thông tin từ danh sách vào template, nhờ anh chị trợ giúp

• chienminhanh
• Thứ ba lúc 22:19
• Lập Trình với Excel

Trả lời 0 Đọc 72 Thứ ba lúc 22:19 chienminhanh C

• Question Question

Lấy tỷ giá ngân hàng về file Excel bằng Power Query

• Cá ngừ F1
• 13/8/21
• PowerQuery

Trả lời 11 Đọc 3K Thứ ba lúc 21:35 ptm0412 SodokuX nhờ Copilot trợ giúp

• SA_DQ
• Thứ ba lúc 14:14
• Chơi Game với Excel

Trả lời 0 Đọc 73 Thứ ba lúc 14:14 SA_DQ TaxCode v4.37 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat (5 người xem)

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 21 Đọc 4K Thứ ba lúc 14:05 HeSanbi

• Dán lên cao

Phần mềm quản lý kho chuyên nghiệp BS Silver (4 người xem)

• Nguyễn Duy Tuân
• 1/10/12
• BLUESOFTS: A-Excel, A-Tools

2 Trả lời 131 Đọc 46K Thứ ba lúc 08:54 Nguyễn Duy Tuân Sản phẩm từ Python với sự giúp đỡ của Copilot (1 người xem)

• • 
  • 

• Maika8008
• 25/2/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 22 Đọc 640 Thứ hai lúc 13:57 SA_DQ T Xin đoạn code để gửi mail hàng loạt có đính kèm file PDF

• tuquyen1711
• Chủ nhật lúc 22:26
• Macro4.0 và Dialog Sheet 5.0

Trả lời 1 Đọc 137 Thứ hai lúc 09:25 Thóc Sama Năm mới cháu chúc mừng các bác và toàn thể gia đình GPE

• • 
  • 

• hongphuong1997
• Chủ nhật lúc 17:18
• Gặp gỡ Offline

Trả lời 2 Đọc 132 Thứ hai lúc 09:23 Thóc Sama H Xin A/C Giúp Tách địa chỉ ra Tỉnh , Huyện, Xã, Ấp (1 người xem)

• hoanghanh80
• 31/5/24
• Hàm và công thức Excel

Trả lời 10 Đọc 2K Thứ bảy lúc 22:26 dong.nguyen.hdkt D Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn (2 người xem)

• phuongnam366377
• Thứ bảy lúc 15:27
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 110 Thứ bảy lúc 15:27 phuongnam366377

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 79 Đọc 31K Thứ bảy lúc 12:17 HeSanbi Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• adua29 3
• SA_DQ 3
• Maika8008 2
• HeSanbi 2
• doredore1988 2
• C. Hoa 1
• BinhTrong2019 1
• ThuyMay93 1
• Tuanba1992 1
• fdxfdcfd 1
• tuquyen1711 1
• Thóc Sama 1
• ptm0412 1
• chienminhanh 1
• PhanTuHuong 1
• NamCT9x 1
• katanvn 1
• ongke0711 1
• MinhKhai 1
• yeudoi 1

Thành viên có điểm tương tác cao nhất tháng

• Maika8008 3
• adua29 2
• yeudoi 2
• SA_DQ 2
• ThuyMay93 1
• ptm0412 1
• katanvn 1
• doredore1988 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom