Code tự động cho nhãn button (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

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:
PHP:
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:
PHP:
Private Sub Workbook_Open()
    Sheet1.Shapes("Button 1").Select
    Selection.Characters.Text = [A1]
End Sub
 

File đính kèm

Upvote 0
Cảm ơn nhiều, đúng là cái mình đg cần. Chúc sức khỏe.
 
Upvote 0
Nếu sử dụng CommandButton của thanh Form thì bạn sử dụng code sau:
PHP:
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:
PHP:
Sheet1.Shapes("Button 1").TextFrame.Characters.Text = [A1]
 
Upvote 0
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 đượcUntitled.jpg
 
Upvote 0
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)
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom