Tổng hợp tên sheet trong worbook!

[tranviethung]

Tôi có file VD: gồm 6 sheet (sheet 1-6); Cần xây dựng Macro tự động lấy tên của 6 sheet này và dữ liệu ô D5 trong 6 sheet ra sheet khác(sheet này sẽ được tạo mới ở vị trí đầu tiên; ở đây ví dụ sheet tạo ra có tên TH). Trong sheet TH sẽ gồm 2 cột: cột A chứa tên các sheetname; cột B chứa các giá trị ô D5 tương ứng của từng sheetname). Mọi người xem file nhé!

 

[Po_Pikachu]

Ô D3 trên các sheet chứ bạn, có phải D5 đâu? Đây là Macro theo yêu cầu của bạn!

Sub layten() Dim i As Byte, k As Byte k = 1 For i = 1 To Worksheets.Count If Sheets(i).Name  "TH" Then Sheets("TH").Range("A" & k) = Sheets(i).Name Sheets("TH").Range("B" & k) = Sheets(i).Range("D3") k = k + 1 End If Next End Sub

Mery Christmas & Happy New Year!

 

[sonchi]

Xl các bác em dân mới ra nghề, ko rành lắm về Macro. Nhưng em thấy đoạn này hay wá mà ko bít dùng? Bác chỉ em cách sử dụng nó với? Thông cam nha!

 

[vucuong51]

Hay quá, đây là vấn đề tôi muốn hỏi, tôi xin cảm ơn Po_Pikachu. Tôi muốn hỏi thêm: có cách nào làm cho các giá tri của cột B ( ở Sheet TH) link với giá trị của D3 (của các Sheet khác không? Tức là khi thay đổi các giá trị của D3 thì ở Sheet TH cũng thay đổi tương ứng, xin cảm ơn