Chủ đề: Hỗ trợ code tạo mục lục.
-
09-06-2013, 05:46 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 6
Hỗ trợ code tạo mục lục.
Hi mọi người,
Nhờ mọi người hỗ trợ giúp mình cái này với. Mình có 1 file excel có nhiều sheet, mỗi sheet có tiêu đề mỗi sheet bắt đầu từ ô A3. Mình muốn khi chạy chương trình thì sẽ tạo thêm 1 sheet có tên Mucluc liệt kê tất cả các tiêu đề của tất cả các sheet trong file excel đó, chi tiết xem trong file đính kèm, Mong mọi người giúp đỡ.
Thanks mọi ngườiView more random threads:
- Viết đoạn code cho nút lệnh SAVE ?
- cách dùng hàm Table
- Hàm chuyển số sang chữ trong excel
- Các ví dụ về Form, Combo box, list box ...rất hay
- Chương trình theo dõi Văn bản, giấy mời, hồ sơ thẩm định Bồi thường.
- PHẦN MỀM KẾ TOÁN EXCEL
- giúp mình với
- Em chào các anh chị ,em là thành viên mới !
- Nhập trùng dữ liệu 1 trong 2 cột thì hiện hộp thoại thông báo
- Bạn nào giúp mình code cái này với
-
11-13-2013, 06:57 PM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Hỗ trợ code tạo mục lục.
Ok, list cả sheet name và mục lục
Sub ListSheetsAndTitles()
Dim ws As Worksheet
Dim x As Integer
x = 1
Sheets("Mucluc").Range("A:A").Clear
For Each ws In Worksheets
Sheets("Mucluc").Cells(x, 1) = ws.Name & " " & ws.Cells(3, 1).Value
x = x + 1
Next ws
End Sub
:cheer:
-
11-24-2013, 01:45 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Hỗ trợ code tạo mục lục.
YÊU CẦU:
// Khi chạy macro chương trình sẽ tạo ra sheet có tên là Mucluc liệt kê tên các Bảng ( tiêu đề) có trong các Sheet còn lại. VD như ở đây là Bang 1, Bang 5, Bang 3.
// Khi mình click vào ô A1 (Bang 1 Danh sach bán) trong mục lục này thì sẽ chuyển đến Sheet 2, ô A3 (Bang 1 Danh sach bán), tương tự như vậy cho cái ô còn lại
Nếu người dùng add thêm 1 sheet thì chương trình sẽ tự thêm tên Bảng của sheet đó vào sheet Mucluc.
Câu 1 đã làm rồi
Hôm snow day nằm nhà lai rai, nên làm câu 2 nhé
Copy và Past vào trong ThisWorkbook . Viết kiểu này là Event, click vào row Mucluc là chạy
Option Explicit
Public Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim iFind
Dim iLoop As Long
Dim iFound As Range
Dim ws As Worksheet
Dim x As Integer
Worksheets("Mucluc").Activate
iFind = ActiveCell
On Error Resume Next
For iLoop = ActiveSheet.Index + 1 To Sheets.Count
With Sheets(iLoop)
Set iFound = .UsedRange.Find(What:=iFind, After:=.Cells(3, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not iFound Is Nothing Then
Application.Goto iFound, True
Exit For
End If
End With
Next iLoop
End Sub
Viết VBA thích hơn kiểu dùng Link sẽ ko học được gì hết
Câu 3 để dịp khác nhé
Sửa lai đoạn cho nó ngắn
Sheets("Mucluc").Cells(x, 1) = ws.Cells(3, 1).Value
Chữ Việt dài Excel bên này ko đọc được FONTS
-
11-24-2013, 02:42 PM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Hỗ trợ code tạo mục lục.
Nếu người dùng add thêm 1 sheet thì chương trình sẽ tự thêm tên Bảng của sheet đó vào sheet Mucluc
Chạy ListSheetsAndTitles()
Event tự động biết
That 's all
-
12-17-2013, 03:19 AM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Hỗ trợ code tạo mục lục.
đây là code tự động tạo mục lục e ko thích cách này lắm.
E muốn tạo các nút ấn link đến hơn, bác nào biết chỉ giúp em với ... mấy hôm nay em đang "vái tứ phương" vì ko biết cách viết code
chả là e có 1 file 12 sheet trừ 3 sheet chính (TENKH, CDPS, MENU), 3 sheet này em để mặc định là ẩn, còn 9 sheet mà em muốn nhóm 3 sheet một để khi ấn nút A sẽ hiện 3 sheet nhóm 1, ấn nút B sẽ hiện 3 sheet nhóm 2, ấn nút C sẽ hiện 3 sheet nhóm 3 (e ko muốn thêm sheet mục lục như trên mà chỉ muốn gói gon trong file làm việc cũ của mình nên đặt các nút ấn ở sheet chính MENU)
Bác nào biết chỉ giúp em với, e cảm ơn !!!
-
12-17-2013, 03:28 PM #6Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 23
Ðề: Hỗ trợ code tạo mục lục.
Tạo nút link
1- Trong Sheet1 , Click Shapes
2- Chọn đại hình rectagular
3- Chỉnh cho nó to hay nhỏ tùy ý
4- RIGHT click vào nó , chọn Edit Text
5- Type chữ gì tùy ý (vi du: Sheet2)
6- RIGHT click vào nó lại, chọn Hyperkink
4- Chọn Place in This Document
5- Chọn Sheet2 (để Hyperlink chạy đến đó)
6- OK
Dự án căn hộ cao cấp Eaton Park được phát triển bởi Gamuda Land độc đáo bền vững tầm nhìn rộng bài trí hài hòa. Eaton Park độc đáo bền vững giá ưu đãi phú hợp văn hóa. Dự án khẳng định thương hiệu,...
Eaton Park tiện ích hạng sang vị trí đẹp