Button trên thanh Control Toolbox và Hyperlink

[anhtuan1066]

Cho tôi hỏi: Có cách nào tạo Hyperlink cho Button thuộc thanh Control Toolbox ko?
Ý tôi muốn rằng sẽ từ Button này tạo ra 2 link khác nhau dựa vào sự thay đổi của Caption (như Soibien và Bắp đã nói lần trước)
Ai biết chỉ giùm với
ANH TUẤN

 

[BNTT]

Nếu là em, em sẽ làm 2 button nằm đè lên nhau, rồi dùng thuộc tính Visible để xử nó, nghĩa là tùy thuộc vào một "sự cố" gì đó (chẳng hạn sự thay đổi của Caption mà bác nói) mà cho nó ẩn hoặc hiện (hễ có cái này hiện thì cái kia biến), cái nào đang hiện lên thì sẽ chạy Hyperlink của cái đó (dĩ nhiên là khi nó được hiện lên mình mới thấy Caption của nó).

 

[anhtuan1066]

Ý tôi muốn hỏi là có thế Add Hyperlink vào Button này ko thôi.. còn chuyện tạo 1 link hay 2 link thì hảy tính sau... Vì hiện tại tôi ko biết cách nào đưa link vào Button cả...
BNTT giúp giùm 1 tay với!
ANH TUẤN

 

[anhtuan1066]

Tôi tìm mãi cũng ra dc cách tạo Hyperlink cho Button, đoạn code nó như sau:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:="www...."
End Sub

Thế nhưng đây là link tới 1 trang web... còn chỉnh lại đễ link vào 1 sheet khác trong file thì bó tay... Sao thế nhỉ? Chẳng lẽ ko có cách?
ANH TUẤN

 

[voda]

Link vào 1 sheet, có phải là mở sheet đó ra phải không? Nếu vậy thì dùng câu lệnh để kích hoạt sheet đó thay vì dùng link.

 

[anhtuan1066]

Cách đó thì tôi có biết... và còn phát hiện ra 1 chuyện đối với Button thuộc Control Toolbox này nữa, đó là nếu là add Hyperlink theo cách bình thường thì dc (nghĩa là ko dùng VBA)... Lúc đó nút nhấn sẽ hoạt động khi dc đặt trong chế độ Design Mode, nếu Exit chế độ này thì nó toi.. Lạ thật!
Ngoài cách mà Voda vừa nói ko có cách nào khác theo đúng nghĩa Hyperlink sao?
ANH TUẤN

 

[BNTT]

Giả sử bác muốn link tới Sheet2, còn cái button của bác nằm ở Sheet khác, thì cần gì Hyperlink cho dài dòng bác, cũng cái code của bác ở #4, nhưng bác sửa thành:

Private Sub CommandButton1_Click()

Sheet2.Select
​

End Sub

là xong ngay í mà.
Với lại làm gì có chuyện thoát khỏi Design mode thì cái button không hoạt động hở bác?

 

[anhtuan1066]

Với lại làm gì có chuyện thoát khỏi Design mode thì cái button không hoạt động hở bác?

He.. he.. Có đó, bác thử kỹ lại đi... Ý tôi nói rằng nếu add Hyperlink cho Button này theo cách thông thường (KO DÙNG VBA) thì nó chỉ hoạt động ở chế độ Design Mode, thoát khỏi chế độ này là nó tịt luôn... Tôi vừa mới phát hiện vụ này tối hôm qua! Bác ko tin uh?
ANH TUẤN

 

[BNTT]

Àh... cũng vui đấy. Bác nói đúng rồi. Nhưng mà tại em chẳng bao giờ add một cái hyperlink vào button cả, em toàn dùng code cho nó thôi.

 

[anhtuan1066]

Tùy thôi chứ... Nếu ta chỉ dùng Hyperlink đơn giản là đễ link tới 1 sheet nào đó thì cần gì code cho nó phí.. trừ phi kết hợp thêm các món khác!

 

[BNTT]

Nếu nói như bác thì cũng chả cần tới cái button làm gì, đặt ngay trong cell cho rồi.

 

[anhtuan1066]

Tôi cũng nghĩ vậy, nhưng cũng có người thích khác hơn mình... Họ bắt buột ta dùng Button và link, bác nghĩ sao? Phải làm theo yêu cầu khách hàng chứ