lấy dữ liệu từ nhiều sheet (1 người xem)

[hoangminhtien]

em có bài toán nhờ mọi người giúp, em có file có rất nhiều sheet, có sheet tổng hợp sẽ lấy dữ liệu từ các sheet còn lại. yêu cầu ghi trong file, mọi người giúp em với nhé!

 

[Po_Pikachu]

Bạn dùng code này nha!

Sub chay() k = 1 For i = 1 To Worksheets.Count If Sheets(i).Name  "tong hop" Then     Range("K" & k).Value = Sheets(i).Range("A1").Value     k = k + 1 End If Next End Sub

Thân.

 

[hoangdanh282vn]

em có bài toán nhờ mọi người giúp, em có file có rất nhiều sheet, có sheet tổng hợp sẽ lấy dữ liệu từ các sheet còn lại. yêu cầu ghi trong file, mọi người giúp em với nhé!

Bạn xem code này nhé, với bao nhiêu sheet cũng ok.
"TH" là tên của sheet tổng hợp

Sub GetData()
Dim i, Sh As Long
[A:B].Clear
r = 1
For Sh = 1 To Worksheets.Count
    If Sheets(Sh).Name <> "TH" Then
        Cells(r, 1) = "Sheet " & Sheets(Sh).Name
        Cells(r, 2) = Sheets(Sh).[A1]
        r = r + 1
    End If
Next
End Sub

 

[hoangminhtien]

rất cám ơn Po_Pikachu và hoangdanh282vn.code của các bạn rất đúng với ý của mình. bây giờ mình muốn nó thực hiện 1 cách tự động hơn, tức là giả sử mình sẽ thêm 1 sheet f, thì giá trị A1 của sheet f sẽ tự động cập nhật vào sheet TH mà không cần phải bấm thêm bất kỳ 1 nốt gì nữa. các bạn xem có được không giúp mình với nhé!

 

[ndu96081631]

rất cám ơn Po_Pikachu và hoangdanh282vn.code của các bạn rất đúng với ý của mình. bây giờ mình muốn nó thực hiện 1 cách tự động hơn, tức là giả sử mình sẽ thêm 1 sheet f, thì giá trị A1 của sheet f sẽ tự động cập nhật vào sheet TH mà không cần phải bấm thêm bất kỳ 1 nốt gì nữa. các bạn xem có được không giúp mình với nhé!

Đặt code trên vào sự kiện Worksheet_Activate là xong ---> Sau khi bạn thêm, bớt sheet, chỉ cần chọn vào sheet TH là code chạy
Cách làm:
- Click phải chuột vào sheet TH, chọn View code
- Copy đoạn code ở bài trên, paste vào và sửa lại chút ít:

Private Sub Worksheet_Activate()
.....................
.......Code here.........
.....................
End Sub

Thật ra bài này cũng có thể làm bằng công thức, và cũng có khả năng cập nhật khi thêm hoặc xóa bớt sheet

 

[hoangminhtien]

Đặt code trên vào sự kiện Worksheet_Activate là xong ---> Sau khi bạn thêm, bớt sheet, chỉ cần chọn vào sheet TH là code chạy
Cách làm:
- Click phải chuột vào sheet TH, chọn View code
- Copy đoạn code ở bài trên, paste vào và sửa lại chút ít:

Private Sub Worksheet_Activate()
.....................
.......Code here.........
.....................
End Sub

Thật ra bài này cũng có thể làm bằng công thức, và cũng có khả năng cập nhật khi thêm hoặc xóa bớt sheet

rất cám ơn bác ndu96081631, em đã làm được rồi. bác có thể giúp em làm bài này bằng công thức được không ạ!

 

[salam]

rất cám ơn bác ndu96081631, em đã làm được rồi. bác có thể giúp em làm bài này bằng công thức được không ạ!

Bạn xem trong file kèm nhé.

 

[thuyyeu99]

giả sử em có 1000 sheet (1,2,3....,1000) mà em chỉ muốn lấy dữ liệu từ sheet 20 đến sheet 1000, còn 10 sheet đầu không lấy thì làm sao (tên sheet là 1,2,3...,10).lấy từ ô A1 đến I20

 

[ThuNghi]

giả sử em có 1000 sheet (1,2,3....,1000) mà em chỉ muốn lấy dữ liệu từ sheet 20 đến sheet 1000, còn 10 sheet đầu không lấy thì làm sao (tên sheet là 1,2,3...,10).lấy từ ô A1 đến I20

Ex2003 có 256 Sh lấy đâu ra 1000 sh.
For i =10 to ESh
if sheet(ShName) <> "..."
code
end if

 

[thuyyeu99]

em thi em chưa làm tới 1000 sheet nhưng làm trên 390 sheet rồi Excell 2003

 

[salam]

em thi em chưa làm tới 1000 sheet nhưng làm trên 390 sheet rồi Excell 2003

Bạn chỉ cách làm sao để có hơn 256 sheet trong excel 2003
cho mình với.
Cám ơn nhiều nhé.

 

[thuyyeu99]

Em copy ra
đây ví dụ:
http://www.4shared.com/file/68175490/3c132987/aaaaLinkToSheet.html

 

[ThuNghi]

Tôi tạo thử 1000 Sh trong Ex 2003 mà vô tư. Giờ mới biết. Cám ơn ThuyYeu99 nhiều.

Sub taoSh()
For i = 1 To 1000
Sheets.Add
Next
msgbox sheets.count
end usb

 

[thuyyeu99]

Tôi tạo thử 1000 Sh trong Ex 2003 mà vô tư. Giờ mới biết. Cám ơn ThuyYeu99 nhiều.

Sub taoSh()
For i = 1 To 1000
Sheets.Add
Next
msgbox sheets.count
end usb

Em mới là người phải cảm ơn anh về Exclel em có biết gì đâu nhờ anh phân tích máy bữa nên em mới làm thử

 

[salam]

Mình cứ nghĩ nó chỉ được 256 sheet như đặt trong option giờ mới biết excel cho nhiều sheet đến vậy.
Thank!

 

[thuyyeu99]

Mình cứ nghĩ nó chỉ được 256 sheet như đặt trong option giờ mới biết excel cho nhiều sheet đến vậy.
Thank!

có gì đâu anh tự em copy thử mới ra đó chứ cũng nhờ anh Thu Nghi

 

[hoangdanh282vn]

Mình đã test thử, > 11,000 sheet. treo máy luôn.
Không biết là exel có nhiều sheet thề để làm gì nhỉ

 

[ThuNghi]

Mình đã test thử, > 11,000 sheet. treo máy luôn.
Không biết là exel có nhiều sheet thề để làm gì nhỉ

Vậy Danh test thêm 1 cái nữa nhé. i=1000 thôi.
Và lấy dữ liệu A1:B1 đưa vào Sheet Data xem thử nó lấy được mấy sh. Cám ơn. Không can đảm.

 

[salam]

Trong excel help có cái này.

 

[nguyenhongphong]

Bạn xem trong file kèm nhé.

Thầy Salam ơi, em chưa hiểu mấy cái Name của Thầy ạ, nhất là mấy cái Name GET.WORKBOOK(ROW(INDIRECT("A1"))) ạ.
Thầy giải thích giúp e ạ!