Tạo nút nhấn chuyển sheet với excel 2010 (1 người xem)

[Nu Ne]

chào cả nhà
Em đang muốn tạo nút chuyển sheet và có thể ẩn sheet đi như thế này, nhưng kg biết làm sao cả.
Em cũng có đọc vài bài hướng dẫn, nhưng vẫn kg làm được. Anh/ chị nào biết chỉ em chi tiết xíu. Chứ em ngu lắm, mò mà kg được
em cảm ơn nhiều nhiều lắm ạ.

 

[Kiều Mạnh]

chào cả nhà
Em đang muốn tạo nút chuyển sheet và có thể ẩn sheet đi như thế này, nhưng kg biết làm sao cả.
Em cũng có đọc vài bài hướng dẫn, nhưng vẫn kg làm được. Anh/ chị nào biết chỉ em chi tiết xíu. Chứ em ngu lắm, mò mà kg được
em cảm ơn nhiều nhiều lắm ạ.

Bài này dễ thôi mà ... nhưng bạn phải biết một ít về VBA thì mới làm được còn hướng dẫn làm dài dòng lắm
Mởi File lên Bấm Tổ hợp phím Alt+F11 vào đó từ từ nghiên cứu Code nha

 

[Nu Ne]

Bài này dễ thôi mà ... nhưng bạn phải biết một ít về VBA thì mới làm được còn hướng dẫn làm dài dòng lắm
Mởi File lên Bấm Tổ hợp phím Alt+F11 vào đó từ từ nghiên cứu Code nha

cái này em có tham khảo trên diễn đàn, nhưng kg mò theo được, đến đoạn gán tên cho tab WEB thì em kg mò tiếp được nữa.
anh chỉ em với, rồi từ từ em ngâm cứu, giờ đang gấp gáp mà ngâm hoài không ra nè anh.

 

[Kiều Mạnh]

cái này em có tham khảo trên diễn đàn, nhưng kg mò theo được, đến đoạn gán tên cho tab WEB thì em kg mò tiếp được nữa.
anh chỉ em với, rồi từ từ em ngâm cứu, giờ đang gấp gáp mà ngâm hoài không ra nè anh.

Túm lại bạn muốn làm sheet nào là Main và link đến sheet nào thì mình làm cho thôi nha ... chứ giải thích và hướng dẫn mình kém lắm hỏng làm được. bạn chịu khó tìm trên GPE nha các hướng dẫn cũng rất chi tiết và cụ thể mà . ..
Hình như File bạn úp là của Anhtuan1006 thì phải bạn tìm bài đó có hướng dẫn rất chi tiết mà
Cố giắng lên nha không khó lắm đâu mà

Thân

 

[Kiều Mạnh]

cái này em có tham khảo trên diễn đàn, nhưng kg mò theo được, đến đoạn gán tên cho tab WEB thì em kg mò tiếp được nữa.
anh chỉ em với, rồi từ từ em ngâm cứu, giờ đang gấp gáp mà ngâm hoài không ra nè anh.

Mình mới tìm hướng dẫn cho bạn nè Vào Đây Nha Bạn Cá Ngừ F1 hướng dẫn rất chi tiết Mà ...Nhớ cảm ơn bạn Cá Ngừ F1 Một cái nha hướng dẫn rất hay đó

 

[Nu Ne]

Túm lại bạn muốn làm sheet nào là Main và link đến sheet nào thì mình làm cho thôi nha ... chứ giải thích và hướng dẫn mình kém lắm hỏng làm được. bạn chịu khó tìm trên GPE nha các hướng dẫn cũng rất chi tiết và cụ thể mà . ..
Hình như File bạn úp là của Anhtuan1006 thì phải bạn tìm bài đó có hướng dẫn rất chi tiết mà
Cố giắng lên nha không khó lắm đâu mà

Thân

anh có email kg? anh cho em được không, em gửi cái file nhờ anh làm giúp cái button đó. vì là file nội bộ nên kg đưa lên đây được. thanks anh nhiều.
cảm ơn anh vì cái link dẫn đến bài cùa anh Cá ngừ F1 nhé.

 

[ndu96081631]

cái này em có tham khảo trên diễn đàn, nhưng kg mò theo được, đến đoạn gán tên cho tab WEB thì em kg mò tiếp được nữa.
anh chỉ em với, rồi từ từ em ngâm cứu, giờ đang gấp gáp mà ngâm hoài không ra nè anh.

Nếu dùng Excel 2010 thì làm như sau:
- Click phải vào hình, chọn Format Shape
- Bấm chọn mục Alt Text (mục cuối cùng)

 

[Kiều Mạnh]

anh có email kg? anh cho em được không, em gửi cái file nhờ anh làm giúp cái button đó. vì là file nội bộ nên kg đưa lên đây được. thanks anh nhiều.
cảm ơn anh vì cái link dẫn đến bài cùa anh Cá ngừ F1 nhé.

Xoá hết dữ liệu đi gửi lên mình làm cho nha... chứ mình không biết sử dụng Mail..
Cố giắng lên mà tí nữa thôi là Ok mà

 

[Nu Ne]

Nếu dùng Excel 2010 thì làm như sau:
- Click phải vào hình, chọn Format Shape
- Bấm chọn mục Alt Text (mục cuối cùng)


View attachment 128985

thầy ơi, em làm theo hướng dẫn bài của anhtuan1066 http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet/page10, cũng vào Format Shape, rồi Alt Text, làm y như vậy mà không được thầy ạ. Mà em thấy anh Tuấn để 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,
không biết có bị lỗi chỗ này không? em vào Insert - shape - chọn hình của Rectanges.
Mong thầy giúp đỡ

 

[sealand]

Đã vậy thì dùng toàn bộ bằng Code đi, khỏi phải Link
Bạn tham khảo ví dụ

 

[Nu Ne]

Xoá hết dữ liệu đi gửi lên mình làm cho nha... chứ mình không biết sử dụng Mail..
Cố gắng lên mà tí nữa thôi là Ok mà

Anh cho em hỏi là sau khi anh tạo button thì em có thể đổi tên sheet, đổi tên button được không? nếu không thể thì em giữ nguyên tiếng Nhật (có thể hơi bất tiện cho anh), còn nếu có thể thì em chuyển qua tiếng việt hết để anh giúp em xong thì em đổi lại tên,
thanks anh rất nhiều

 

[Nu Ne]

Đã vậy thì dùng toàn bộ bằng Code đi, khỏi phải Link
Bạn tham khảo ví dụ

dạ đúng như ý em đang muốn làm đó anh. nhưng em thích màu mè hoa lá cành chút xíu.
nhưng em còn chưa làm được cái button đó nữa... hix hix

 

[Kiều Mạnh]

Anh cho em hỏi là sau khi anh tạo button thì em có thể đổi tên sheet, đổi tên button được không? nếu không thể thì em giữ nguyên tiếng Nhật (có thể hơi bất tiện cho anh), còn nếu có thể thì em chuyển qua tiếng việt hết để anh giúp em xong thì em đổi lại tên,
thanks anh rất nhiều

Được hết thoải mái mà Bạn cứ úp file lên GPE rất nhiệt tình sẽ có nhiều bạn. mỗi bạn làm cho một kiểu Thích cái nào thì chơi cái đó thôi ...vô tư đi

 

[ndu96081631]

Đã vậy thì dùng toàn bộ bằng Code đi, khỏi phải Link
Bạn tham khảo ví dụ

Nếu anh dùng code này thì sẽ có nhược điểm: 50 sheet <==> 50 đoạn code. Trong khi của người ta thì bao nhiêu sheet vẫn nhiêu đó code thôi

 

[Kiều Mạnh]

dạ đúng như ý em đang muốn làm đó anh. nhưng em thích màu mè hoa lá cành chút xíu.
nhưng em còn chưa làm được cái button đó nữa... hix hix

Xem hinh rồi tập làm nha.Từ từ rồi sẽ làm được hết
chúc thành công
thân

 

[ndu96081631]

Xem hinh rồi tập làm nha.Từ từ rồi sẽ làm được hết
chúc thành công
thân

Thật ra người ta đang áp dụng ở bài này:
http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet
Vấn đề là đến bước:

- 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)

Người ta chẳng nhìn thấy tab Web nào cả, bởi người ta dùng Excel 2010 còn hướng dẫn trên là áp dụng cho Excel 2003 ---> Thế nên đến đây thì... tịt
Chỉ vậy thôi

 

[Nu Ne]

Được hết thoải mái mà Bạn cứ úp file lên GPE rất nhiệt tình sẽ có nhiều bạn. mỗi bạn làm cho một kiểu Thích cái nào thì chơi cái đó thôi ...vô tư đi

em tạo yêu cầu trong file rồi, giúp em nhé.

 

[Nu Ne]

Thật ra người ta đang áp dụng ở bài này:
http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet
Vấn đề là đến bước:

Người ta chẳng nhìn thấy tab Web nào cả, bởi người ta dùng Excel 2010 còn hướng dẫn trên là áp dụng cho Excel 2003 ---> Thế nên đến đây thì... tịt
Chỉ vậy thôi

dạ, cũng không nhất thiết phải theo bài đó đâu thầy ạ, giống như chết đuối vớ được phao rồi em áp dụng thôi. còn có giải pháp khác thì em cũng áp dụng, cảm ơn thầy.

 

[Kiều Mạnh]

dạ, cũng không nhất thiết phải theo bài đó đâu thầy ạ, giống như chết đuối vớ được phao rồi em áp dụng thôi. còn có giải pháp khác thì em cũng áp dụng, cảm ơn thầy.

Mình làm mới vài cái úp lên cho bạn xem ý sao đã rồi tính tiếp nha..."code trong File là của GPE"
vụ vẽ mấy cái Shapes mình kém lắm nếu bạn thích cái khác thì cứ vẽ vào xong úp lên rồi mình làm link cho

 

[sealand]

Bạn hơi lúng túng 1 chút về Code vậy nên mình thêm 1 dạng khác dễ dùng hơn. Khi bạn thêm sheet thì nó cũng bổ xung luôn vào DS. Ban đổi tên sheet cũng tự động cập nhật. Nếu xóa sheet thì cũng xóa khỏi danh sách.

Khi thêm sheet mới nó cũng đã bổ xung nút Ve Mạin và bạn chỉ việc chép dữ liệu vào

 

[Nu Ne]

Mình làm mới vài cái úp lên cho bạn xem ý sao đã rồi tính tiếp nha..."code trong File là của GPE"
vụ vẽ mấy cái Shapes mình kém lắm nếu bạn thích cái khác thì cứ vẽ vào xong úp lên rồi mình làm link cho

good morning.
vẽ như vậy cũng đẹp rồi mà anh.
nhưng sao mấy cái sheet không có ẩn đi hả a?

 

[Nu Ne]

Bạn hơi lúng túng 1 chút về Code vậy nên mình thêm 1 dạng khác dễ dùng hơn. Khi bạn thêm sheet thì nó cũng bổ xung luôn vào DS. Ban đổi tên sheet cũng tự động cập nhật. Nếu xóa sheet thì cũng xóa khỏi danh sách.

Khi thêm sheet mới nó cũng đã bổ xung nút Ve Mạin và bạn chỉ việc chép dữ liệu vào

ồ,cái này tiện quá anh. e có thể đổi tên hay thêm sheet tùy ý mà nó kg thay đổi.
giữa các sheet vẫn có thể giữ liên kết với nhau được phải kg anh?
em hoàn toàn không biết gì về code luôn á. :-D
em cảm ơn anh rất nhiều. để em sao chép dữ liệu vào thử.

 

[Nu Ne]

Bạn hơi lúng túng 1 chút về Code vậy nên mình thêm 1 dạng khác dễ dùng hơn. Khi bạn thêm sheet thì nó cũng bổ xung luôn vào DS. Ban đổi tên sheet cũng tự động cập nhật. Nếu xóa sheet thì cũng xóa khỏi danh sách.

Khi thêm sheet mới nó cũng đã bổ xung nút Ve Mạin và bạn chỉ việc chép dữ liệu vào

được rồi anh ơi.
anh có thể chỉ em làm như thế nào không? tại em có nhiều file, cần tạo sheet con như vậy, mà không lẽ cứ mỗi lần tạo sheet con lại phải đưa file lên nhờ giúp. Mong anh có chút thời gian chỉ em nhé. Rồi bữa nào em mời anh đi cà phê quán đẹp đẹp. ;-)

 

[Nu Ne]

Bạn hơi lúng túng 1 chút về Code vậy nên mình thêm 1 dạng khác dễ dùng hơn. Khi bạn thêm sheet thì nó cũng bổ xung luôn vào DS. Ban đổi tên sheet cũng tự động cập nhật. Nếu xóa sheet thì cũng xóa khỏi danh sách.

Khi thêm sheet mới nó cũng đã bổ xung nút Ve Mạin và bạn chỉ việc chép dữ liệu vào

em copy dữ liệu vào và được rồi anh ơi.
anh có thể chỉ em làm như thế nào không ạ? bởi em có nhiều file cần tạo sheet con như vậy, mà không lẽ cứ mỗi lần cần tạo lại đưa file lên nhờ giúp. Mong được anh chỉ giáo. Bữa nào em hối lộ anh chầu cà phê Hoa. :-D

 

[sealand]

Mình sơ bộ thế này, bạn mở ra để tìm hiểu thêm:

Tại sheet Main ta đặt 1 loạt các OptionButton gắn với mỗi sheet trong file. Các nút này sẽ được xóa và tạo lại mỗi khi chon xem sheet Main. Như vậy bảo đảm 1 danh sách luôn mới và cập nhật mỗi khi chọn sheet Main. Các OptionButton được link đế ô A1. Khi nhấn nút ô A1 sẽ thể hiện Index của nó. Đồng thời nó gọi luôn Code SeleSh để chuyển sheet

1/ Tại Module Standard: Ta đặt 2 code để di chuyển:

Option Explicit
 
Sub SelSh()
Dim i
ThisWorkbook.Worksheets(Sheet1.[A1]).Visible = -1
ThisWorkbook.Worksheets(Sheet1.[A1]).Select
For i = 1 To ThisWorkbook.Worksheets.Count
If i <> Sheet1.[A1] Then ThisWorkbook.Worksheets(i).Visible = 2
Next
End Sub
 
'-------------------------------------------------------------------------------
 
Sub ReMain()
Dim i
Sheet1.Visible = -1
Sheet1.Select
For i = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(i).Name <> Sheet1.Name _
Then ThisWorkbook.Worksheets(i).Visible = 2
Next
End Sub

2/Tại vùng code của sheet Main: Ta tạo 1 code tự động mớ sheet là tạo lại hệ thống OptionButton đảm bảo việc hệ thống OptionButton luôn mới và cập nhật.

Private Sub Worksheet_Activate()
Dim mObj As Object, Sh As Worksheet, i
Application.ScreenUpdating = False
For Each mObj In Sheet1.Shapes
mObj.Delete
Next
For Each Sh In ThisWorkbook.Worksheets
i = i + 1
With Sheet1.OptionButtons.Add(49.5, 124.5, 158.25, 22.5)
.Name = "Chon_" & i
  .Top = Sheet1.Cells(i, 3).Top
   .Left = Sheet1.Cells(i, 3).Left
     .Height = Sheet1.Cells(i, 3).Height
       .Width = Sheet1.Cells(i, 3).Width
        .Value = xlOff
        .LinkedCell = "$A$1"
       .OnAction = "SelSh"
       .Characters.Text = "Click open : - " & Sh.Name
    End With
Next
Application.ScreenUpdating = True
End Sub

3/Tại vùng Module của ThisWorkbook ta đặt code sau để tao nút về Main cho các sheet mới

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Shapes.AddShape(msoShapeRectangle, 94.5, 12.75, 97.5, 24.75).Select
    With Selection
    .Characters.Text = "Ve Main"
    .ShapeRange.Fill.ForeColor.SchemeColor = 13
    .ShapeRange.Fill.Visible = msoTrue
    .ShapeRange.Fill.Solid
    .Font.ColorIndex = 3
    .HorizontalAlignment = xlCenter
    .OnAction = "ReMain"
    End With
End Sub

 

[Nu Ne]

Mình sơ bộ thế này, bạn mở ra để tìm hiểu thêm:

Tại sheet Main ta đặt 1 loạt các OptionButton gắn với mỗi sheet trong file. Các nút này sẽ được xóa và tạo lại mỗi khi chon xem sheet Main. Như vậy bảo đảm 1 danh sách luôn mới và cập nhật mỗi khi chọn sheet Main. Các OptionButton được link đế ô A1. Khi nhấn nút ô A1 sẽ thể hiện Index của nó. Đồng thời nó gọi luôn Code SeleSh để chuyển sheet

anh ơi, lại có 1 vấn đề phát sinh là các sheet bị hide hết nên em không di chuyển sắp xếp trật tự được. khi em sắp xếp các button -> save, rồi sau đó mở lại thì vẫn trở về vị trí cũ. lý do là em phải đổi visale rồi sắp xếp các sheet phải không anh?

 

[sealand]

Mình thấy cách này cũng hay nhưng không Vẽ Shapes trang trí màu mè dễ thương được ....người ta con gái mà nên hoa lá cành một tí chứ

Hoa lá mà không đảm bảo ổn định chính xác, xếp bấm chạy nhầm sang hàng xóm thì có trời biết chuyện gì xảy ra. Muốn thì cũng được nhưng code rối thêm. Dành khi nào khá rồi thì vẫy vùng tùy thích.

 

[sealand]

Mình sơ bộ thế này, bạn mở ra để tìm hiểu thêm:

Tại sheet Main ta đặt 1 loạt các OptionButton gắn với mỗi sheet trong file. Các nút này sẽ được xóa và tạo lại mỗi khi chon xem sheet Main. Như vậy bảo đảm 1 danh sách luôn mới và cập nhật mỗi khi chọn sheet Main. Các OptionButton được link đế ô A1. Khi nhấn nút ô A1 sẽ thể hiện Index của nó. Đồng thời nó gọi luôn Code SeleSh để chuyển sheet

anh ơi, lại có 1 vấn đề phát sinh là các sheet bị hide hết nên em không di chuyển sắp xếp trật tự được. khi em sắp xếp các button -> save, rồi sau đó mở lại thì vẫn trở về vị trí cũ. lý do là em phải đổi visale rồi sắp xếp các sheet phải không anh?

Minhf đã bổ xung theo yêu cầu, nhập chữ x hay ký tự bất kỳ vào ô E1 để bỏ chế độ ản file

 

[Nu Ne]

Minhf đã bổ xung theo yêu cầu, nhập chữ x hay ký tự bất kỳ vào ô E1 để bỏ chế độ ản file

em cảm ơn sự giúp đỡ của anh nhiều lắm.
chúc anh ngày làm việc vui.

 

[Nu Ne]

Ngườ ta mới làm thử cho bạn mấy Sheet tháng thôi... còn lại là chưa làm Bạn kiểm tra lại xem

dạ được rồi anh ới, em đang dùng file của anh Sealand gửi.
em ngu quá nên anh Kieu Manh làm cơ bản để em mò thêm mà em kg làm tiếp được. :-( đừng la em tội nghiệp.
em cũng cảm ơn sự giúp đỡ nhiệt tinh của anh Kieu Manh nhiều lắm lắm.