VBA tra cứu hình theo điều kiện

[son0611excel]

Em chào anh chị ạ, em tìm mãi trên mạng mà không có công thức hay hàm vừa í em, nhờ anh chị giúp em VBA hay macro của file này với ạ:

Em có 2 sheet Thông tin và Kỹ năng, khi nhập số 1 2 3 4 bên sheet thông tin thì nó sẽ trả về hình 1 2 3 4 tương ứng bên sheet kỹ năng, và khi thay đổi số thì nó tự động nhảy hình.

Em cảm ơn anh chị đã giúp đỡ.

 

[HUONGHCKT]

Em chào anh chị ạ, em tìm mãi trên mạng mà không có công thức hay hàm vừa í em, nhờ anh chị giúp em VBA hay macro của file này với ạ:

Em có 2 sheet Thông tin và Kỹ năng, khi nhập số 1 2 3 4 bên sheet thông tin thì nó sẽ trả về hình 1 2 3 4 tương ứng bên sheet kỹ năng, và khi thay đổi số thì nó tự động nhảy hình.

Em cảm ơn anh chị đã giúp đỡ.

Trong khi chờ các giải pháp khác hãy thử tham khảo file sau.

 

[son0611excel]

Trong khi chờ các giải pháp khác hãy thử tham khảo file sau.

E chào anh ạ, sao em mở file không được ạ.

 

[Hoàng Tuấn 868]

Chịu khó dịch dòng đậm đậm thứ 2 trên bảng thông báo xem sao.

 

[HUONGHCKT]

E chào anh ạ, sao em mở file không được ạ.View attachment 300685

Tôi thì hay làm thế này:
Mở file nên, bấm vào thẻ Devoloper/ bấm vào Macro Security(như hình 1)
sau đó 1 bảng hiện lên và bấm vào các nút tick như hình 2

 

[BuiQuangThuan]

Trong khi chờ các giải pháp khác hãy thử tham khảo file sau.

Có cách nào xóa shape cũ trước khi paste shape mới vào không chú. Lỡ tay nhấn 10 lần 1 số trong 1 ô thì lại phát sinh nhiều shape lồng lên nhau quá
Khuyên chủ thớt nên thử nghĩ cách khác chẳng hạn thêm 2 ô 2 cột trong mỗi số để code bôi màu nếu số thay đổi hơn

 

[HUONGHCKT]

Có cách nào xóa shape cũ trước khi paste shape mới vào không chú. Lỡ tay nhấn 10 lần 1 số trong 1 ô thì lại phát sinh nhiều shape lồng lên nhau quá
Khuyên chủ thớt nên thử nghĩ cách khác chẳng hạn thêm 2 ô 2 cột trong mỗi số để code bôi màu nếu số thay đổi hơn

Cảm ơn bạn đã phát hiện ra vấn đề còn thiếu của bài này. Đúng là tôi đã sót.
Có lẽ chỉ cần chọn ô Target.offfset(0,1) và delete shape cũ đi trước khi dán shape mới vào là được.
Code đầy đủ của bài này thế này. Rất mong bạn cho ý kiến góp ý:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim t, d&, c&
 Dim shp As Object
Application.ScreenUpdating = False
  If Not Intersect(Target, Range("C3:C100,E3:E100,G3:G100,I3:I100")) Is Nothing Then
    If Target.Count = 1 Then
      If Target.Value <> Empty Then
        t = Target.Value: d = Target.Row: c = Target.Column + 1
            ActiveSheet.Cells(d, c).ClearContents
            Sheets("Ky Nang").Activate
        For Each shp In Worksheets("Ky Nang").Shapes
            If shp.Name Like t Then
                shp.Copy
                Exit For
            End If
        Next
            Sheets("Thông tin").Activate
            ActiveSheet.Cells(d, c).Select
            ActiveSheet.Paste
      End If
    End If
  End If
Application.ScreenUpdating = True
End Sub

Xin đính chính lại

 

[hoangtuaotrang_hp_vn]

Cảm ơn bạn đã phát hiện ra vấn đề còn thiếu của bài này. Đúng là tôi đã sót.
Có lẽ chỉ cần chọn ô Target.offfset(0,1) và delete shape cũ đi trước khi dán shape mới vào là được.
Code đầy đủ của bài này thế này. Rất mong bạn cho ý kiến góp ý:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim t, d&, c&
 Dim shp As Object
Application.ScreenUpdating = False
  If Not Intersect(Target, Range("C3:C100,E3:E100,G3:G100,I3:I100")) Is Nothing Then
    If Target.Count = 1 Then
      If Target.Value <> Empty Then
        t = Target.Value: d = Target.Row: c = Target.Column + 1
            ActiveSheet.Cells(d, c).ClearContents
            Sheets("Ky Nang").Activate
        For Each shp In Worksheets("Ky Nang").Shapes
            If shp.Name Like t Then
                shp.Copy
                Exit For
            End If
        Next
            Sheets("Thông tin").Activate
            ActiveSheet.Cells(d, c).Select
            ActiveSheet.Paste
      End If
    End If
  End If
Application.ScreenUpdating = True
End Sub

Xin đính chính lại

Em test thử thấy nó vẫn đè shape mới lên shape cũ nếu mình gõ lại số mới, mà nó không xóa shape cũ đi anh à

 

[BuiQuangThuan]

Rất mong bạn cho ý kiến góp ý:

Code sau chú nên bẫy lỗi trường hợp target nhập vào không phải 1,2,3,4. Vui vụi nhập khác 4 số ấy là lại có vấn đề + vẫn bị lỗi nhập số không phải 4 số kia thì lại ra hình không chuẩn + bài 8 đang báo

 

[dangvandang]

Em chào anh chị ạ, em tìm mãi trên mạng mà không có công thức hay hàm vừa í em, nhờ anh chị giúp em VBA hay macro của file này với ạ:

Em có 2 sheet Thông tin và Kỹ năng, khi nhập số 1 2 3 4 bên sheet thông tin thì nó sẽ trả về hình 1 2 3 4 tương ứng bên sheet kỹ năng, và khi thay đổi số thì nó tự động nhảy hình.

Em cảm ơn anh chị đã giúp đỡ.


View attachment 300680 View attachment 300681

Bạn dùng file này xem thử nhé.

 

[tle2003]

Bạn dùng file này xem thử nhé.

Cám ơn bạn nhé.
Xin hỏi nhờ, nếu muốn xóa dữ liệu ( đã ghi vào rồi) , thì phải làm sao

 

[tle2003]

Tôi có hướng suy nghĩ khác, bạn có thể tham khảo thêm cho vui nhé.
File Rar (Ky nang.rar) đính kèm gồm có :
1. File excel "Ky nang"- (Tôi lấy sheet ky nang ra ngoài)
2. Tạo 4 file jpg (1,2,3 và 4) để cùng folder với file excel ở . file hình phải jpg nhé (không được chỉ đổi )
3. Áp dụng : Tại cột C, E, G và H, bạn gõ bất kỹ số nào nếu có file hình cùng sô thì nó sẽ hiện ra ở ô bên cạnh ( ở đây bạn chỉ dùng 4 hình)-Đã căng hình khít ô của .
Nếu kỹ năng thay đổi, bạn chỉ cần đổi số thì nó đổi hình. Dí nhiên bạn xóa số thì nó xóa hình.
Tương lại nếu bạn tạo thêm hình số 5 là Tốt nghiệp chứng chỉ - Ngôi sao vàng chẳng hạn. Thì bạn chỉ gõ số 5 ...

 

[dangvandang]

Cám ơn bạn nhé.
Xin hỏi nhờ, nếu muốn xóa dữ liệu ( đã ghi vào rồi) , thì phải làm sao

Bạn muốn xoá dữ liệu text hay hình ảnh trong ô. Trong code trên mình đã có sẵn cho 2 loại này rồi

 

[ongke0711]

Em có 2 sheet Thông tin và Kỹ năng, khi nhập số 1 2 3 4 bên sheet thông tin thì nó sẽ trả về hình 1 2 3 4 tương ứng bên sheet kỹ năng, và khi thay đổi số thì nó tự động nhảy hình.

Có một cách khác là không cần dùng file ảnh gì cả chỉ có điều nó không được định dạng thành 4 ô vuông đẹp như hình thôi.
- Không cần dùng file ảnh.
- Không bị nhấp nháy màn hình, hiển thị nhanh. (File của bạn @tle2003 không bị giật màn hình)

 

[son0611excel]

Em cảm ơn các anh rất nhiều ạ, em đã dựa vào file của các anh gửi và tìm được hướng đi, cảm ơn các anh đã giúp đỡ em

 

[bjboyn00b]

Có một cách khác là không cần dùng file ảnh gì cả chỉ có điều nó không được định dạng thành 4 ô vuông đẹp như hình thôi.
- Không cần dùng file ảnh.
- Không bị nhấp nháy màn hình, hiển thị nhanh. (File của bạn @tle2003 không bị giật màn hình)

View attachment 300709

Có font chữ nào như này không bác nhỉ?

 

[ongke0711]

Có font chữ nào như này không bác nhỉ?

Haha..bạn hay thật. Font Marlett đó