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

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 New 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
Liên hệ QC

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

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. A_Form.GIF 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

SA_DQ Có thể tô màu tiêu đề bài viết để làm nổi bật giữa những tiêu đề các bài đăng khác được chăng?
    • Yêu thích
  • SA_DQ
  • Hôm nay lúc 04:27
  • Những góp ý với diễn đàn
Trả lời 1 Đọc 69 Hôm nay lúc 08:02 Hai Lúa Miền Tây Hai Lúa Miền Tây SA_DQ Copilot bình luận các ván cờ vua từng ngày.
    • Thích
  • SA_DQ
  • 3/11/25
  • Chia sẻ
Trả lời 67 Đọc 2K Hôm nay lúc 05:34 SA_DQ SA_DQ H Lọc giá trị duy nhất theo cụm
  • hoaiantrinh
  • Thứ ba lúc 14:58
  • Hàm và công thức Excel
Trả lời 7 Đọc 191 Hôm qua, lúc 22:43 87kilua 87kilua ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
5 6 7 Trả lời 624 Đọc 92K Hôm qua, lúc 18:19 tombongtep T N Tạo COM Add-In bằng Visual C++
    • Thích
  • nguyendang95
  • 6/7/25
  • Excel và các ngôn ngữ lập trình khác
Trả lời 18 Đọc 2K Thứ ba lúc 21:07 nguyendang95 N M Bảo mật code VBA autocad!
  • Michael Bit
  • Thứ hai lúc 08:44
  • Hỏi đáp những vấn đề khác
Trả lời 12 Đọc 306 Thứ ba lúc 19:17 Michael Bit M GPE-Trợ Lý
  • Dán lên cao
  • Suggestion Suggestion
CHÚC MỪNG NĂM MỚI BÍNH NGỌ 2026
    • Thích
    • Yêu thích
    • Cảm ơn
  • GPE-Trợ Lý
  • Thứ ba lúc 10:45
  • Bài viết nổi bật và thông báo
Trả lời 0 Đọc 128 Thứ ba lúc 10:45 GPE-Trợ Lý GPE-Trợ Lý L Thu Chi Gia Đình
    • Cười
  • lehang0812
  • 5/2/26
  • TPHCM
Trả lời 5 Đọc 255 Thứ ba lúc 10:19 nguoiconxunui N HeSanbi
  • Đã giải quyết
FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)
    • Thích
    • Yêu thích
  • HeSanbi
  • 18/4/21
  • Lập Trình với Excel
Trả lời 77 Đọc 30K Thứ hai lúc 19:00 chothadiem chothadiem HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026)
    • Thích
    • Yêu thích
    • Cảm ơn
  • HeSanbi
  • 5/3/21
  • Lập Trình với Excel
Trả lời 85 Đọc 18K Chủ nhật lúc 21:43 chothadiem chothadiem Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024) (1 người xem)
    • Thích
  • Nguyễn Duy Tuân
  • 13/9/24
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 62 Đọc 13K Thứ bảy lúc 18:10 Nguyễn Duy Tuân Nguyễn Duy Tuân E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc
  • Excel my love_1
  • 15/4/23
  • Tin học mở rộng
Trả lời 4 Đọc 4K Thứ sáu lúc 15:20 luongha.ktqd L Quang_Hải
  • Question Question
Chia sẻ một thuật toán đơn giản để trộn cells
    • Thích
    • Yêu thích
  • Quang_Hải
  • 4/2/26
  • Lập Trình với Excel
Trả lời 12 Đọc 407 5/2/26 Quang_Hải Quang_Hải HeSanbi TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat (1 người xem)
    • Thích
    • Yêu thích
  • HeSanbi
  • 27/11/25
  • Các Add-ins cho excel
Trả lời 19 Đọc 3K 5/2/26 HeSanbi HeSanbi HeSanbi
  • Question Question
Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó (1 người xem)
    • Thích
    • Yêu thích
  • HeSanbi
  • 2/2/26
  • Lập Trình với Excel
Trả lời 1 Đọc 270 4/2/26 HeSanbi HeSanbi TranThanhPhong Hàm EXACT
    • Thích
  • TranThanhPhong
  • 30/4/14
  • Dự án: Công thức & Hàm 97-2019
Trả lời 3 Đọc 9K 3/2/26 ptm0412 ptm0412 giaiphap Add-Ins cho Excel 2007 -2016 32bit và 64bit (1 người xem)
    • Thích
    • Yêu thích
    • Ngạc nhiên
  • giaiphap
  • 8/8/15
  • Các Add-ins cho excel
4 5 6 Trả lời 518 Đọc 226K 3/2/26 Gà Công Nghệ Gà Công Nghệ V Một Excel add-in vibe coding
    • Thích
  • vietdang170
  • 28/1/26
  • Các Add-ins cho excel
Trả lời 18 Đọc 777 3/2/26 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating
  • hoanglocphat
  • 2/2/26
  • Hỏi đáp những vấn đề khác
Trả lời 6 Đọc 234 3/2/26 Gà Con yêu VBA Gà Con yêu VBA mrjun80 Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số
  • mrjun80
  • 31/1/26
  • Hàm và công thức Excel
Trả lời 4 Đọc 229 1/2/26 Gà Con yêu VBA Gà Con yêu VBA 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

  • HeSanbi 14
  • chothadiem 11
  • Michael Bit 6
  • HieuCD 5
  • Gà Công Nghệ 5
  • YêuCN 4
  • Officexinh 4
  • vietdang170 4
  • pycckuu410 3
  • chiendich 3
  • DeTong 3
  • hoanglocphat 3
  • LOGANWover 2
  • VietHoangPhan 2
  • Gà Con yêu VBA 2
  • Quang_Hải 2
  • hoaiantrinh 2
  • vuvannguyen1972 1
  • ptm0412 1
  • Hai Lúa Miền Tây 1

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

  • HeSanbi 19
  • GPE-Trợ Lý 9
  • Quang_Hải 7
  • HieuCD 6
  • vietdang170 5
  • Gà Con yêu VBA 4
  • LOGANWover 3
  • pycckuu410 3
  • chiendich 3
  • DeTong 3
  • Phuocam 3
  • hungvinh1402 2
  • HUONGHCKT 2
  • YêuCN 2
  • Officexinh 2
  • 87kilua 2
  • SA_DQ 2
  • Hai Lúa Miền Tây 2
  • Michael Bit 1
  • nguyendang95 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

Từ khóa » Chèn ảnh Vào Userform Vba