Click object trả ô về giá trị? (2 người xem)

[ndunghuong]

Nhờ các thầy giúp em viết macro với mục đích:
- Khi click chuột vào các hình (object) thì tại ô B10 trả về giá trị tương ứng ( ví dụ click hình 1 thì ô trả ô B10 về giá trị 1
Em gà về khoản này lắm mong mọi người chỉ giúp

 

[Hoàng Trọng Nghĩa]

Nhờ các thầy giúp em viết macro với mục đích:
- Khi click chuột vào các hình (object) thì tại ô B10 trả về giá trị tương ứng ( ví dụ click hình 1 thì ô trả ô B10 về giá trị 1
Em gà về khoản này lắm mong mọi người chỉ giúpView attachment 94246

Không biết dùng sự kiện nào để làm nữa! Chắc có lẽ dùng một nút lệnh để chạy thủ tục khi chọn vào một Picture nào đó thôi. Nhưng sẽ phải thực hiện 2 công đoạn, click chọn hình rồi bấm nút thôi.

 

[Hoàng Trọng Nghĩa]

Mới cải tiến "kỹ thuật" đây!!!

Bây giờ bạn sẽ có thủ tục:

[GPECODE=vb]Sub KiemTraTen()
On Error GoTo Loi
Dim TenHinh As String
TenHinh = Sheet1.Shapes(Application.Caller).Name
With Sheet1.Range("B10")
.Value = Val(Replace(TenHinh, "Picture ", ""))
Exit Sub
Loi:
.Value = ""
End With
End Sub

[/GPECODE]

Sau đó bạn gán macro cho từng hình mà bạn muốn click vào nó để nó hiển thị số là xong!