Đăng ký học Excel và VBA cùng GPE tháng 11 - TPHCM

Đăng ký học Excel và phân tích số liệu cùng GPE tháng 12 - TPHCM

Mua sách "VBA trong Excel - Cải thiện và tăng tốc" tái bản

Không copy các dòng đã ẩn?

Thảo luận trong 'Những vấn đề chung' bắt đầu bởi lqhung1107, 21 Tháng chín 2007.

  1. lqhung1107

    lqhung1107 Thành viên mới

    Chào các bạn!!!!
    Mình coppy các dòng trong excel, khi past các dòng này thì các dòng bị ẩn (chúng nằm ẩn xen kẻ trong các dòng không ẩn) cũng được past theo!!!!.
    Bạn nào biết cách copy và past mà không bị hiển thị các dòng đã bị ẩn không???? xin các bạn giúp mình với!!!!!
    +-+-+-+
     
  2. ThuNghi

    ThuNghi Hãy cho rồi sẽ nhận!

    Chọn khối cần chép, nhấn F5, chọn special, đánh dấu vào Visible Cell onlys. Sau đó copy và paste.
     
  3. anhtuan1066

    anhtuan1066 Thành viên gạo cội

    Cũng giống cách của ThuNghi.. nhưng recode nó thành 1 macro thì dễ sử dụng hơn...
    Bạn Insert 1 module và dán code này vào:

    Giờ thì bạn quét chọn nhóm cell cần copy, chạy code trên... sang nới cần paste và paste như bình thường...
    Mến
    ANH TUẤN
     
  4. nvson

    nvson Geotechnics

    Còn 1 cách này nữa, cũng khá đơn giản thôi:
    - Chọn vùng bạn định Copy (bao gồm cả những dòng ẩn)
    - Nhấn Alt+;
    - Nhấn Ctrl+C , Ctrl+V
    .....
    (Thực chất cũng là cách của bác ThuNghi thôi)
     
  5. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    Một bác dùng Chính quy, một bác dùng VBA, một bác dùng phím tắt cho cùng một cách làm.
    Giống như một bài toán có 3 cách giải khác nhau.

    Vấn đề nào cũng được khám phá ra theo nhiều cách thì hay biết nhường nào.
    (Tình yêu cũng vậy mà . . be be be)

    Thân!
     
  6. lqhung1107

    lqhung1107 Thành viên mới

    Xin các bác giúp đỡ!!!!!!!

    Giải pháp Excel thật tuyệt vời!!!!
    Cảm ơn các bạn đã chỉ giáo, xin đa tạ, đa tạ!!!!!!!!!!!!!!!!!
    Mình xin chúc cho ngôi nhà "Giải pháp excel" của chúng ta ngày một xôm tụ
    --=0 --=0 --=0
     
  7. duyhoa83

    duyhoa83 Thành viên chính thức

    Chào các Pác,

    Nhân tiện đây cho em hỏi thế mấy cái còn lại thì tác dụng thế nào nhỉ? (row difference, column difference, precedent....) Vì nhiều thứ em trông lạ quá.
    Ah, với trường hợp tính tổng thì sao ạ? Làm thế nào để tính tổng các dòng visable.

    Mong các Pác giúp đỡ. Em cám ơn các Pác nhiều.
     
    Lần chỉnh sửa cuối: 24 Tháng chín 2007
  8. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    Bạn hãy nghiên cứu hàm Subtotal nhé
    1. Trên GPE
    2. Trong help của excel
    Thân!
     
  9. how_nice

    how_nice Thành viên mới

    Nhân tiện các bác cho em hỏi làm thế nào khi paste thì ko paste vào các dòng đã ẩn. Vì nhiều khi em paste, sau đó unhide thì em thấy là paste vào cả những dòng đã ẩn????
     
  10. binh191983

    binh191983 Thành viên mới

    Mình thấy bài này mới cần câu trả lời nhất nè, mình đã tìm trên mạng nhiều rồi nhưng chưa có ai trả lời được cả ,các cao thủ trả lời giúp nhé
     
  11. TKT

    TKT Thành viên tiêu biểu

    Bạn đọc bài số hai của anh ThuNghi ở trên.
     
  12. HYen17

    HYen17 Thành viên cằn cỗi.

    Chắc bạn hiểu sai rồi đó! & không đơn giản chút nào!
    Bạn thử chép dữ liệu từ 3 cột & 7 hàng đến [G1] nhưng cột 'H' đang bị ẩn là thấy vấn đề này hoàn toàn khó chịu!
    Nhưng không phải không làm được; Đây là vài bước khởi đầu
    PHP:
     
    Option Explicit
    Sub CopyToHideRegion
    ()
     
    Dim SoO As LongSoCot As ByteSoHang As Long
     Dim DesCot 
    As ByteDesHg As Long
     Dim DesRng 
    As RangeClls As Range
     Dim StrC 
    As String
     
     Sheet1
    .[a1].CurrentRegion.Select
     SoCot 
    Selection.Columns.Count:      SoHang Selection.Rows.Count
     Set DesRng 
    Sheet1.[g1].Resize(SoHangSoCot)
     
    DesCot DesRng.SpecialCells(xlCellTypeVisible).Columns.Count
     DesHg 
    DesRng.SpecialCells(xlCellTypeVisible).Rows.Count
     
    If DesCot SoCot And DesHg SoHang Then
       StrC 
    "Bang Nhau"
     
    ElseIf DesCot SoCot And DesHg SoHang Then
       StrC 
    "Cung be hon"
     
    ElseIf DesCot SoCot Then
       
    For Each Clls In [g1].Resize(, SoCot)
       
    ' . . . . '
       
    Next Clls
     
    Else
       
    StrC "It Hang Hon"
     
    End If
    End Sub
     
  13. nhung.xitrum

    nhung.xitrum Thành viên mới

    thanks nhe!
    vay ma mo wai ko ra ^_^
     
  14. phungdt

    phungdt Thành viên mới

    Mình làm theo cách của ThuNghi nhưng mà sau khi copy và paste nó mất hết công thức. (giống như nó paste value). Có cách nào copy paste xong mà vẫn còn các đặc tính như trước không?
    Thân!
     
  15. ngochan1901

    ngochan1901 Thành viên mới

    cám ơn <3

    cám ơn :*********************
     
  16. Manofwar77

    Manofwar77 Thành viên chính thức

    Em cần copy 1 đoạn dữ liệu và paste vào 1 đoạn khác nhưng ko đè vào các ô đã hide trong đó thì làm sao?
     

    Các file đính kèm:

  17. Manofwar77

    Manofwar77 Thành viên chính thức

    Vẫn chưa có bác nào cao thủ làm ơn giúp hộ em vụ này với ạ? Thanks các bác
     
  18. doatmenhhon

    doatmenhhon Thành viên tiêu biểu

    1. Bôi vùng cần copy nhấn Ctrl + G chọn special, chọn visible cells only
    2. Chạy marco: Ấn Alt +F8 rồi run code cuchuoi sau:
      Code:
      Mã:
      Sub cuchuoi()
      Set from = Selection
      Set too = Application.InputBox("Select range to copy selected cells to", Type:=8)
      For Each cell In from
      cell.Copy
      For Each thing In too
      If thing.EntireRow.RowHeight > 0 Then
      thing.PasteSpecial Paste:=xlPasteValues
      Set too = thing.Offset(1).Resize(too.Rows.Count)
      Exit For
      End If
      Next
      Next
      End Sub
    3. Chọn vùng cần paste rồi nhấn ok.
     
  19. Manofwar77

    Manofwar77 Thành viên chính thức

    Cảm ơn bác nhưng tôi vẫn chưa thấy được bác ạ. Ko biết có chỗ nào sai sót ko. Bác có thể cho xin file excel kết quả dc ko ạ. Cảm ơn bác nhiều.
     
  20. doatmenhhon

    doatmenhhon Thành viên tiêu biểu

    Sorry bạn mình đã check lại nếu cột copy không ẩn thì chỉ cần Ctrl+C luôn không cần chọn SPECIAL[​IMG], chọn visible cells only và cũng chỉ copy được từng cột 1. Mình sẽ cố gắng cải tiến copy nhiều hơn.
     

Chia sẻ trang này