Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Kết quả 1 đến 3 của 3
  1. #1
    Ngày tham gia
    Nov 2015
    Bài viết
    3

  2. #2
    Ngày tham gia
    Nov 2015
    Bài viết
    3
    Ðề: viết code cho excel tự động nonblank

    tham khảo bài này

    http://www.**************/forum/excel-va-vba/rut-ngan-cong-doan-loc-nay-nhu-nao.146508.html

  3. #3
    Ngày tham gia
    Dec 2015
    Bài viết
    0
    Trích dẫn Gửi bởi takuda_khoad
    bà con có ai biết viết đoạn code cho file excel tự động nonblank (tự lọc những dòng trống khi mình link qua sheet khác).cám ơn
    Cái gốc của nói là Code này bạn ah.



    Mã nguồn PHP:
    [COLOR=#000000]
    [/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"[/COLOR][COLOR=#0000BB]$D[/COLOR][COLOR=#DD0000]$5" [/COLOR][COLOR=#0000BB]Then Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"D9"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Selection[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]AutoFilter Field[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Criteria1[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#DD0000]"<>" [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End Sub [/COLOR] 
    Tác giả:xuanthanh.

    Bạn tùy chọn địa chỉ Cell cho phù hợp, thì mỗi khi bạn chọn 1 tài khoản là nó sẽ tự động Nonblank cho bạn.Khỏi tốn thêm 2 bước nữa.

 

 

Quyền viết bài

  • 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
  •