Ẩn hiện Sheet có điều kiện.

Manhhungstone · 23/4/10

Nhờ mọi người hướng dẫn có cách nào ẩn hiện sheet có điều kiện. mình kèm theo File nhờ mọi người hướng dẫn giùm/ xin cảm ơn nhiều %#^#$

ndu96081631 · 23/4/10

Manhhungstone đã viết:
Nhờ mọi người hướng dẫn có cách nào ẩn hiện sheet có điều kiện. mình kèm theo File nhờ mọi người hướng dẫn giùm/ xin cảm ơn nhiều

Dùng Button ngon hơn!
Code trong Module

PHP:

Sub LinkToSh()
  With Sheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text)
    .Visible = True: .Select
  End With
End Sub

Code cho sheet TrangChu

PHP:

Private Sub Worksheet_Activate()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name <> "TrangChu" Then Sh.Visible = False
  Next
End Sub

nam2806 · 23/4/10

Bạn xem thử, có nhiều cách nhé. Bạn nên mở rông ra 1 tí nữa-> khi làm việc với sheet nay thì các sheet kia "biến", sẽ gọn hơn nếu bạn có nhiều sh.

Manhhungstone · 23/4/10

Ý bạn cũng giống ý mình. mình muốn khi làm việc với sheet nay thì các sheet kia "biến", sẽ gọn hơn. nhưng mình thấy nó không ẩn à mình nhấn cứ nhấn sheel nào thì nó hiện lên hết/ bạn kiểm tra lại giùm mình với nhé. cảm ơn bạn nhiều.

nam2806 · 23/4/10

Bạn manhhung ơi, hoàn toàn làm được mà. Bạn dùng record macro ghi lại tuần tự ý đinh của bạn, sau đó "cắt, ghép, sửa" các đoạn mã sao cho phù hợp với ý định của bạn. Thân!

ndu96081631 · 24/4/10

Manhhungstone đã viết:
Ý bạn cũng giống ý mình. mình muốn khi làm việc với sheet nay thì các sheet kia "biến", sẽ gọn hơn. nhưng mình thấy nó không ẩn à mình nhấn cứ nhấn sheel nào thì nó hiện lên hết/ bạn kiểm tra lại giùm mình với nhé. cảm ơn bạn nhiều.

Nếu vậy thì dùng code này càng đơn giản hơn:

PHP:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
  With Sheets(Target.Name)
    .Visible = True: .Select
  End With
  Sh.Visible = False
End Sub

Bạn thử nghiên cứu xem còn code có thể gọn hơn cái này không?
Ẹc... Ẹc...

Manhhungstone · 6/5/10

Nhờ sữa lại code ẩn, hiện Sheet có điều kiện

Mình đã làm theo bạn cách ẩn hiện sheet có điều kiện nhưng có một vấn đề là khi mình muốn lấp nút bấm bằng macro Button thì nó báo lỗi không ẩn sheet và không vào được sheet muốn đến. nhờ bạn có cách nào sửa lại đoạn code hộ nhé/ cảm ơn nhiều. ;;;;;;;;;;;

ndu96081631 · 6/5/10

Manhhungstone đã viết:
Mình đã làm theo bạn cách ẩn hiện sheet có điều kiện nhưng có một vấn đề là khi mình muốn lấp nút bấm bằng macro Button thì nó báo lỗi không ẩn sheet và không vào được sheet muốn đến. nhờ bạn có cách nào sửa lại đoạn code hộ nhé/ cảm ơn nhiều.

Cái này tôi nhớ đã làm cho bạn ít nhất 3 lần rồi --> Sao chẳng chịu nghiên cứu nhỉ?
(Từ code cũ, sửa tí là xong)

PHP:

Sub Link2Sh()
  On Error GoTo ExitSub
  With Sheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text)
    .Visible = True: .Select
  End With
  Sheets("Trang chu").Visible = False
ExitSub:
End Sub

Assign Macro toàn bộ các Buttons cho Sub trên

Manhhungstone · 6/5/10

cảm ơn bạn mình mới làm excel nên kém lắm/ cảm ơn bạn nhé

tam8678 · 7/5/10

ndu96081631 đã viết:
Dùng Button ngon hơn!
Code trong Module

PHP:

Sub LinkToSh() With Sheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text) .Visible = True: .Select End With End Sub

Code cho sheet TrangChu

PHP:

Private Sub Worksheet_Activate() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "TrangChu" Then Sh.Visible = False Next End Sub

---
Bài này nếu Remove Hyperlink đi thì code viết gọn lại như bài #8 ( chỉ dùng 1 code trong module ) đươc viết như thế nào hả chú. Cụ thể là chỉ còn Sheet "Trang chủ" và sheet được chọn. Cám ơn

tam8678 · 8/5/10

tam8678 đã viết:
---
Bài này nếu Remove Hyperlink đi thì code viết gọn lại như bài #8 ( chỉ dùng 1 code trong module ) đươc viết như thế nào hả chú. Cụ thể là chỉ còn Sheet "Trang chủ" và sheet được chọn. Cám ơn

---
Nhờ chú xem giúp anh bài này nhé. Cám ơn

ndu96081631 · 8/5/10

tam8678 đã viết:
---
Nhờ chú xem giúp anh bài này nhé. Cám ơn

Anh ơi, anh nói vậy em khó hình dung quá
Nếu có thể được, anh gữi file của anh lên đây nhé
(thông cảm, em hơi chậm tiêu)

anhtotbung35 · 12/5/10

ndu96081631 đã viết:
Dùng Button ngon hơn!
Code trong Module

PHP:

Sub LinkToSh() With Sheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text) .Visible = True: .Select End With End Sub

Code cho sheet TrangChu

PHP:

Private Sub Worksheet_Activate() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "TrangChu" Then Sh.Visible = False Next End Sub

Cái này thì hay đấy, nhưng mà còn bị bất tiện một chút là. Dùng Button thì tẽt trên đó là tên của sheet. Nhưng tên của sheet thi lại viết tắt, nên đôi khi nhìn không đẹp lắm và khó đọc. Nhưng cũng cảm ơn bạn.
Cảm ơn

ndu96081631 · 12/5/10

anhtotbung35 đã viết:
Cái này thì hay đấy, nhưng mà còn bị bất tiện một chút là. Dùng Button thì tẽt trên đó là tên của sheet. Nhưng tên của sheet thi lại viết tắt, nên đôi khi nhìn không đẹp lắm và khó đọc. Nhưng cũng cảm ơn bạn.
Cảm ơn

Chắc ý bạn muốn gõ tên trên nhản Button khác với tên sheet thực tế mà vẫn Link đến được... Thiếu chi cách, chẳng hạn đánh dấu bằng AlternativeText
Bạn thích thế nào cứ cho ý kiến, tôi sẽ làm thử
Xem qua bài này nhé: Hướng dẫn cách tạo menu nút bấm thêm đến nhiều sheet

anhtotbung35 · 13/5/10

ndu96081631 đã viết:
Chắc ý bạn muốn gõ tên trên nhản Button khác với tên sheet thực tế mà vẫn Link đến được... Thiếu chi cách, chẳng hạn đánh dấu bằng AlternativeText
Bạn thích thế nào cứ cho ý kiến, tôi sẽ làm thử
Xem qua bài này nhé: Hướng dẫn cách tạo menu nút bấm thêm đến nhiều sheet

Mình cũng có sẵn một Sheet và tự động chạy đến Sheet "Main" khi khởi động. Trên Sheet Main này mình đã dùng toàn bộ là CommandButton và click vào là dẫn tới các sheet khác. Giờ nếu dùng Button như của Bác thì ngồi chỉnh lại hơi mệt. Bác có thể từ đó mà chỉ cho mình cách giải được không.

ndu96081631 · 13/5/10

anhtotbung35 đã viết:
Mình cũng có sẵn một Sheet và tự động chạy đến Sheet "Main" khi khởi động. Trên Sheet Main này mình đã dùng toàn bộ là CommandButton và click vào là dẫn tới các sheet khác. Giờ nếu dùng Button như của Bác thì ngồi chỉnh lại hơi mệt. Bác có thể từ đó mà chỉ cho mình cách giải được không.

Chấp nhận "ăn chơi" phải chịu "tốn kém" thôi ---> Mệt nhưng học được trò mới cũng xứng đáng
Giờ bạn hãy đưa file của bạn lên đây xem thử được không?

anhtotbung35 · 14/5/10

ndu96081631 đã viết:
Chấp nhận "ăn chơi" phải chịu "tốn kém" thôi ---> Mệt nhưng học được trò mới cũng xứng đáng
Giờ bạn hãy đưa file của bạn lên đây xem thử được không?

Đây, nhờ bạn xem giúp nhé. Trên Sheet Main của mình có nhiều commandbutton lắm.
Cảm ơn.

ndu96081631 · 14/5/10

anhtotbung35 đã viết:
Đây, nhờ bạn xem giúp nhé. Trên Sheet Main của mình có nhiều commandbutton lắm.
Cảm ơn.

Trong này tôi viết sẳn cho bạn 3 code:

PHP:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
  Sheets("Main").Visible = True
  Sh.Visible = False
End Sub

PHP:

Sub Auto_Open()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = Sh.Name = "Main"
  Next Sh
End Sub

PHP:

Sub GotoSh()
  On Error GoTo ExitSub
  With Sheets(ActiveSheet.Shapes(Application.Caller).AlternativeText)
    .Visible = True
    .Select
  End With
  Sheets("Main").Visible = False
ExitSub:
End Sub

Khi bạn có nhu cầu thêm Button để link đến 1 sheet mới, hãy làm như sau:
- Vẽ Button
- Click phải vào Button, chọn Assign Macro, chọn code có tên GotoSh rồi bấm OK
- Click phải vào Button, chọn Format Control, chuyển sang tab Web rồi gõ tên sheet cần link vào khung Alternative text
(Bạn thấy đấy, tôi nhoáng cái đã xong, có khó khăn gì đâu)

Manhhungstone · 14/5/10

Cũng chủ để ẩn sheet

Mình có một File nhờ bạn xem giúp nhé. Trên Sheet Main của mình cũng có nhiều commandbutton lắm nhưng nó thêm commandbutton ẩn bạn kiểm tra giùm mình nhé. File mình nhiều Sheet nên hơi nặng mình đã xoá bớt nên File có lỗi một chút. nhờ bạn viết code ẩn hết các sheet chỉ hiện khi chọn. và lúc mở thì chỉ sheet TRANG CHU hiện ra. cảm ơn bạn

anhtotbung35 · 14/5/10

ndu96081631 đã viết:
Trong này tôi viết sẳn cho bạn 3 code:

PHP:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) Sheets("Main").Visible = True Sh.Visible = False End Sub

PHP:

Sub Auto_Open() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets Sh.Visible = Sh.Name = "Main" Next Sh End Sub

PHP:

Sub GotoSh() On Error GoTo ExitSub With Sheets(ActiveSheet.Shapes(Application.Caller).AlternativeText) .Visible = True .Select End With Sheets("Main").Visible = False ExitSub: End Sub

Khi bạn có nhu cầu thêm Button để link đến 1 sheet mới, hãy làm như sau:
- Vẽ Button
- Click phải vào Button, chọn Assign Macro, chọn code có tên GotoSh rồi bấm OK
- Click phải vào Button, chọn Format Control, chuyển sang tab Web rồi gõ tên sheet cần link vào khung Alternative text
(Bạn thấy đấy, tôi nhoáng cái đã xong, có khó khăn gì đâu)

Sao mình thử lên file của mình thì mọi thứ đều được, nhưng khi bấm "trở về" của sheet khác (dùng Huyperlink) thì nó không hiểu. Vì lúc này sheet Main đã bị ẩn.
Code module mình đưa vào như thế này, bạn xem thử có đúng theo thứ tự từng lệnh không nhé:
Sub Aut

pen()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.Visible = Sh.Name = "Main"
Next Sh
End Sub
Sub GotoSh()
On Error GoTo ExitSub
With Sheets(ActiveSheet.Shapes(Application.Caller).AlternativeText)
.Visible = True
.Select
End With
Sheets("Main").Visible = False
ExitSub:
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Sheets("Main").Visible = True
Sh.Visible = False
End Sub

Ẩn hiện Sheet có điều kiện.

Thành viên mới

File đính kèm

Huyền thoại GPE

File đính kèm

Thành viên hoạt động

File đính kèm

Thành viên mới

Thành viên hoạt động

Huyền thoại GPE

File đính kèm

Thành viên mới

File đính kèm

Huyền thoại GPE

File đính kèm

Thành viên mới

Đời Xá Chi

Đời Xá Chi

Huyền thoại GPE

Thành viên hoạt động

Huyền thoại GPE

Thành viên hoạt động

Huyền thoại GPE

Thành viên hoạt động

File đính kèm

Huyền thoại GPE

File đính kèm

Thành viên mới

Thành viên hoạt động

Đếm ngược thời gian