Trang 1/2 1 2 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 15

Ðề tài: Hiển thị hình ảnh trong excel

  1. 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. #2
    thế này hợp ý bạn chưa?
    Tập tin đính kèm Tập tin đính kèm
    Không có giới hạn về kiến thức mà chỉ có giới hạn về nhận thức mà thôi
    Tra cứu hàm Excel |
    Tiện ích in hàng loạt biểu mẫu| Excel Chat|Addin công thức hóa học

  3. Trích Nguyên văn bởi dhn46 View Post
    thế này hợp ý bạn chưa?
    Code của bạn thế này:
    PHP Code:
    Dim anh As String
    Private Sub Worksheet_Change(ByVal Target As Range)
      
    Set rng Application.Intersect(Target, [d4])
      
    anh = [d4]
      If 
    Not Target Is Nothing Then
        Me
    .Image1.Picture LoadPicture(ThisWorkbook.Path "\" & anh & ".jpg")
      End If
    End Sub 
    Nó không sai nhưng mà... THỪA đến mức không cần thiết
    Tôi thì sẽ viết vầy:
    PHP Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If 
    Target.Address "$D$4" Then
        Sheet1
    .Image1.Picture LoadPicture(ThisWorkbook.Path "\" & Target & ".jpg")
      End If
    End Sub 

  4. #4

    Sao chưa chạy được vậy thầy

    Em chưa hiểu về nó, mong thầy chỉ giúp tiếp em, cảm ơn

  5. Trích Nguyên văn bởi ngodany135 View Post
    Em chưa hiểu về nó, mong thầy chỉ giúp tiếp em, cảm ơn
    Sai 3 chổ:
    Thứ nhất If Target.Address = "$b$2" then là sai! Không phải muốn tùy tiện viết b thường hay hoa gì cũng được! Phải sửa thành vầy If Target.Address = "$B$2" then
    Thứ hai: ng.Image1.Picture là sai ---> Đúng thì phải vầy Sheets("ng").Image1.Picture hoặc Sheet1.Image1.Picture
    Thứ ba: Trên bảng tính của bạn chẳng có cái Image1 nào cả ---> Phải vẽ ra chứ
    Tập tin đính kèm Tập tin đính kèm

  6. #6
    Em cảm ơn thày NDU đã chỉ bảo thật hay. Code ngắn gọn mà hiệu quả.
    Cho e xin phép dựa vào code của thày trả lời bạn ngodany135
    code của bạn
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address = "$b$2" Then
        ng.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Target & ".jpg")
      End If
    End Sub
    Có 3 chỗ sai
    1 - không có Image1 trong sheet1
    2 - (ng...) Cái này là tên sheet trong phần name chứ không phải ng
    3 - $b$2 phải là $B$2 vì e làm mãi mà target.address = $B$2
    Hy vọng e nói sai ít thôi..hihi
    Có gì mong các thầy chỉ giáo tiếp
    Không có giới hạn về kiến thức mà chỉ có giới hạn về nhận thức mà thôi
    Tra cứu hàm Excel |
    Tiện ích in hàng loạt biểu mẫu| Excel Chat|Addin công thức hóa học

  7. #7
    hic e up bài muộn rồi
    Không có giới hạn về kiến thức mà chỉ có giới hạn về nhận thức mà thôi
    Tra cứu hàm Excel |
    Tiện ích in hàng loạt biểu mẫu| Excel Chat|Addin công thức hóa học

  8. #8
    Cái Thứ ba: Trên bảng tính của bạn chẳng có cái Image1 nào cả ---> Phải vẽ ra chứ.
    ------------
    Hướng dẫn em vẽ cái màu đỏ trên dùm. Cảm ơn

  9. #9
    bạn vào menu view > toolbar > visualbasic
    Nó sẽ hiện ra cái tool của visual basic > chọn IMAGE rồi vẽ như vẽ hình draw vậy
    phải chuột vào nó chọn Property > Name > dánh IMAGE1. ok
    Không có giới hạn về kiến thức mà chỉ có giới hạn về nhận thức mà thôi
    Tra cứu hàm Excel |
    Tiện ích in hàng loạt biểu mẫu| Excel Chat|Addin công thức hóa học

  10. 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

Trang 1/2 1 2 cuốicuối

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.
  •