Mọi người ơi? Làm sao có thể tìm kiếm một sheet trong một workbook.
- #2
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
Mã:
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é
-
LIET KE SHEET VA LINK.xls
56 KB · Đọc: 820
Lần chỉnh sửa cuối: 26/8/09
- #3
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é.
- #4
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. Picture1234.jpg 20.2 KB · Đọc: 396
- #6
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.
- #7
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
- #8
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
- #9
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.... Cách làm như sau: Mã:
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.
-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ổ VBAPrivate 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?
- #10
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ả.
- #11
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.