Hỏi- Tạo nút nhấn để link đến các sheet (1 người xem)

[assyrian.pro]

Em có lập bảng tính excel và muốn tạo sheet đầu là trang chủ, sau đó ẩn các sheet rồi tạo các nút ấn để hiện các sheet lên.
Em đã đọc bài NÀY nhưng làm theo không được vì e cũng đang bắt đầu học VBA. nhưng việc này rất gấp ngày kia e phải nộp rồi.
Anh chị nào nói rõ hơn cho e được k ạ, chỉ các bước cụ thể một tí thì tốt ạ
Trong bài hướng dẫn trên e dùng excel 2010 k thấy cái phần Drawing Object để vẽ Button Em dùng Shapes vẽ thì kích chuột phải không có phầnFormat AutoShape,để chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text.


Em xin cảm ơn ak

 

[hung2412]

Em có lập bảng tính excel và muốn tạo sheet đầu là trang chủ, sau đó ẩn các sheet rồi tạo các nút ấn để hiện các sheet lên.
Em đã đọc bài NÀY nhưng làm theo không được vì e cũng đang bắt đầu học VBA. nhưng việc này rất gấp ngày kia e phải nộp rồi.
Anh chị nào nói rõ hơn cho e được k ạ, chỉ các bước cụ thể một tí thì tốt ạ
Trong bài hướng dẫn trên e dùng excel 2010 k thấy cái phần Drawing Object để vẽ Button Em dùng Shapes vẽ thì kích chuột phải không có phầnFormat AutoShape,để chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text.
View attachment 136007

Em xin cảm ơn ak

Bạn kích phải chuột vào khung mà bạn muốn link sang Sheet cần chọn => Edit Hyperlink => Kích trái chuột vào Place in This Document => Kích trái chuột vào tên Sheet mà bạn muốn link => OK.

 

[vanle33]

Em có lập bảng tính excel và muốn tạo sheet đầu là trang chủ, sau đó ẩn các sheet rồi tạo các nút ấn để hiện các sheet lên.
Em đã đọc bài NÀY nhưng làm theo không được vì e cũng đang bắt đầu học VBA. nhưng việc này rất gấp ngày kia e phải nộp rồi.
Anh chị nào nói rõ hơn cho e được k ạ, chỉ các bước cụ thể một tí thì tốt ạ
Trong bài hướng dẫn trên e dùng excel 2010 k thấy cái phần Drawing Object để vẽ Button Em dùng Shapes vẽ thì kích chuột phải không có phầnFormat AutoShape,để chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text.


Em xin cảm ơn ak

Trong excel 2010 để chèn Object bạn vào thẻ Insert/Shapes
Hãy đọc ở đây http://www.giaiphapexcel.com/forum/...hấn-để-link-đến-các-sheet&p=619020#post619020

 

[assyrian.pro]

Em làm như vậy thì được nhưng khi ẩn sheet thì nó k có tác dụng anh ak

 

[hung2412]

Em làm như vậy thì được nhưng khi ẩn sheet thì nó k có tác dụng anh ak

Bạn nên trả lời với trích dẫn => Để người khác biết là bạn đang nói với ai để mà người đó kết nối với bạn tiếp.
Cụ thể ở đây là bạn đang nói với ai nhỉ?

 

[assyrian.pro]

Bạn nên trả lời với trích dẫn => Để người khác biết là bạn đang nói với ai để mà người đó kết nối với bạn tiếp.Cụ thể ở đây là bạn đang nói với ai nhỉ?

lúc trưa e trích dẫn nhưng nó cứ lỗi a ak. e đang nói với a ak. e làm nhưng khi ẩn sheet nó k có tác dụng a ak. e muốn khi ấn vào nó tự ẩn các sheet khác luôn. a giúp e với

 

[ndu96081631]

lúc trưa e trích dẫn nhưng nó cứ lỗi a ak. e đang nói với a ak. e làm nhưng khi ẩn sheet nó k có tác dụng a ak. e muốn khi ấn vào nó tự ẩn các sheet khác luôn. a giúp e với

Chẳng phải bài này đã hướng dẫn chi tiết rồi sao:
http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet
Bài 1 bạn có nói:

Em đã đọc bài NÀY nhưng làm theo không được vì e cũng đang bắt đầu học VBA. nhưng việc này rất gấp ngày kia e phải nộp rồi.
Em dùng Shapes vẽ thì kích chuột phải không có phầnFormat AutoShape, để chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text.


Em xin cảm ơn ak

Bài đó hướng dẫn trên Excel 2003. Nếu dùng Excel 2010 thì cũng suy luận được chứ:
- Click phải vào shape, chọn Format Shape































- Trong cửa sổ Format Shape, chuyển xuống dưới cùng, chọn mục Alt Text ---> Nhìn sang bên phải, gõ tên sheet cần link vào khung Description

 

[hung2412]

lúc trưa e trích dẫn nhưng nó cứ lỗi a ak. e đang nói với a ak. e làm nhưng khi ẩn sheet nó k có tác dụng a ak. e muốn khi ấn vào nó tự ẩn các sheet khác luôn. a giúp e với

Nếu giả sử Sheet mà bạn muốn link đến (Nếu Sheet đó đang ẩn) tên là O san mot phuong => Bạn chạy Code:
[GPECODE=vb]Sub Link()
Sheets("O san mot phuong").Visible = Not Sheets("O san mot phuong").Visible
Sheets("O san mot phuong").Select
End Sub[/GPECODE]

 

[ndu96081631]

Nếu giả sử Sheet mà bạn muốn link đến (Kể cả bị ẩn) tên là O san mot phuong => Bạn chạy Code:
[GPECODE=vb]Sub Link()
Sheets("O san mot phuong").Visible = Not Sheets("O san mot phuong").Visible
Sheets("O san mot phuong").Select
End Sub[/GPECODE]

Code này tầm bậy tầm bạ nha! Sao bạn biết chắc ăn sheet O san mot phuong đang ẩn hay hiện? Nếu nó đang hiện thì sao?

 

[hung2412]

Code này tầm bậy tầm bạ nha! Sao bạn biết chắc ăn sheet O san mot phuong đang ẩn hay hiện? Nếu nó đang hiện thì sao?

Dạ, em sửa lại rồi ạ (Nếu Sheet đang ẩn).

 

[ndu96081631]

Dạ, em sửa lại rồi ạ (Nếu Sheet đang ẩn).

Ý bạn là chỗ này đúng không:

Nếu giả sử Sheet mà bạn muốn link đến (Nếu Sheet đó đang ẩn) tên là O san mot phuong =>

Không ăn thua đâu! Chúng ta đâu có biết "Sheet đó" đang ẩn hay hiện nên dù có "Nếu" thì cũng chẳng áp dụng được gì
Đã code thì phải tổng quát, nhất là viết cho người khác xài (đâu phải bạn xài)
Viết theo kiểu của bạn, ta có 2 cách:
1> Viết bừa:

- Bất kể sheet đó đang ẩn hay hiện ta cũng cứ cho nó hiện tuốt ---> Worksheets("...").Visible = -1
- Tiếp theo là Select thoải mái
​

2> Viết kỹ:

- Kiểm tra trước thuộc tính Visible của sheet (vào 1 biến tạm nào đó)
- Nếu sheet chưa hiện thì cho hiện, không thì thôi
- Cuối cùng, khi nào cần trả thuộc tính Visible của sheet về như cũ thì sẽ dựa vào biến tạm ở trên để gán
​

 

[hung2412]

lúc trưa e trích dẫn nhưng nó cứ lỗi a ak. e đang nói với a ak. e làm nhưng khi ẩn sheet nó k có tác dụng a ak. e muốn khi ấn vào nó tự ẩn các sheet khác luôn. a giúp e với

Để chắc ăn, bạn bỏ Code ở #8 đi và thay bằng Code này (Kể cả Sheet ẩn hay không ẩn) đều link đến (Tên Sheet là O san mot phuong):
[GPECODE=vb]Sub Link()
If Sheets("O san mot phuong").Visible = True Then
Sheets("O san mot phuong").Visible = False
End If
If Sheets("O san mot phuong").Visible = False Then
Sheets("O san mot phuong").Visible = True
End If
Sheets("O san mot phuong").Select
End Sub[/GPECODE]

 

[assyrian.pro]

em làm được rồi nhưng khi tắt file mở lại nó lại k chạy được, và báo lỗi như thế này. em đã lưu trước khi tắt rồi ạ. các a xem giúp e với

 

[hung2412]

View attachment 136039
em làm được rồi nhưng khi tắt file mở lại nó lại k chạy được, và báo lỗi như thế này. em đã lưu trước khi tắt rồi ạ. các a xem giúp e với

Bạn Up File lên xem sao.

 

[Đình Phán]

View attachment 136039
em làm được rồi nhưng khi tắt file mở lại nó lại k chạy được, và báo lỗi như thế này. em đã lưu trước khi tắt rồi ạ. các a xem giúp e với

File của bạn chắc lưu dưới dạng *xlsx nên không SAVE được code.

 

[assyrian.pro]

File của bạn chắc lưu dưới dạng *xlsx nên không SAVE được code.

cảm ơn a. đúng là vậy ạ. hôm nay chỗ e mất điện cả ngày giờ mới lên xem được. cuối cùng bài của e cũng hoàn thành. cảm ơn các a trên forum nhiều ạ.