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

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
anhtuan1066

anhtuan1066

Thành viên gạo cội
Tham gia
10/3/07
Bài viết
5,802
Được thích
6,912
Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module
PHP: 
Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub
2> Các bước chuẩn bị
- Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ
- Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object
- Click phải vào Button, chọn Add Text và gõ nhản tùy ý
- Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)

untitled1.JPG





























- Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh

untitled2.JPG






















- Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ
- Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này
--------------------------
Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả
(Xem file đính kèm)
--------------------------
Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object của thanh Control Toolbox
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Các bạn thử nghiên cứu bài toán tiếp theo xem: Tạo nút nhấn trên UserForm để link đến các sheet
Vấn đề ở đây là làm thế nào để không phải viết code cho từng CommandButton riêng lẻ. Hay nói khác hơn, có bao nhiêu CommandButton đi nữa thì cũng dùng 1 Sub duy nhất (giống như bài 1)
Bài này hay lắm nha.. vì có thể ứng dụng cho rất nhiều tình huống khác... Mục địch là rút gọn code
Gợi ý (thêm sự hiểu biết của tôi): Dùng Class Module
(Tôi sẽ tiếp tục trong bài viết tới đây)
-----------------------------------------
Hãy xem tiếp bài viết này để biết cách dùng Class Module: Dùng Class Module để tạo sự kiện người dùng
Bài viết ấy áp dụng cho các CommandButton trên sheet. Với CommandButton trên UserForm, các bạn tự nghiên cứu nhé (còn dễ hơn nữa đấy)
 
Lần chỉnh sửa cuối:
Upvote 0
anhtuan1066 đã viết:
Các bạn thử nghiên cứu bài toán tiếp theo xem: Tạo nút nhấn trên UserForm để link đến các sheet
Vấn đề ở đây là làm thế nào để không phải viết code cho từng CommandButton riêng lẻ. Hay nói khác hơn, có bao nhiêu CommandButton đi nữa thì cũng dùng 1 Sub duy nhất (giống như bài 1)
Bài này hay lắm nha.. vì có thể ứng dụng cho rất nhiều tình huống khác... Mục địch là rút gọn code
Gợi ý (thêm sự hiểu biết của tôi): Dùng Class Module
(Tôi sẽ tiếp tục trong bài viết tới đây)
-----------------------------------------
Hãy xem tiếp bài viết này để biết cách dùng Class Module: Dùng Class Module để tạo sự kiện người dùng
Bài viết ấy áp dụng cho các CommandButton trên sheet. Với CommandButton trên UserForm, các bạn tự nghiên cứu nhé (còn dễ hơn nữa đấy)
Nhấp chuột vào đây để mở rộng...
anhtuan ơi sao lâu quá không thấy anh trở lại bài này vậy, em cứ theo dõi hoài đề tài này mà không thấy anh. Em nhắc lại để anh nhớ.
 
Upvote 0
anhtotbung35 đã viết:
anhtuan ơi sao lâu quá không thấy anh trở lại bài này vậy, em cứ theo dõi hoài đề tài này mà không thấy anh. Em nhắc lại để anh nhớ.
Nhấp chuột vào đây để mở rộng...

Tôi chỉ đường link ở bài số 2 rồi còn gì. Đấy là bài tiếp theo về link dùng Class Module nhưng lại nằm ở 1 chuyên mục khác (khác về bản chất của code)
 
Upvote 0
Anh Tuấn ơi cho em hỏi chút:
Em đã làm theo cách anh bảo, em thấy rất hay, nhưng khi mình giấu hết, chỉ nhìn thấy trang chủ sheet "Trang Chủ" ấy, không nhìn thấy các sheet còn lại, vậy sau này em muốn nhìn thấy các sheet đó để tiện cho việc chỉnh sửa thì làm thế nào ạ???
 
Upvote 0
minhcong.tckt đã viết:
Anh Tuấn ơi cho em hỏi chút:
Em đã làm theo cách anh bảo, em thấy rất hay, nhưng khi mình giấu hết, chỉ nhìn thấy trang chủ sheet "Trang Chủ" ấy, không nhìn thấy các sheet còn lại, vậy sau này em muốn nhìn thấy các sheet đó để tiện cho việc chỉnh sửa thì làm thế nào ạ???
Nhấp chuột vào đây để mở rộng...
Bạn chọn Format\Sheet\Unhide và chọn Sheet --> OK.
Nếu cách trên không được (không nhìn thấy sheet hoặc không cho chọn Unhide) thì bạn nhấn Alt+F11, nhìn bên khung Project sẽ thấy danh sách các sheet. Bạn chọn sheet muốn hiện và thiết lập thuộc tính Visible (trong khung Properties) là -1 - xlSheetVisible là được.
 
Upvote 0
minhcong.tckt đã viết:
Anh Tuấn ơi cho em hỏi chút:
Em đã làm theo cách anh bảo, em thấy rất hay, nhưng khi mình giấu hết, chỉ nhìn thấy trang chủ sheet "Trang Chủ" ấy, không nhìn thấy các sheet còn lại, vậy sau này em muốn nhìn thấy các sheet đó để tiện cho việc chỉnh sửa thì làm thế nào ạ???
Nhấp chuột vào đây để mở rộng...
Muốn "thấy" sheet nào thì từ Trang Chủ, cứ bấm vào nút liên kết để đến sheet đó là "thấy" thôi. Có vấn đề gì đâu chứ?
Cho dù có hiện ra tất tần tật thì tại 1 thời điếm, bạn cũng chỉ "nhìn thấy" 1 sheet cơ mà
Còn nếu nhất định muốn SHOW thì làm hẳn 1 nút chuyên làm công việc SHOW ALL này (dễ quá mà)
 
Upvote 0
ndu96081631 đã viết:
Muốn "thấy" sheet nào thì từ Trang Chủ, cứ bấm vào nút liên kết để đến sheet đó là "thấy" thôi. Có vấn đề gì đâu chứ?
Cho dù có hiện ra tất tần tật thì tại 1 thời điếm, bạn cũng chỉ "nhìn thấy" 1 sheet cơ mà
Còn nếu nhất định muốn SHOW thì làm hẳn 1 nút chuyên làm công việc SHOW ALL này (dễ quá mà)
Nhấp chuột vào đây để mở rộng...

mong bác giúp đỡ cụ thể hơn được ko ạ, vì em vẫn chưa bít làm
 
Upvote 0
Upvote 0
minhcong.tckt đã viết:
mong bác giúp đỡ cụ thể hơn được ko ạ, vì em vẫn chưa bít làm
Nhấp chuột vào đây để mở rộng...
Viết thêm 1 đoạn code thế này:
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub
Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub
Nút có 2 tác dụng SHOW và HIDE
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Em có làm sheet Menu như bài đầu tiên, giờ anh chị cho em hỏi là:
sheet menu của em tự nhiên cũng ẩn đi mất, em ko nhìn thấy sheet này nữa (lúc mới vào file này vẫn nhìn thấy, rùi mất tăm luôn
Giúp em với
 
Upvote 0
minhcong.tckt đã viết:
Em có làm sheet Menu như bài đầu tiên, giờ anh chị cho em hỏi là:
sheet menu của em tự nhiên cũng ẩn đi mất, em ko nhìn thấy sheet này nữa (lúc mới vào file này vẫn nhìn thấy, rùi mất tăm luôn
Giúp em với
Nhấp chuột vào đây để mở rộng...
Nếu là đúng 100% hướng dẫn thì chắc chắn sẽ không có vấn đề gì, bằng ngược lại, bạn đã sai ở công đoạn nào đó ---> Gữi file lên là biết liền
 
Upvote 0
máy tính em đang bị con virut Jusched, đó có phải là nguyên nhân ko ạ, có phần mềm nào diệt được con này ko ah
 
Upvote 0
minhcong.tckt đã viết:
Em có làm sheet Menu như bài đầu tiên, giờ anh chị cho em hỏi là:
sheet menu của em tự nhiên cũng ẩn đi mất, em ko nhìn thấy sheet này nữa (lúc mới vào file này vẫn nhìn thấy, rùi mất tăm luôn
Giúp em với
Nhấp chuột vào đây để mở rộng...
Trước hết sorry bác anhtuan và ndu nha. Bạn từ từ mà ngâm cứu, Code của bác anhtuan and ndu đó. Chúc thành công
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Khi muốn gỡ bỏ (cởi nút) để file trở về trạng thái bình thường thì mình xóa hết đoạn mã đi là được ạ, hay làm thêm những bước nào nữa???

Mong các huynh tỷ giúp đỡ
 
Upvote 0
ngodany135 đã viết:
Trước hết sorry bác anhtuan và ndu nha. Bạn làm từ từ mà ngâm cứu, Code của bác anhtuan and ndu đó. Chúc thành công
Nhấp chuột vào đây để mở rộng...

em làm được cái file như anh gửi rùi, nhưng ý em hỏi là bây giờ file menu hoặc 1, 2 ko hiện ra nữa thì mình xử lý tình huông này như thế nào (lúc mở file vẫn nhìn thấy nó rùi mất tăm (máy em chưa nén được file của em nên ko tải lên diễn đàn được vì nặng quá)
 
Lần chỉnh sửa cuối:
Upvote 0

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
ndu96081631 đã viết:
Tại những sheet đang hiện này, bạn chỉ cần vẽ thêm 1 nút để liên kết đến sheet Menu là được rồi
Nhấp chuột vào đây để mở rộng...

Bác cho em hỏi nguyên nhân chính là do đâu vậy ạ
Bác tô màu đẹp nhỉ, bảo em với

Giờ lại từ sheet menu mình tạo thêm 3 nút link sang các danh mục nữa ạ??? khi còn mỗi sheet menu mà cũng bị mất như lúc đầu em nói thì làm thế nào ạ
 
Upvote 0
minhcong.tckt đã viết:
Bác cho em hỏi nguyên nhân chính là do đâu vậy ạ
Nhấp chuột vào đây để mở rộng...
File của bạn, làm sao tôi biết được chứ
minhcong.tckt đã viết:
khi còn mỗi sheet menu mà cũng bị mất như lúc đầu em nói thì làm thế nào ạ
Nhấp chuột vào đây để mở rộng...
Thì bấm vào nút Menu để trở về Menu. Nếu chưa có nút thì tự tạo ra nút ấy! Thế thôi
Bài #1 đã hướng dẫn cả rồi, chỉ cần làm đúng là không có vấn đề gì... Cứ thêm sheet thì thêm nút
 
Upvote 0
Khi các nút này đã được vẽ hoàn chỉnh và đi vào hoạt động, em muốn sửa lại màu sắc... các nút này thì làm thế nào ạ
 
Upvote 0
minhcong.tckt đã viết:
Khi các nút này đã được vẽ hoàn chỉnh và đi vào hoạt động, em muốn sửa lại màu sắc... các nút này thì làm thế nào ạ
Nhấp chuột vào đây để mở rộng...
Trước hết bạn copy đoạn code vào đi. Xong rồi bạn phải làm cái nút có màu sắc hoàn chỉnh rồi bạn đặt tên ở Web và làm theo hướng dẫn của bác ndu. thế là xong. Thân
 
Upvote 0
minhcong.tckt đã viết:
Khi các nút này đã được vẽ hoàn chỉnh và đi vào hoạt động, em muốn sửa lại màu sắc... các nút này thì làm thế nào ạ
Nhấp chuột vào đây để mở rộng...
Muốn màu sắc nào thì tô màu sắc đó! Tôi đoán có lẽ bạn đang muốn biết làm sao cho cái nút nó có dạng 3D?
Xem 1 ví dụ nhỏ này nhé

[video=youtube;GfVh0A2p4Z0]http://www.youtube.com/watch?v=GfVh0A2p4Z0[/video]
 
Upvote 0
ndu96081631 đã viết:
Viết thêm 1 đoạn code thế này:
PHP: 
Sub ShowAllShs()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.Visible = -1
Next
End Sub
Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút
PHP: 
Sub ShowAllShs()
Dim Sh As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
With Sheet1.Shapes("All").TextFrame.Characters
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Trang ch" & ChrW(7911) Then
Sh.Visible = .Text = "SHOW ALL"
End If
Next
.Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
End With
Application.ScreenUpdating = True
End Sub
Nút có 2 tác dụng SHOW và HIDE
Nhấp chuột vào đây để mở rộng...

Em làm được nút có 1 tác dụng rùi,
Bác có thể hướng dẫn cho em cụ thể làm nút 2 tác dụng được ko ạ
Em vẫn chưa làm được
Chân thành cảm ơn các anh chị trong diễn đàn
 
Upvote 0
Em chưa biết cách xuất bảng dữ liệu từ Excel sang Word Bác nào giúp được em làm ơn chỉ dẫn chi tiết hộ, em mới học máy tính nên thao tác rất chậm và ít kiến thức. Cám ơn các Bác!
 
Upvote 0
Cảm ơn, các anh chị, mong được chỉ giáo nhiều hơn nữa.
 
Upvote 0
em chưa hiểu đoạn code "With Sheets(.Shapes(Application.Caller).AlternativeText)". nó liên quan đến các sheets như thế nào. Bác ndu có thể giải thích chổ này thêm 1 tý được không?
 
Upvote 0
pham van an đã viết:
em chưa hiểu đoạn code "With Sheets(.Shapes(Application.Caller).AlternativeText)". nó liên quan đến các sheets như thế nào. Bác ndu có thể giải thích chổ này thêm 1 tý được không?
Nhấp chuột vào đây để mở rộng...
.Shapes(Application.Caller) chính là cái Shape (nút) mà ta đang bấm vào
.Shapes(Application.Caller).AlternativeText là lấy ký hiệu mà ta đã gõ trong tab Web (xem bài 1)
Mà trong tab Web, cái ta ký hiệu chính là tên sheet
 
Upvote 0
Em vẫn chưa làm được nút có 2 tác dụng, mong các anh chị giúp đỡ thêm
Khi em vẽ nút có 2 tác dụng và em gõ tên là: SHOW ALL thì đã đủ chưa vậy HIDE ALL mình gõ ở đâu, em chưa hiểu cho lắm!!!

Chân thành cảm ơn các huynh tỷ!!!
 
Upvote 0
Thông báo lỗi màu vàng tại MSg... mình sửa lại như thế nào cho đúng ạ, em chưa hiểu

Sub Test()
MsgBox AscW([I4])
End Sub
 
Upvote 0
Có ai có clip hướng dẫn tạo Menu để truy xuất tới các Sheet với. Cảm ơn nhé.
[h=3] [/h]
 
Upvote 0
ndu96081631 đã viết:
.Shapes(Application.Caller) chính là cái Shape (nút) mà ta đang bấm vào
.Shapes(Application.Caller).AlternativeText là lấy ký hiệu mà ta đã gõ trong tab Web (xem bài 1)
Mà trong tab Web, cái ta ký hiệu chính là tên sheet
Nhấp chuột vào đây để mở rộng...

Cái này có làm được với nút CommandButton trong Control Toolbox hay không? Em thử thì không được. Nếu được thì làm thế nào?
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Cái này có làm được với nút CommandButton trong Control Toolbox hay không? Em thử thì không được. Nếu được thì làm thế nào?
Nhấp chuột vào đây để mở rộng...

Giả sử là làm được đi, rồi bằng cách nào bạn Asign Macro cho nút ấy? Chẳng lẽ lại viết cho mỗi 1 CommandButton 1 code liên kết đến Sub Link2Sh? Nếu thế thì thôi ta viết trực tiếp code link vào CommandButton luôn cho rồi
 
Upvote 0
ndu96081631 đã viết:
Giả sử là làm được đi, rồi bằng cách nào bạn Asign Macro cho nút ấy? Chẳng lẽ lại viết cho mỗi 1 CommandButton 1 code liên kết đến Sub Link2Sh? Nếu thế thì thôi ta viết trực tiếp code link vào CommandButton luôn cho rồi
Nhấp chuột vào đây để mở rộng...

Thì là vậy đó, ở bài vừa rồi mới trả lời bạn dùng Hyperlink đó, nút lệnh là CommandButton vì thế mới hỏi đó thôi, nếu viết được như vậy thì nút lệnh đó mình Call Link2Sh thôi, chứ viết thêm chi nữa Thầy?
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Thì là vậy đó, ở bài vừa rồi mới trả lời bạn dùng Hyperlink đó, nút lệnh là CommandButton vì thế mới hỏi đó thôi, nếu viết được như vậy thì nút lệnh đó mình Call Link2Sh thôi, chứ viết thêm chi nữa Thầy?
Nhấp chuột vào đây để mở rộng...
Cở 50 cái cmd thì sẽ có 50 lệnh Call cái quái gì đó.... Ẹc.. Ẹc... làm biếng chết luôn
 
Upvote 0
không biết trong excell 2007 thì kick chuột phải vào chẳng thấy cái hộp thoại fomat autoshap ở đâu và không nhìn thấy mục wep trong đó nữa ai biết chỉ giúp với, xin cảm ơn!
 
Upvote 0
huyhoang1768 đã viết:
không biết trong excell 2007 thì kick chuột phải vào chẳng thấy cái hộp thoại fomat autoshap ở đâu và không nhìn thấy mục wep trong đó nữa ai biết chỉ giúp với, xin cảm ơn!
Nhấp chuột vào đây để mở rộng...

Bạn click chuột phải và chọn vào mục Size and Properties, tại đây bạn chọn vào Alt Text.
 
Upvote 0
À mình nhìn thấy rồi cám ơn bạn nhiều nha
 
Upvote 0
ndu96081631 đã viết:
Giả sử là làm được đi, rồi bằng cách nào bạn Asign Macro cho nút ấy? Chẳng lẽ lại viết cho mỗi 1 CommandButton 1 code liên kết đến Sub Link2Sh? Nếu thế thì thôi ta viết trực tiếp code link vào CommandButton luôn cho rồi
Nhấp chuột vào đây để mở rộng...

Chào anh, em muốn gửi lời cảm ơn tới anh về chức năng này, rất hay. Em đã áp dụng vào phần báo cáo của mình, tuy nhiên em gặp 1 sự cố như sau, nhưng không biết phải xử lý như thế nào.

Ở "trang_chu" -> link tới "san_xuat" -> ở đây lại link tới "thang_8" và các tháng khác. Và em gặp sự cố như sau ở "thang_8".. Khi click vô "thang_8", em muốn có 1 link quay về "san_xuat" nên đã làm 1 button với lệnh như sau: "sheet("thang_8").select".

Tuy nhiên câu lệnh bị lỗi, em không biết phải giải quyết sự cố này như thế nào ....Rất mong được anh và mọi người giúp đỡ

Em xin cảm ơn !
 

File đính kèm

Upvote 0
Bạn dùng lệnh Select đối với sheet đang ẩn nên bị báo lỗi. Unhide trước khi select sẽ hết lỗi.
Mã: 
Sub Button2_Click()
    With Sheets("San_xuat")
     .Visible = True
     .Select
    End With
End Sub
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
tintam7251 đã viết:
Bạn dùng lệnh Select đối với sheet đang ẩn nên bị báo lỗi. Unhide trước khi select sẽ hết lỗi.
Mã: 
Sub Button2_Click()
    With Sheets("San_xuat")
     .Visible = True
     .Select
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Vậy trong trường hợp dùng cái Link24 này nó bị ẩn sheet có cách nào làm cho sheet này hiện lên không? xin cảm ơn!
 
Upvote 0
cho em hỏi có thể tạo 1 button với hình ảnh mong muốn không? ví dụ như em muốn button là con ếch chẳng hạn, chứ không phải là hình chữ nhật đơn thuần. mong mấy bác giúp đỡ
 
Upvote 0
ndu96081631 đã viết:
Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub
Nút có 2 tác dụng SHOW và HIDE
Nhấp chuột vào đây để mở rộng...
Chào bạn!
Mình đã lấy code trên để Show All & Hide All và đã thực hiện được.
Mình muốn thêm 1 ý sau
Khi mở File thì muốn tất cả các sheet Hilde All (trừ Sheet Trang chủ) thì phải làm thế nào?
Cảm ơn bạn!
 
Upvote 0
VD: Sheet Trang chủ của bạn là Sheet 1 thì bạn làm thế này
Alt+F11 trong ThisWorkbook bạn thêm Code như thế này:
Private Sub Workbook_Open()
Application.Visible = True
Shéet1.Visible = 1
Sheet1.Activate
Sheet2.Visible = 2
Sheet3.Visible = 2
Sheet4.Visible = 2
Sheet5.Visible = 2
Sheet6.Visible = 2
Sheet7.Visible = 2
End Sub
Bạn thử xem sao nhé!
 
Lần chỉnh sửa cuối:
Upvote 0
LienDong đã viết:
Chào bạn!
Mình đã lấy code trên để Show All & Hide All và đã thực hiện được.
Mình muốn thêm 1 ý sau
Khi mở File thì muốn tất cả các sheet Hilde All (trừ Sheet Trang chủ) thì phải làm thế nào?
Cảm ơn bạn!
Nhấp chuột vào đây để mở rộng...

Thêm 1 Sub nữa:
Mã: 
Sub Auto_Open()
  Dim wks As Worksheet, shp As Shape
  Set wks = Worksheets("Trang ch" & ChrW(7911))
  Set shp = wks.Shapes("All")
  If shp.TextFrame.Characters.Text = "HIDE ALL" Then ShowAllShs
End Sub
Đóng và lưu file rồi mở lại file nhé
------------------------------------------
quoc nhat đã viết:
VD: Sheet Trang chủ của bạn là Sheet 1 thì bạn làm thế này
Alt+F11 trong ThisWorkbook bạn thêm Code như thế này:
Private Sub Workbook_Open()
Application.Visible = True
Shéet1.Visible = 1
Sheet1.Activate
Sheet2.Visible = 2
Sheet3.Visible = 2
Sheet4.Visible = 2
Sheet5.Visible = 2
Sheet6.Visible = 2
Sheet7.Visible = 2
End Sub
Bạn thử xem sao nhé!
Nhấp chuột vào đây để mở rộng...
Hướng dẫn tầm bậy tầm bạ không
 
Upvote 0
ndu96081631 đã viết:
Viết thêm 1 đoạn code thế này:
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub
Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub
Nút có 2 tác dụng SHOW và HIDE
Nhấp chuột vào đây để mở rộng...
CAI NẦY DÚNG LÀ CÁI MÌNH CÂN Link2Sh_3.xls.NHƯNG MÌNH KHÔNG HIỂU CÁCH TẠO RA NÓ,BẠN CÓ THỂ CHỈ DẨN TỬNG BƯỚC 1 KHÔNG VẬY,NẾU CÓ VIDEO HƯỚNG DẨN THÌ QUÁ TỐT
 
Upvote 0
Upvote 0
vubinh9366 đã viết:
hỏi cách tao ra nút 2 tác dung,showall,hideall(dùng cái gì vẻ ra nút dó,bấm 1 phát showall,bấn tiếp hideall)
Nhấp chuột vào đây để mở rộng...
Cùng ý kiến với bác này như shet "Trang chủ" của mình tên "Thong tin cap nhat" .... Chỉnh lại vẫn không chạy được .... Các bác giúp nhé ....
Còn lệnh chỉ Showall thì chạy ok.
 
Lần chỉnh sửa cuối:
Upvote 0
nhờ thầy ndu96081631 chỉ dùm em cái này với
em làm theo cách thầy nhưng khi nhấn vào nút Showall , HIDE AL thì nó xuất hiện thêm nút Trang Chủ nữa
rất mong thầy chỉ dùm xem em sai công đoạn nào với

và nhờ thầy chỉ luôn em cách save đoạn mã trong sheet trang chủ với
mỗi lần chạy rồi mở lại em lại phải copy rồi paste vào modul thì mấy nút mới hoạt động
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
downloadungdung đã viết:
nhờ thầy ndu96081631 chỉ dùm em cái này với
em làm theo cách thầy nhưng khi nhấn vào nút Showall , HIDE AL thì nó xuất hiện thêm nút Trang Chủ nữa
rất mong thầy chỉ dùm xem em sai công đoạn nào với

và nhờ thầy chỉ luôn em cách save đoạn mã trong sheet trang chủ với
mỗi lần chạy rồi mở lại em lại phải copy rồi paste vào modul thì mấy nút mới hoạt động
Nhấp chuột vào đây để mở rộng...
Bạn phải ghi lại với đuôi .xlsm hoặc đuôi .xls chứ ghi dạng đuôi .xlsx thì code không tồn tại nên còn code đâu mà chạy .
 
Lần chỉnh sửa cuối:
Upvote 0
cảm ơn bạn mình ghi được rồi nhưng vẫn còn 1 thắc mắc file của thầyndu96081631 nhận nút chỉ ra Showall , HIDE AL
của mình nó ra thêm nút Trang chủ nữa
ko biết là sai chỗ nào nhờ mọi người chỉ dùm
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
downloadungdung đã viết:
cảm ơn bạn mình ghi được rồi nhưng vẫn còn 1 thắc mắc file của thầyndu96081631 nhận nút chỉ ra Showall , HIDE AL
của mình nó ra thêm nút Trang chủ nữa
ko biết là sai chỗ nào nhờ mọi người chỉ dùm
Nhấp chuột vào đây để mở rộng...

Trong sub ShowAllShs có đoạn: If Sh.Name <> "Trang ch" & ChrW(7911) Then
Chú ý chổ màu đỏ là có phân biệt HOA thường. "Trang ch" & ChrW(7911) = Trang chủ trong khi tên sheet của bạn là Trang Chủ (chữ C viết HOA)
Vậy bạn có 2 cách khắc phục:
- Sửa tên sheet thành Trang chủ
- Sửa đoạn code trên thành If Sh.Name <> "Trang Ch" & ChrW(7911) Then
 
Upvote 0
ndu96081631 đã viết:
Trong sub ShowAllShs có đoạn: If Sh.Name <> "Trang ch" & ChrW(7911) Then
Chú ý chổ màu đỏ là có phân biệt HOA thường. "Trang ch" & ChrW(7911) = Trang chủ trong khi tên sheet của bạn là Trang Chủ (chữ C viết HOA)
Vậy bạn có 2 cách khắc phục:
- Sửa tên sheet thành Trang chủ
- Sửa đoạn code trên thành If Sh.Name <> "Trang Ch" & ChrW(7911) Then
Nhấp chuột vào đây để mở rộng...

Theo dõi rất nhiều bài viết của chú ndu96081631 thấy rất thích. Vì các bài viết của chú rất ý nghĩa, cách trả lời ngắn gọn, dễ hiểu. Cảm ơn chú!
 
Upvote 0
ndu96081631 đã viết:
Trong sub ShowAllShs có đoạn: If Sh.Name <> "Trang ch" & ChrW(7911) Then
Chú ý chổ màu đỏ là có phân biệt HOA thường. "Trang ch" & ChrW(7911) = Trang chủ trong khi tên sheet của bạn là Trang Chủ (chữ C viết HOA)
Vậy bạn có 2 cách khắc phục:
- Sửa tên sheet thành Trang chủ
- Sửa đoạn code trên thành If Sh.Name <> "Trang Ch" & ChrW(7911) Then
Nhấp chuột vào đây để mở rộng...
Nhà em cũng đã kiểm tra và không phát hiện ra lỗi, cám ơn thày . Nhà em không nghĩ thằng VBA " khó tính " thế ! Chả trách mấy ông đi nhậu về gõ cửa nhà hàng xóm thì cũng phải thôi .
 
Lần chỉnh sửa cuối:
Upvote 0
Ngoai Thanh đã viết:
Nhà em cũng đã kiểm tra và không phát hiện ra lỗi, cám ơn thày . Nhà em không nghĩ thằng VBA " khó tính " thế ! Chả trách mấy ông đi nhậu về gõ cửa nhà hàng xóm thì cũng phải thôi .
Nhấp chuột vào đây để mở rộng...

Bới vậy để chắc ăn người ta thường so sánh theo kiểu khác:
Hoặc
Mã: 
If UCase(sh.Name) <> "TRANG CH" & ChrW(7910) Then
Tức biến toàn bộ thành chữ HOA rồi so sánh
Hoặc
Mã: 
If StrComp(sh.Name, "Trang Ch" & ChrW(7911), vbTextCompare) = 0 then
Hàm StrComp với phương thức so sánh vbTextCompare sẽ trả về giá trị = 0 nếu 2 text giống nhau (không phân biệt HOA thường)
Nói chung, nếu không biết hàm StrComp thì cứ UCase tất tần tật rồi hẳn so sánh là ăn tiền liền
 
Upvote 0
Hiện tại e đang làm một file tương tự như thế, nhưng e không chỉ muốn link tới các sheet khác mà e còn muốn link tới các cell khác nhau trong một sheet vậy có được không ( trong trường hợp sheet đó ẩn). Xin các thầy chỉ bảo giúp em.
 
Upvote 0
vânkhnh đã viết:
Hiện tại e đang làm một file tương tự như thế, nhưng e không chỉ muốn link tới các sheet khác mà e còn muốn link tới các cell khác nhau trong một sheet vậy có được không ( trong trường hợp sheet đó ẩn). Xin các thầy chỉ bảo giúp em.
Nhấp chuột vào đây để mở rộng...
Để lấy dữ liệu từ một hoặc nhiều cell tại sheet ẩn thì được, chứ bắt nó Active thì xin thưa không được bạn nhé!
 
Upvote 0
Topic này hay quá. Gpe đúng là một rừng kiến thức..
P/s: comment để tiện theo dõi..
 
Upvote 0
E có 1 sheet khá nhiều bản ghi..ở trang chủ e muốn link đến bản ghi cuối cùng (bản ghi có thể tăng thêm) của sheet đó thì code thế nào ạh?
 
Lần chỉnh sửa cuối:
Upvote 0
anhtuan1066 đã viết:
Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module
PHP: 
Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub
2> Các bước chuẩn bị
- Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ
- Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object
- Click phải vào Button, chọn Add Text và gõ nhản tùy ý
- Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)


- Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh

- Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ
- Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này
--------------------------
Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả
(Xem file đính kèm)
--------------------------
Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object của thanh Control Toolbox
Nhấp chuột vào đây để mở rộng...
Với office 2007 trở lên dùng luôn chức năng Hyperlink thầy nhỉ ???
New Picture (18).jpg
 
Upvote 0
E muốn views lại tất cả các sheet như ban đầu thì làm thế nào ạh ??? vì sử dụng unhide ko được..
 
Upvote 0
anhtuan1066 đã viết:
Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module
PHP: 
Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub
....
Nhấp chuột vào đây để mở rộng...
Nếu muốn từ TRANG CHỦ kết nối đến các sheet khác thì TRANG CHỦ ẩn đi
Còn từ Sheet khác trở về Trang chủ thì sheet khác đó không ẩn đi thì code thay đổi thế nào ạh?

p/s: sau khi nghiên cứu từng bài viết của topic thì e đã làm đc rồi ạh..
 
Lần chỉnh sửa cuối:
Upvote 0
ndu96081631 đã viết:
Viết thêm 1 đoạn code thế này:
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub
Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub
Nút có 2 tác dụng SHOW và HIDE
Nhấp chuột vào đây để mở rộng...
File của e có một số sheets ẩn và ko muốn hiện lên để đỡ rồi file.. code trên hay đổi thế nào để vẫn ẩn các sheet mình muốn dù ấn show all ?? e cảm ơn ạh
 
Upvote 0
ndu96081631 đã viết:
Viết thêm 1 đoạn code thế này:
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub
Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub
Nút có 2 tác dụng SHOW và HIDE
Nhấp chuột vào đây để mở rộng...

e làm giống như bác mà sao vẫn ko chạy đc kiểm tra lại ko bit thiếu chỗ nào ?
sheet MENU cũng là sheet1, đã thử đổi tên shape All rồi SHOW ALL rồi HIDE ALL,... và thử đổi Alternative text cũng không được ?? mong các bác chỉ giáo
code:
PHP: 
Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "MENU" Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub[php]

còn code này thì chạy ok 
[php]
Sub ShowAllShs1()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub [php]
 
Lần chỉnh sửa cuối:
Upvote 0
e có áp dụng code của bác vào file làm việc của mình, thấy rất ý nghĩa nhưng em có 1 chút vấn đề mong bác giúp đỡ đó là:
File của em có tất cả 11 sheet, 3 sheet chính e luôn để hiện còn 8 sheet làm việc e dùng link Assign Macro để đến. nhưng
e muốn link 1 lúc đến 2 sheet liền lúc thì làm thế nào ạ
VD: ở sheet menu chính e tạo các nút ấn D100 thì sẽ hiện lên D110 và D120, nút ấn D200 thì sẽ hiện lên D210 và D220, tương tự không biết phải sửa thế nào ạ hay viết 1 code khác ... mong được các bác giúp đỡ
Sub Link2Sh()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
End Sub
 
Upvote 0
ý em là khi ẩn hết các sheet làm việc thì mình ấn nút D100 sẽ hiện lên D110 và D120 đồng thời thôi mà, tương tự D200 ... còn ko cần nó trực tiếp nhảy sang sheet kia, chỉ cần hiện lên là được. Bác có biết thì giúp em với, e cảm ơn nhiều !!!
 
Upvote 0
hoangtrong_vbnd đã viết:
ý em là khi ẩn hết các sheet làm việc thì mình ấn nút D100 sẽ hiện lên D110 và D120 đồng thời thôi mà, tương tự D200 ... còn ko cần nó trực tiếp nhảy sang sheet kia, chỉ cần hiện lên là được. Bác có biết thì giúp em với, e cảm ơn nhiều !!!
Nhấp chuột vào đây để mở rộng...

Thế thì đâu phải là TẠO LIÊN KẾT mà chỉ là ĐIỀU KHIỂN VIỆC ẨN HIỆN SHEET thôi, vậy sao bạn lại post bài vào đây?
 
Upvote 0
ndu96081631 đã viết:
Thế thì đâu phải là TẠO LIÊN KẾT mà chỉ là ĐIỀU KHIỂN VIỆC ẨN HIỆN SHEET thôi, vậy sao bạn lại post bài vào đây?
Nhấp chuột vào đây để mở rộng...
thì e thấy đề tài là 'Tạo nút nhấn để link đến các sheet' nên post hỏi luôn ... e đang muốn tạo một nút nhấn để nó hiện lên 2 sheet ẩn. Còn việc Điều khiển việc ẩn sheet phải vào topic nào, e mới tham gia nên ko rành lắm bác ndu biết chỉ e với. mấy nay e mò trên GPE mà ko thấy có bài điều khiển ẩn hiện sheet, chỉ thấy ẩn toàn bộ sheet hoặc link đến sheet khác
 
Upvote 0
Xem qua topic này em Thấy còn Trường hợp này, Em rất mong được mọi người hướng dẫn:
- Ví dụ: Em có 1 File có khoảng 50 Sheet (Sh1, Sh2, ... Sh50) em thiết kế sheet Trang chủ để link đến 50 sheet đó bằng cách vẽ Shapes và đặt Hyperlink theo như hướng dẫn của Bác (Anh Tuấn) thì không vấn đề gì. Vẫn đề em muốn hỏi là một trong các sheet (Sh1, Sh2, ..... Sh50) đó hiện tại chưa được tạo ra (hoặc Move or copy) đến. Vậy làm thế nào để khi em tạo ra các sheet (Sh1, Sh2, ..... Sh50) (hoặc Move or copy) bất kỳ trong các sheet trên thì (nhận ra các sheet đó) để khi bấm vào nút thiết kế trên sheet trang chủ thì link đến sheet có tên tương ứng mới tạo ra.
- Em cảm ơn mọi người rất nhiều!.
 
Lần chỉnh sửa cuối:
Upvote 0
- Khi tạo ra sheet mới có tên trong shapes được Hyperlink thì tự động nhận tên sheet dể khi bấm vào nút shapes được thiết kế trên sheet trang chủ và ngược lại từ sheet mới tạo ra được link đến sheet trang chủ.
- Trân trọng cảm ơn mọi người hướng dẫn!.
 
Lần chỉnh sửa cuối:
Upvote 0
anh tuấn ơi,e gà quá k biết cách vẽ các Button bằng công cụ Drawing Object trên excel 2007. a giúp e với
 
Upvote 0
giúp em bài này với, e có các sheet GIA, COST %, GA CHIEN GIO, THUC DON , E muốn sheet COST % sẽ là trang chủ, các sheet còn lại bị giấu đi, và khi muốn đii đến sheet nào thì chỉ cần bấm đến sheet đó thôi. e muốn làm giống như file mẫu này (file đính kèm). em xin hướng dẫn chi tiết luôn nhé, tại e muốn biết cách làm như thế nào, em cảm ơn rất nhiều.
 

File đính kèm

Upvote 0
10339418_789945621023676_5162291087107423550_o.jpg


Em bị lỗi như sau... nhờ mọi người gỡ giúp:
Em làm theo các bước hướng dẫn nói chung đã hoạt động tốt... nhưng em cứ thoát excel, khi mở lại thì marco không chạy nữa... (báo lỗi như trên). Em kiểm tra thì mất marco đã tao... lại phải tạo lại?
Em không hiểu vì sao lại như thế.
Nhờ mấy sự phụ gỡ rối giúp.
Thân ái!
 
Upvote 0
Jindo_Katori đã viết:
10339418_789945621023676_5162291087107423550_o.jpg


Em bị lỗi như sau... nhờ mọi người gỡ giúp:
Em làm theo các bước hướng dẫn nói chung đã hoạt động tốt... nhưng em cứ thoát excel, khi mở lại thì marco không chạy nữa... (báo lỗi như trên). Em kiểm tra thì mất marco đã tao... lại phải tạo lại?
Em không hiểu vì sao lại như thế.
Nhờ mấy sự phụ gỡ rối giúp.
Thân ái!
Nhấp chuột vào đây để mở rộng...
Bạn gán Macro vào file xong, ấn F12, khung Save as type chọn Excel Macro-Enabled Workbook. Nó sẽ lưu file với đuôi là .xlsm macro mới lưu được trong file và hoạt động được. Mỗi lần mở file phải Enable Macros.
 
Upvote 0
Ba Tê đã viết:
Bạn gán Macro vào file xong, ấn F12, khung Save as type chọn Excel Macro-Enabled Workbook. Nó sẽ lưu file với đuôi là .xlsm macro mới lưu được trong file và hoạt động được. Mỗi lần mở file phải Enable Macros.
Nhấp chuột vào đây để mở rộng...

Được rồi bác ơi... bác đúng là tuyệt vời ông mặt trời.
Tiện thể em muốn hỏi thêm cái này ạ: như hình minh họa e có làm các nút chọn từ sheet 1 -> sheet 31. Thấy mất thẩm mĩ quá. Nếu em muốn làm 1 menu sổ xuống để chọn thì có cách nào không ạ?
10286874_791114507573454_1430858771386517868_o.jpg
 
Upvote 0
Trước đây cơ quan mình dùng win 2003 chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text thì vẫn dùng được. bây giờ qua oficce 2007 giao diện có khác. mình đã tìm ra cũng thao tác vào ô Alternative text tên sheet muốn hiện tới nhưng không có tác dụng. Có ai biết cách làm trong ofice 2007 không chỉ giáo mình với
 
Upvote 0
mình đã tập làm nhưng không được. excel của mình là 2013. Xin giúp đỡ của các bạn. Cảm ơn nhiều
 
Upvote 0
anhtuan1066 đã viết:
Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module
PHP: 
Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub
2> Các bước chuẩn bị
- Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ
- Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object
- Click phải vào Button, chọn Add Text và gõ nhản tùy ý
- Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)

View attachment 47014





























- Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh

View attachment 47015






















- Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ
- Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này
--------------------------
Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả
(Xem file đính kèm)
--------------------------
Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object của thanh Control Toolbox
Nhấp chuột vào đây để mở rộng...
Tôi hỏi bạn tý
Nếu bạn sử dụng excel 2003 thì được, nhưng tôi sử dụng excel 2013 thì không tìm được format autoshape> alternative text như của trong thẻ web vậy tìm nó ở đâu trong excel 2013 nhờ các bạn giúp đỡ chỉ cho
Cám ơn
 
Upvote 0
tr hoan đã viết:
Tôi hỏi bạn tý
Nếu bạn sử dụng excel 2003 thì được, nhưng tôi sử dụng excel 2013 thì không tìm được format autoshape> alternative text như của trong thẻ web vậy tìm nó ở đâu trong excel 2013 nhờ các bạn giúp đỡ chỉ cho
Cám ơn
Nhấp chuột vào đây để mở rộng...
Bạn đã làm được các bước trên của bài hướng dẫn chưa?
Đã vẽ được hình, và Add Text chưa?
Nếu đã được thì phải chuột vào hình/chọn Format Shape/Alt Text/ đã OK chưa?
 
Upvote 0
tr hoan đã viết:
Tôi hỏi bạn tý
Nếu bạn sử dụng excel 2003 thì được, nhưng tôi sử dụng excel 2013 thì không tìm được format autoshape> alternative text như của trong thẻ web vậy tìm nó ở đâu trong excel 2013 nhờ các bạn giúp đỡ chỉ cho
Cám ơn
Nhấp chuột vào đây để mở rộng...

Chọn vào đối tượng, bấm Ctrl + ! sẽ thấy mục Alt Text ở cuối cùng
 
Upvote 0
em dùng excel 2007, khi vẽ xong hình làm theo các bước, em ấn chuột phải vào formart shape, e ko tìm thấy alt text...mọi người thông thái chỉ giúp em với ạ.
Em cảm ơn.
 
Upvote 0
quanghai1969 đã viết:
Sao lạ vậy ta? +-+-+-++-+-+-++-+-+-+
Hay là 2007 khác 2010 nhỉ? Nâng cấp lên chút đi
Bạn có thử trên mấy cái shape trong file mình làm hay chưa?
Nhấp chuột vào đây để mở rộng...
Em thử trong file của anh cũng ko thấy anh ạ, em ngồi mò mẫn mãi thì bảo là excel 2007 đã bị microsoft khai tử lâu rùi...vì nó có mấy cái lỗi. Và không có cái alt text đâu ạ. chỉ có 2003-2010 có thôi ạ.
 
Upvote 0
heoxinh89 đã viết:
Em thử trong file của anh cũng ko thấy anh ạ, em ngồi mò mẫn mãi thì bảo là excel 2007 đã bị microsoft khai tử lâu rùi...vì nó có mấy cái lỗi. Và không có cái alt text đâu ạ. chỉ có 2003-2010 có thôi ạ.
Nhấp chuột vào đây để mở rộng...
Chắc là nằm chỗ nào đó í, chứ nếu không có thì sao file mình tạo chạy được chứ.
 
Upvote 0
heoxinh89 đã viết:
Em thử trong file của anh cũng ko thấy anh ạ, em ngồi mò mẫn mãi thì bảo là excel 2007 đã bị microsoft khai tử lâu rùi...vì nó có mấy cái lỗi. Và không có cái alt text đâu ạ. chỉ có 2003-2010 có thôi ạ.
Nhấp chuột vào đây để mở rộng...
Bạn làm theo cách ndu96081631 đi là ok
 
Upvote 0
cảm ơn cả nhà nhiều ạ.
 
Upvote 0
Bạn xem hình nhé.
Ấn chuột phải vào Shape\Format shape\
 
Upvote 0
Nhờ các Anh giúp cho, em đang muốn Edit File (kèm theo) để sử dụng. Các anh có thể giúp em cách ẩn hiện các Sheet, cách ẩn hiện tên sheet đồng thời tại Button "Menu" có thể khi kích vào hiện ra 1 bảng các nút Button để lựa chọn. Thanks All :D
 
Upvote 0
dùng trên excel 2007 báo vàng dòng "With Sheets(.Shapes(Application.Caller).AlternativeText)". ai chỉ e cách sửa với
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

N
Tạo file lưu trữ dữ liệu tự động trên excel.
Trả lời
7
Đọc
92
le_vis
L
N
  • Question Question
Tạo file lưu trữ dự liệu tự động
Trả lời
6
Đọc
117
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
505
ongke0711
ongke0711
Ả
Cách tạo list Data validation không qua trung gian
Trả lời
45
Đọc
7K
HOADINH84
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
395
Đọc
47K
phamvanquoc.hanamninh
P
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn
Trả lời
3
Đọc
129
HieuCD
H
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (1 người xem)
Trả lời
26
Đọc
25K
dungpham01
D
D
in ra bị thiếu chữ
Trả lời
4
Đọc
95
dankedun
D
Momominh
Hỏi công thức tìm tuần thiếu hàng
Trả lời
1
Đọc
75
hoangtuaotrang_hp_vn
H
2
EM MUỐN TẠO MA TRẬN BIẾN ĐỔI GIÁ TRỊ PHẦN TỬ NGẪU NHIÊN
Trả lời
2
Đọc
68
ptm0412
ptm0412
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
34
Đọc
2K
Emyeuexcel
Emyeuexcel
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
6
Đọc
294
YêuCN
Y
S
Mở 2 cửa sổ riêng biệt
Trả lời
31
Đọc
24K
ThanhNgan240723
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL (1 người xem)
    • Buồn
Trả lời
57
Đọc
20K
vovietdung261016
V
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
huuthang_bd
Add in SwitchSheet: Quay lại các sheet đã xem trước đó bằng phím tắt
    • Thích
    • Yêu thích
2
Trả lời
146
Đọc
43K
phong_codon
P
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
14
Đọc
612
Quang_Hải
Quang_Hải
N
Cài phần mềm đọc số ra chữ
Trả lời
2
Đọc
145
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
Em cần hỗ trợ tách nhiều file và đặt tên theo quy ước chung từ bảng 01 excel có sẳng
Trả lời
1
Đọc
125
HUONGHCKT
H
N
hàm đếm theo dòng
Trả lời
1
Đọc
103
dungpham01
D
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom