Không thể đổi tên code VBA Link2SH (1 người xem)

[toantinhte87]

Mình tìm cách tạo một nút ẩn sheet và tìm được cái này trên diễn đàn.
Ai cho em hỏi mình đổi tên Link2Sh() thì nó không chạy được. Vì mình muốn thêm một số câu lệnh nên phải đổi tên cho nút bấm riêng từng nút ở các sheet.

Sub Link2Sh()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
End Sub

 

[quocphuoc88]

Có thể trên file của bạn nó có 1 cái shapes có tên là "Link2Sh" . Khi chạy code nó sẽ gọi cái shapes này ra. Nhưng giờ bạn đổi tên code nó sẽ không tìm được cái shapes có tên mới này nên nó sẽ không chạy được !

 

[chuot0106]

Mình tìm cách tạo một nút ẩn sheet và tìm được cái này trên diễn đàn.
Ai cho em hỏi mình đổi tên Link2Sh() thì nó không chạy được. Vì mình muốn thêm một số câu lệnh nên phải đổi tên cho nút bấm riêng từng nút ở các sheet.

Sub Link2Sh()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
End Sub

Mình nghĩ là File chứa code này có chứa "shapes", nhìn câu lệnh này là biết mà:
"With Sheets(.Shapes(Application.Caller).AlternativeText)"
Nếu bạn copy code này vào File của bạn mà không có Shapes nó sẽ báo lỗi thôi. Chứ không phải tại bạn đổi tên đâu.

 

[toantinhte87]

Thế ai giúp mình viết lại cái code khác với chức năng tương tự nhưng không chứa cái Shappes gì đó ko? Cảm ơn ý kiến của hai bạn

 

[chuot0106]

Thế ai giúp mình viết lại cái code khác với chức năng tương tự nhưng không chứa cái Shappes gì đó ko? Cảm ơn ý kiến của hai bạn

Bạn tham khảo ở linhk sau nhé!
http://www.giaiphapexcel.com/forum/showthread.php?52202-Code-làm-ẩn-hoặc-hiện-sheet