Code tự động cho nhãn button

[khoahoc78]

Mình cần code để khi mở file nhãn của nút button là địa chỉ ô a1

 

[nghiaphuc]

Mình cần code để khi mở file nhãn của nút button là địa chỉ ô a1

Chẳng biết bạn muốn làm việc này để làm gì nhưng mà có thể sử dụng code như sau:

Private Sub Workbook_Open()
    Sheet1.CommandButton1.Caption = [A1]
End Sub

Lưu ý là đối tượng CommandButton của thanh Control Toolbox không cho phép sử dụng tiếng Việt Unicode đâu, do đó, bạn phải sử dụng Font khác (VNI-Windows... hoặc TCVN3) hoặc sử dụng đối tượng CommandButton của thanh Form thì mới hiển thị được tiếng Việt.
Nếu sử dụng CommandButton của thanh Form thì bạn sử dụng code sau:

Private Sub Workbook_Open()
    Sheet1.Shapes("Button 1").Select
    Selection.Characters.Text = [A1]
End Sub

 

[khoahoc78]

Cảm ơn nhiều, đúng là cái mình đg cần. Chúc sức khỏe.

 

[ndu96081631]

Nếu sử dụng CommandButton của thanh Form thì bạn sử dụng code sau:

Private Sub Workbook_Open()
    Sheet1.Shapes("Button 1").Select
    Selection.Characters.Text = [A1]
End Sub

Chẳng cần phải SELECT đâu bạn ơi!
Tôi viết vầy:

Sheet1.Shapes("Button 1").TextFrame.Characters.Text = [A1]

 

[trankyhoai]

Tôi làm button xong và test rất OK nhưng khi save và mở lại thì không sử dụng được button đó nữa. Như vậy phải save như thế nào để sử dụng được

 

[ndu96081631]

Tôi làm button xong và test rất OK nhưng khi save và mở lại thì không sử dụng được button đó nữa. Như vậy phải save như thế nào để sử dụng đượcView attachment 57231

Đó là vì muốn macro chạy trên Excel 2007 hoặc Excel 2010 thì bạn phải lưu dưới định dạng xlsm ----> Ngay khi bạn bấm nút Save file thì đã có cảnh báo. tại bạn không chịu đọc kỹ ráng chịu
Ngoài ra, để macro chạy đương nhiên phải Enable macro (đừng nói hổng biết vụ này nha)