Giúp code hiện Text từ nút bấm sang 1 ô (2 người xem)

[congnguyen88]

Mình có vẽ ra 1 nút bấm bằng hình chử nhật ( Rectangle 1) có text là : Giải pháp excel mình muốn khi Click chuột vào nút bấm thì range("a1")=" Giải pháp excel" . Nghĩa là nút bấm có Text là gì thì range("a1")= text từ nút bấm

 

[Quang_Hải]

Mình có vẽ ra 1 nút bấm bằng hình chử nhật ( Rectangle 1) có text là : Giải pháp excel mình muốn khi Click chuột vào nút bấm thì range("a1")=" Giải pháp excel" . Nghĩa là nút bấm có Text là gì thì range("a1")= text từ nút bấm

Sub abc()
With Sheet1.Shapes("Rectangle 1").TextFrame2
   .TextRange = "AAA"
   [A1] = .TextRange
End With
End Sub

 

[ndu96081631]

Mình có vẽ ra 1 nút bấm bằng hình chử nhật ( Rectangle 1) có text là : Giải pháp excel mình muốn khi Click chuột vào nút bấm thì range("a1")=" Giải pháp excel" . Nghĩa là nút bấm có Text là gì thì range("a1")= text từ nút bấm

Click chuột vào nút bấm mà có động tác xử lý trên chính nút bấm ấy thì ta nghĩ ngay đến Application.Caller
Code như sau:

Sub Rectangle1_Click()
  Range("A1").Value = ActiveSheet.Shapes([B]Application.Caller[/B]).TextFrame.Characters.Text
End Sub

---------------------------------

Sub abc()
With Sheet1.Shapes("Rectangle 1").TextFrame2
   .TextRange = "AAA"
   [A1] = .TextRange
End With
End Sub

Ăn chắc code này không chạy được trên Excel 2003

 

[congnguyen88]

Click chuột vào nút bấm mà có động tác xử lý trên chính nút bấm ấy thì ta nghĩ ngay đến Application.Caller
Code như sau:

Sub Rectangle1_Click()
  Range("A1").Value = ActiveSheet.Shapes([B]Application.Caller[/B]).TextFrame.Characters.Text
End Sub

---------------------------------

Ăn chắc code này không chạy được trên Excel 2003

quá hay, quá giỏi, em làm được rồi, cảm ơn anh mũ en nờ lần hihi