Mọi người ơi? Làm sao có thể tìm kiếm một sheet trong một workbook.
masteroffice1988 đã viết: Mọi người ơi? Làm sao có thể tìm kiếm một sheet trong một workbook.
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é
Lần chỉnh sửa cuối: 26/8/09
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é.
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.
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.
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.
Chỉnh sửa lần cuối bởi điều hành viên: 27/12/12
Hai Lúa Miền Tây đã viết: 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?
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.