Tìm kiếm Sheet trong Excel

[masteroffice1988]

Mọi người ơi? Làm sao có thể tìm kiếm một sheet trong một workbook.

 

[Hai Lúa Miền Tây]

Mọi người ơi? Làm sao có thể tìm kiếm một sheet trong một workbook.

Clịck chuột phải vào mấy nút tới, lui bên góc trái màng hình click chọn sheet cần xem, nếu không thấy sheet đó click chọn vào More sheets....
Bạn nên tạo 1 danh mục sheet và link tới các sheet, như vậy dể quản lý hơn.

Cách làm như sau:
-Tạo 1 sheet mới có tên là INDEX
-Nhấn tổ hợp phím Alt+F11
-Copy và dán đoạn code sau vào cửa sổ VBA

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
       .Columns(1).ClearContents
       .Cells(1, 1) = "DANH SACH TEN SHEET"
       .Cells(1, 1).Name = "Index"
    End With
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("H1").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="TRO VE TRANG CHINH"
End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub

Bạn tham khảo file nhé

 

[An_Truong]

Mình cũng muốn tìm kiếm thông tin trong một sheet Excel và hiển thị màu khác cho cell mà thông tin tìm thấy.
Mình có thấy file tìm kiếm của một bạn up trên diễn đàn nhưng chưa biết cách đem nó vào sheet của mình thế nào. Mình là newbie nên câu hỏi ngớ ngẩn này xin bỏ qua nhé.

 

[Ếch Xanh]

Muốn tìm sheet cũng thật là dễ, có sẳn trong Excel luôn! Bạn chỉ cần đặt con trỏ vào góc bên trái của bảng tính, nơi đầu thanh cuộn ngang, có mấy mũi tên để di chuyển, rồi click phải chuột, sẽ thấy một bảng tên các sheet, bạn muốn chọn sheet nào thì cứ click vào tên sheet đó thôi.

 

[khuuquytrung]

Add In tìm kiếm Sheet trong Excel Tự viết

Tìm mãi trên mạng mấy ngày không thấy, mình tự viết VB dùng tạm.

1. Dùng cho Excel 2003: http://www.mediafire.com/?11ft5cdcnphs39v
2. Dùng cho Excel 2007: http://www.mediafire.com/?69c49d2765hyfgp

Mọi chi tiết xin liên hệ: khuuquytrung@yahoo.com.vn

 

[phucnd2504]

Chào các bạn, mình đang tính toán kết quả thỉ nghiệm với 300 mẫu thí nghiệm khác nhau nhưng cách tính giống nhau hoàn toàn trên 300 sheet từ sheet 1 đến sheet 300(mình đặt tên sheet chính là tên mẫu thí nghiệm). Bây giờ mình muốn tổng hợp kết quả(phần kết quả là một bảng giá trị) của 300 mẫu thí nghiệm đã được tính ở 300 sheet vào một sheet kết quả thì phải làm thế nào? Cảm ơn.

 

[bachlan0604]

Ban oi, vui long cho minh biet cua so VBA o cho nao vay, minh dang su dung excell 2007.


=====================
HLMT: Lần sau nên viết TV có dấu nha bạn.

 

[nhapmon]

Ban oi, vui long cho minh biet cua so VBA o cho nao vay, minh dang su dung excell 2007.

bạn nhấn phím Alt_F11

 

[vuthidung101]

Clịck chuột phải vào mấy nút tới, lui bên góc trái màng hình click chọn sheet cần xem, nếu không thấy sheet đó click chọn vào More sheets....
Bạn nên tạo 1 danh mục sheet và link tới các sheet, như vậy dể quản lý hơn.

Cách làm như sau:
-Tạo 1 sheet mới có tên là INDEX
-Nhấn tổ hợp phím Alt+F11
-Copy và dán đoạn code sau vào cửa sổ VBA

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
       .Columns(1).ClearContents
       .Cells(1, 1) = "DANH SACH TEN SHEET"
       .Cells(1, 1).Name = "Index"
    End With
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("H1").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="TRO VE TRANG CHINH"
End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub

Bạn tham khảo file nhé

Anh/chị cho e hỏi: Làm sao tạo tiếp các sheet tiếp theo. E dùng File anh/chị gửi rồi mà thêm sheet nó không link sang sheet index?

 

[giaiphap]

Anh/chị cho e hỏi: Làm sao tạo tiếp các sheet tiếp theo. E dùng File anh/chị gửi rồi mà thêm sheet nó không link sang sheet index?

Bạn nháy chọn sheet Index thử xem kết quả.

 

[haonlh]

Chào các bạn, mình đang tính toán kết quả thỉ nghiệm với 300 mẫu thí nghiệm khác nhau nhưng cách tính giống nhau hoàn toàn trên 300 sheet từ sheet 1 đến sheet 300(mình đặt tên sheet chính là tên mẫu thí nghiệm). Bây giờ mình muốn tổng hợp kết quả(phần kết quả là một bảng giá trị) của 300 mẫu thí nghiệm đã được tính ở 300 sheet vào một sheet kết quả thì phải làm thế nào? Cảm ơn.

Gửi file lên. Có thể xóa đi chỉ để từ 3 đến 10 sheet.