Cách nhận hình theo điều kiện cho trước (1 người xem)

[mayxanh0301]

Hiện tại em có 1 file có hình và các điều kiện để nhận kết quả
Các dữ liệu và thông tin có trong file
Nhờ mọi người xem qua
Chúc cả nhà GPE 1 ngày vui vẻ!

 

[sealand]

Đổi tên tất cả các hình thành "H_1","H_2",...."H_n" rồi dùng code sau

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Shr As Object
If Target.Address = "$F$1" Then
For Each Shr In Sheet1.Shapes
With Shr
.Top = [B2].Top
.Left = [B2].Top
.Visible = .Name = "H_" & Target.Value
End With
Next
End If

End Sub