THÔNG BÁO LỊCH TẬP HUẤN CỦA CỤC THUẾ VỀ CHÍNH SÁCH THUẾ MỚI
TỪ NGÀY 17/07/2014 ĐẾN NGÀY 23/07/2014


DOWNLOAD CÁC VĂN BẢN HIỆU LỰC NĂM 2014 VỀ THUẾ TNDN - TNCN - GTGT - HÓA ĐƠN

Trang 1/2 12 cuốicuối
kết quả từ 1 tới 10 trên 16

Ðề tài:
Copy dữ liệu từ các sheet nhanh nhất

  1. #1
    Tham gia ngày
    Dec 2008
    Bài gởi
    77
    Cảm ơn
    17
    Được cảm ơn 11 lần trong 11 bài viết
    Rep Power
    0

    Copy dữ liệu từ các sheet nhanh nhất


  2. Các thành viên đã cảm ơn Loan1989 về bài viết hữu ích này :


  3. # ADS
    DanketoanAds Circuit advertisement
    Tham gia ngày
    Always
    Bài gởi
    Many
     
  4. #2
    Tham gia ngày
    Aug 2006
    Nơi ở
    Chỗ nào ở được, chỗ đó là nhà
    Bài gởi
    933
    Cảm ơn
    453
    Được cảm ơn 2,167 lần trong 969 bài viết
    Rep Power
    47

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Trích Nguyên văn bởi Loan1989 View Post
    Giả sử mình có một fiel exel gồm 10 sheet.Các bạn có biết cách nảo để tạo một sheet gồm dữ liệu từ 10 sheet này mà không dùng lệnh copy từng sheet không"?
    Thanks
    Nếu tất cả các sheet đều có cấu trúc tương tự nhau thì có thể dùng công cụ Consolidate để "gộp" dữ liệu các bảng lại. Vừa xem chi tiết được, vừa có thể xem số liệu tổng kết được.

    Bạn có thể xem Help về cách sử dụng Consolidate.
    Để có thể hoàn thành cuộc hành trình ngàn dặm, đầu tiên phải bước đi cái đã.

  5. Có 3 thành viên sau đây cảm ơn phatnq2002 vì bài viết có ích này:


  6. #3
    Tham gia ngày
    Oct 2008
    Bài gởi
    86
    Cảm ơn
    17
    Được cảm ơn 55 lần trong 40 bài viết
    Rep Power
    12

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Trích Nguyên văn bởi Loan1989 View Post
    Giả sử mình có một fiel exel gồm 10 sheet.Các bạn có biết cách nảo để tạo một sheet gồm dữ liệu từ 10 sheet này mà không dùng lệnh copy từng sheet không"?
    Thanks
    Không copy bằng tay thì dùng VBA vậy! Consolidate chưa chắc đã làm được đâu nếu dử liệu không phải dạng số

  7. Các thành viên đã cảm ơn atmt17 về bài viết hữu ích này :


  8. #4
    Tham gia ngày
    Dec 2008
    Bài gởi
    77
    Cảm ơn
    17
    Được cảm ơn 11 lần trong 11 bài viết
    Rep Power
    0

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Mình lại chẳng biết gì về VBA cả.Có bạn nào có đoạn code upload lên cho mình được không?
    Thanks

  9. #5
    Tham gia ngày
    Oct 2008
    Bài gởi
    186
    Cảm ơn
    51
    Được cảm ơn 14 lần trong 14 bài viết
    Rep Power
    0

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Trích Nguyên văn bởi Loan1989 View Post
    Giả sử mình có một fiel exel gồm 10 sheet.Các bạn có biết cách nảo để tạo một sheet gồm dữ liệu từ 10 sheet này mà không dùng lệnh copy từng sheet không"?
    Thanks
    bạn dùng hàm indirect nhé, nó sẽ cho kết quả của các sheet về 1 sheet.

  10. #6
    Tham gia ngày
    Jan 2008
    Bài gởi
    3,887
    Cảm ơn
    843
    Được cảm ơn 3,735 lần trong 1,770 bài viết
    Rep Power
    90

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Trích Nguyên văn bởi Loan1989 View Post
    Giả sử mình có một fiel exel gồm 10 sheet.Các bạn có biết cách nảo để tạo một sheet gồm dữ liệu từ 10 sheet này mà không dùng lệnh copy từng sheet không"?
    Thanks
    Thay vì làm như thế thì ngay từ đầu bạn đừng gõ vào 10 sheet riêng biệt mà nên gõ chung vào 1 sheet.
    Chỉ cần thêm 1 cột ghi số phân loại.
    Về sau khi cần lấy số liệu của 1 sheet (theo ý ban đầu của bạn) thì chỉ cần dùng bộ lọc mà lấy ra.

    Ví dụ thay vì lập sổ Nhật ký chung cho từng tháng trên từng sheet, hãy lập chung cho cả năm, và thêm cột "THÁNG" vào đó.

    Bạn cảm thấy khó khăn?

    Đó là vì Excel là phần mềm xử lý bảng tính chứ không phải là phần mềm quản lý cơ sở dữ liệu. Khó khăn là đương nhiên.

  11. Có 2 thành viên sau đây cảm ơn muontennguoi vì bài viết có ích này:


  12. #7
    Tham gia ngày
    Oct 2008
    Bài gởi
    86
    Cảm ơn
    17
    Được cảm ơn 55 lần trong 40 bài viết
    Rep Power
    12

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Trích Nguyên văn bởi muontennguoi View Post
    Thay vì làm như thế thì ngay từ đầu bạn đừng gõ vào 10 sheet riêng biệt mà nên gõ chung vào 1 sheet.
    Chỉ cần thêm 1 cột ghi số phân loại.
    .
    Cái này tôi đồng ý (vì tôi vẫn thường làm vậy), những giả sử dử liệu đang có của người ta là nhiều sheet thì sao
    Tóm lại: Sang Giai pháp Excel mà hỏi, vì tôi có file nhưng chẳng biết gữi lên bằng cách nào...
    Nói ngắn gọn là:
    - Dùng vòng lập quét qua các sheet (với đ/k bỏ qua sheet cần tổng hợp)
    - Copy và paste nối đuôi vào sheet cần tổng hợp
    Cực kỳ đơn giản (bạn có thể record macro rồi chỉnh sửa lại code)

  13. #8
    Tham gia ngày
    Jan 2008
    Bài gởi
    3,887
    Cảm ơn
    843
    Được cảm ơn 3,735 lần trong 1,770 bài viết
    Rep Power
    90

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Trong trường hợp đó thì việc xác định các sheet cần thiết cũng cần có quy tắc nhất định.

    Ví dụ các sheet được đặt tên là "NKC-T01", "NKC-T02" ... thì mới có thể dựa theo quy tắc đặt tên đó là tính toán tên sheet cần thiết.

    Vậy, thực ra thao tác chọn vùng rồi nhấn Ctrl+C rồi sang sheet tổng hợp, đặt con trỏ ở cột A, nhấn ctrl+mũi tên xuống, xuống dòng trống kế tiếp và cuối cùng nhấn ctrl+V, tuy kể ra thì dài nhưng làm thì rất nhanh, chỉ vài cú click và cài cú gõ là xong.
    Đó là cách chung nhất, hiệu quả nhất.

    Thêm:
    Để chọn nguyên vùng data liên kế nhau bạn hãy nhấn chuột phải trên menu hoặc toolbar, rồi chọn Customize. Ở tab Commands, trong khung Categoires chọn Edit, trong khung Commands chọn Select current region (có hình vuông đen với 4 mũi tên chĩa ra 4 góc) rồi lôi nó bỏ vào thanh công cụ để dùng về sau.

    -----------
    Nếu bạn viết code thì nó đại khái như sau (Giả sử tên sheet không có quy tắc nào cả, phải chỉ ra chính xác tên từng sheet):
    Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro recorded 19/01/2009 by Duong Thai Binh
    '
    '
    Dim sheet_TH As String
    sheet_TH = "sheet-TH"

    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets(sheet_TH).Select
    Range("A1").Select
    ActiveSheet.Paste

    Sheets("Sheet2").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(sheet_TH).Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste

    Sheets("Sheet3").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(sheet_TH).Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste

    ' Ở trên là copy 3 sheet sang sheet tổng hợp, bạn hãy copy thêm ra thành 10 đoạn cho đủ 10 sheet.
    ' Nhớ sửa lại tên sheet cho đúng.

    End Sub
    Lưu ý code trên cần điều kiện:
    - VÙng data nằm bắt đầu ở ô A1 trên tất cả các sheet.
    - Tên các sheet là không có quy tắc gì cả thành ra cần phải sửa lại (gõ lại code ở trên) cho đúng với file của bạn.
    - Nếu tên các sheet là có quy tắc thì bạn có thể dùng vòng lặp cho chương trình gọn hơn.

    Tóm lại đoạn chương trình như vậy cũng có hơi là củ chuối, chẳng có ích lợi gì nhiều, trừ khi nó nằm trong 1 chương trình lớn.

  14. Có 2 thành viên sau đây cảm ơn muontennguoi vì bài viết có ích này:


  15. #9
    Tham gia ngày
    Oct 2008
    Bài gởi
    86
    Cảm ơn
    17
    Được cảm ơn 55 lần trong 40 bài viết
    Rep Power
    12

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Giã sử bạn muốn copy tất cả các sheet vào 1 sheet tên Main
    Vậy ta làm như sau:

    Mã HTML:
    Option Explicit
    Private Sub Worksheet_Activate()
      Dim Sh As Worksheet
      Application.ScreenUpdating = False
      Range("A1").CurrentRegion.ClearContents
      For Each Sh In Worksheets
        If Sh.Name <> "Main" Then
           Sh.Range("A1").CurrentRegion.Offset(1).Copy
           Range("A65536").End(xlUp).Offset(1).PasteSpecial 3
        End If
      Next Sh
      Application.CutCopyMode = False
    End Sub
    Cứ việc nhập liệu thoải mái, chỉ cần khi bạn chọn vào sheet Main là dử liệu sẽ được cập nhật
    Code này code dử liệu, bỏ qua tiêu đề
    thay đổi nội dung bởi: atmt17, 20-01-2009 lúc 08:05

  16. Các thành viên đã cảm ơn atmt17 về bài viết hữu ích này :


  17. #10
    Tham gia ngày
    Jan 2008
    Bài gởi
    3,887
    Cảm ơn
    843
    Được cảm ơn 3,735 lần trong 1,770 bài viết
    Rep Power
    90

    Ðề: Copy dữ liệu từ các sheet nhanh nhất

    Nếu khi bắt đầu chạy mà không biết chắc sheet nào đang là hiện thời (con trỏ đang nằm ở bất kỳ chỗ nào) thì đọan trên chỉ cần thêm 1 dòng:


    Option Explicit
    Private Sub Worksheet_Activate()
    Dim Sh As Worksheet
    Application.ScreenUpdating = False
    sheets("Main").select
    Range("A1").CurrentRegion.ClearContents
    For Each Sh In Worksheets
    If Sh.Name <> "Main" Then
    Sh.Range("A1").CurrentRegion.Offset(1).Copy
    Range("A65536").End(xlUp).Offset(1).PasteSpecial 3
    End If
    Next Sh
    Application.CutCopyMode = False
    End Sub

  18. Có 2 thành viên sau đây cảm ơn muontennguoi vì bài viết có ích này:


Trang 1/2 12 cuốicuối

Thông tin về chủ đề

Users Browsing this Thread

Hiện đang có 1 người xem chủ đề này. (0 thành viên và 1 khách)

Chủ đề tương tự

  1. Trả lời: 3
    Bài mới gởi: 28-08-2010, 02:22
  2. Máy in
    By Cỏ may in forum TIN HỌC THƯỜNG THỨC
    Trả lời: 1
    Bài mới gởi: 28-11-2008, 05:06
  3. Tình hình tài chính doanh nghiệp của bạn có lành mạnh?
    By chitam in forum Phân tích báo cáo tài chính
    Trả lời: 8
    Bài mới gởi: 24-05-2008, 10:31

Quyền hạn

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •