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
  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. #2
    Tham gia ngày
    03 2011
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    2,129
    Cảm ơn
    1,535
    Được cảm ơn 2,477 lần trong 1,554 bài viết
    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. #3
    Tham gia ngày
    06 2008
    Bài gởi
    23,678
    Cảm ơn
    13,588
    Được cảm ơn 42,167 lần trong 19,096 bài viết
    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. Có 3 thành viên cảm ơn ndu96081631 về bài viết này:


  5. #4
    Tham gia ngày
    12 2010
    Nơi Cư Ngụ
    Quê Hương Bác Tôn
    Bài gởi
    345
    Cảm ơn
    1,714
    Được cảm ơn 507 lần trong 245 bài viết

    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

  6. #5
    Tham gia ngày
    06 2008
    Bài gởi
    23,678
    Cảm ơn
    13,588
    Được cảm ơn 42,167 lần trong 19,096 bài viết
    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

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


  8. #6
    Tham gia ngày
    03 2011
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    2,129
    Cảm ơn
    1,535
    Được cảm ơn 2,477 lần trong 1,554 bài viết
    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

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


  10. #7
    Tham gia ngày
    03 2011
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    2,129
    Cảm ơn
    1,535
    Được cảm ơn 2,477 lần trong 1,554 bài viết
    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

  11. #8
    Tham gia ngày
    12 2010
    Nơi Cư Ngụ
    Quê Hương Bác Tôn
    Bài gởi
    345
    Cảm ơn
    1,714
    Được cảm ơn 507 lần trong 245 bài viết
    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

  12. #9
    Tham gia ngày
    03 2011
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    2,129
    Cảm ơn
    1,535
    Được cảm ơn 2,477 lần trong 1,554 bài viết
    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

  13. Thành viên sau cảm ơn dhn46 về bài viết này:


  14. #10
    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
    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.
  •  

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)]