Chào mọi người em đang cần giúp đỡ về sự kiện click chuột vào các đối tượng shapes trên excel bằng vba

[thekid0610]

Chào mọi người
em đang cần giúp đỡ về sự kiện click chuột vào các đối tượng shapes trên excel bằng vba
Em đang có shapes tự động tạo từ 1 đến n bằng VBA. em muốn hỏi là:
1. Có thể tạo chương trình con tự động từ 1 đến n được không để gắn chương trình vào từng shapes
2. Có thể kiểm tra shapes nào đang được click để thực hiện event được không ạ.
em cám ơn

 

[befaint]

Thay vì nêu ý tưởng của mình như trên thì bạn nêu yêu cầu cuối cùng cần làm gì xem nào.

(Tức là nêu bài toán trước khi xuất hiện ý tưởng tạo shapes, ý tưởng tạo chương trình gì đó, ý tượng bắt sự kiện gì đó).

 

[huuthang_bd]

Chào mọi người
em đang cần giúp đỡ về sự kiện click chuột vào các đối tượng shapes trên excel bằng vba
Em đang có shapes tự động tạo từ 1 đến n bằng VBA. em muốn hỏi là:
1. Có thể tạo chương trình con tự động từ 1 đến n được không để gắn chương trình vào từng shapes
2. Có thể kiểm tra shapes nào đang được click để thực hiện event được không ạ.
em cám ơn

Cơ bản là vầy nha bạn.

Sub AddShapes()
Dim i As Long
For i = 1 To 10
    With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10 + 50 * (i - 1), 100, 40)
        .OnAction = "Shape_Click"
    End With
Next
End Sub
Sub Shape_Click()
MsgBox Application.Caller
End Sub

 

[thekid0610]

Cơ bản là vầy nha bạn.

Sub AddShapes()
Dim i As Long
For i = 1 To 10
    With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10 + 50 * (i - 1), 100, 40)
        .OnAction = "Shape_Click"
    End With
Next
End Sub
Sub Shape_Click()
MsgBox Application.Caller
End Sub

cám ơn bác đúng ý em cần

thanks bác nhiều. đúng ý em rồi ạ