GPE Phát hành sách: "Lập trình VBA trong Excel cho người mới bắt đầu - 2014" | "VBA trong Excel - Cải thiện và tăng tốc - 2013"
Trang 2/2 đầuđầu 1 2
Hiển thị kết quả tìm kiếm từ 11 đến 12 trên tổng số: 12
  1. #1
    Tham gia ngày
    12 2010
    Nơi Cư Ngụ
    Ancient city
    Bài gởi
    28
    Cảm ơn
    7
    Được cảm ơn 2 lần trong 2 bài viết

    Thumbs down Hiển thị hình ảnh trong excel

    chào các bạn, mình là một người dùng excel thích dùng các tính năng VBA nhưng không rành nhiều về lập trình, nên mình muốn nhờ mọi người giúp đỡ tôi một vấn đề như sau :
    mình muốn tại một ô, khi mình chọn MBA thì tại một khung kế bên sẽ hiện hình ảnh của Máy biến áp, chọn vào XA thì khung bên hiện hình ảnh xà, ...tương tự như vậy...
    mình đã làm như sau :
    Tại ô chứa các chữ viết tắt : MBA, XA,... mình dùng tính năng "Data Validation" để tạo các mục chọn,
    tiếp theo mình vẽ khung chứa hình ảnh bằng Image(activeXcontrol) trong mục Developer, excel07), rồi tiếp theo đó thì mình không biết làm thế nào nữa, hì hì...
    Mong những ai thấy vấn đề này đơn giản thì giúp đỡ cho
    cám ơn !
    email : nhatquyelec@gmail.com

  2. #11
    Tham gia ngày
    06 2008
    Bài gởi
    23,019
    Cảm ơn
    13,031
    Được cảm ơn 40,678 lần trong 18,527 bài viết
    Trích Nguyên văn bởi nhatquyelec View Post
    trước hết cám ơn mọi người đã quan tâm giúp đỡ, đặc biệt thành viên "ndu96081631", đã đáp ứng được yêu cầu
    Tuy nhiên cảm phiền bạn giải thích các mã mà bạn viết được không, mình mới tập về VBA nên muốn hiểu thêm tí về vài lệnh
    Cám ơn mọi người !
    Email : nhatquyelec@gmail.com
    Lệnh đơn giản thôi mà
    Private Sub Worksheet_Change(ByVal Target As Range) ---> Câu lệnh này có sẳn trong Excel (khỏi viết).

    Nhấp chuột vào hình để phóng to

Name:	untitled1.JPG
Views:	87
Size:	44.3 KB
ID:	66550


    Nhấp chuột vào hình để phóng to

Name:	untitled2.JPG
Views:	88
Size:	42.4 KB
ID:	66551


    Đoạn code này hoạt động khi ta gõ gì đó vào vùng quy định. Vùng quy định ở đây là Target.

    If Target.Address = "$D$4" Then ---> Nếu gõ gì đó vào 1 cell có địa chỉ là $D$4 thì...

    Sheet1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Target & ".jpg") ---> Object có tên là Image1 ở sheet1 sẽ được gán hình bằng lệnh LoadPicture("Đường dẫn chứa file hình"). Trong đó Thisworkbook.Path là đường dẫn thư mục chứa file Excel
    ----------------------
    Ngoài ra, để chèn hình ảnh vào Excel. cũng có cách khác khá hay, xem tại đây:
    http://www.giaiphapexcel.com/forum/s...àm-tự-tạo
    thay đổi nội dung bởi: ndu96081631, 13-07-11 lúc 02:38 PM

  3. Có 2 thành viên cảm ơn ndu96081631 về bài viết này:


  4. #12
    Tham gia ngày
    12 2010
    Nơi Cư Ngụ
    Ancient city
    Bài gởi
    28
    Cảm ơn
    7
    Được cảm ơn 2 lần trong 2 bài viết
    à con điều này nữa, vì số lượng ảnh đại diện về sau có thể lớn, nên mỗi bức ảnh đặt tên theo số sẽ tiện hơn là đặt tên cụ thể luôn, rồi sau đó mình vào file excel tạo một sheet mới gồm 2 cột, một cột ghi tên, một cột ghi mã số tương ứng vd : MBA(cộtA)->1(cộtB), MAYCAT(cộtA) ->2(cộtB),... sau đó qua bên sheet "ng" mà bạn đã tạo, tại cột A2 mình sẽ nhập tên thiết bị vào ( dùng Data Validation làm option chọn cho khoẻ ) , còn cột B2 mình dùng =VLOOKUP(A2,data!A1:b10,2,false).
    kết quả, khi chọn bên cột A2 thì cột B2 cũng nhảy số tương ứng ( để qua đó Image1 có thể tham chiếu vào), tuy nhiên lúc này khung Image không nhảy ảnh như ý nữa nó đứng yên à, sao vậy hè

Trang 2/2 đầuđầu 1 2

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]