Ẩn dòng không chứ dử liệu

[trthuat]

Ẩn dòng không chứa dử liệu

Đã xem trên GPE về đề tài ẩn dòng nhưng không biết làm. Do đó nhờ quí anh chị giúp code ẩn dòng trống nằm luôn trong Macro có sẳn. Files đính kèm. Cám ơn các anh chị nhiều.

 

[SA_DQ]

Option Explicit
Sub HidenRows()
 Dim lCol As Integer, lRw As Long, Jj As Long
 Dim Rng As Range, hRng As Range
 
 Cells.EntireRow.Hidden = False
 With WorksheetFunction
   If .CountA(Cells) > 0 Then
      lRw = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, _
         SearchDirection:=xlPrevious).Row
      lCol = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
         SearchDirection:=xlPrevious).Column
      Set Rng = Cells(lRw, lCol)
      For Jj = 1 To lRw
         If .CountA(Cells(Jj, 1).Resize(, lCol)) = 0 Then
            If hRng Is Nothing Then
               Set hRng = Cells(Jj, 1)
            Else
               Set hRng = Union(hRng, Cells(Jj, 1))
            End If
         End If
      Next Jj
   End If
 End With
 hRng.EntireRow.Hidden = True
End Sub

​

 

[trthuat]

Cám ơn bạn HYen17 quan tâm nhưng thật ra tôi không rành VBA nên không biết gắn vào đâu để chạy. Bạn làm ơn xem và gắn luôn vào files tôi gởi. Cám ơn bạn nhiều.

 

[trthuat]

Phiền bạn lần nửa. Sao chọn dòng 2 sheet2 rồi bấm IN SH. Kết quả nó không ẩn dòng trống nào hết (dòng trống: dòng 20 đến 26 và 34 - 39, dòng 41, dòng 44-45 của sheet1).
Làm thêm cách 2: tại sheet1 cho chạy macro hidenRows của bạn, kết quả cũng không ẩn dòng nào mà báo lổi.

 

[SA_DQ]

À file đưa lên là file cũ; Xin lỗi vì sự lú lẫn nha!

Macro đưa lên thì lại đúng đó;

Nhưng macro này nên thêm câu lệnh chọn trang tính thứ nhất (Sheet1)

(Trong file đã đổi rồi)

 

[trthuat]

À file đưa lên là file cũ; Xin lỗi vì sự lú lẫn nha!

Macro đưa lên thì lại đúng đó;

Nhưng macro này nên thêm câu lệnh chọn trang tính thứ nhất (Sheet1)

(Trong file đã đổi rồi)

Đêm qua chờ khuya quá mà không ai trả lời nên ngủ sớm. Sorry các bạn. Cám ơn HYen17 quan tâm nhưng lần này khi chay macro của bạn nó lại ẩn các dòng không chứa dử liệu và không chứa công thức, còn các dòng mình cần thì nó không ẩn. Để diển giải rỏ ý xin quí vị xem trong files tôi đính kèm.

 

[SA_DQ]

Tại anh, tại ả; Tại cả đôi đường!

Vì moåi khaùch haøng xeùt nghieäm khaùc nhau neân xuaát hieän nhieàu doøng roång in ra troâng khoâng ñeïp.
Muoán tröôùc khi in: caùc doøng khoâng döû lieäu aån, sau ñoù hieän trôû laïi. Caùm ôn quí vò nhieàu.

Hãy xem lần nữa trong file sau:

(Sẽ gỡ file bài trên để thu hồi tài nguyên)
​

 

[trthuat]

Cám ơn bạn HYen17 nhiều nhé. Đã đúng ý mình rồi.

 

[ndu96081631]

Đã xem trên GPE về đề tài ẩn dòng nhưng không biết làm. Do đó nhờ quí anh chị giúp code ẩn dòng trống nằm luôn trong Macro có sẳn. Files đính kèm. Cám ơn các anh chị nhiều.

Tôi đang thắc mắc là tại sao bạn không dùng AutoFilter với điều kiện NonBlanks cho lẹ nhỉ? (đâu cần code)

 

[trthuat]

Tôi đang thắc mắc là tại sao bạn không dùng AutoFilter với điều kiện NonBlanks cho lẹ nhỉ? (đâu cần code)

Thật tình tôi là người "ngoại đạo" nên không rành lắm về Excel do vậy đâu biết còn cách khác hay hơn, cái macro tôi làm được chẳng qua học lóm trên GPE mà thôi. Tiện thể ndu96081631 giúp cách mới đi. Cám ơn bạn nhiều

 

[ndu96081631]

Thật tình tôi là người "ngoại đạo" nên không rành lắm về Excel do vậy đâu biết còn cách khác hay hơn, cái macro tôi làm được chẳng qua học lóm trên GPE mà thôi. Tiện thể ndu96081631 giúp cách mới đi. Cám ơn bạn nhiều

Thì như vầy đây (xem hình và file đính kèm)

 

[trthuat]

Thì như vầy đây (xem hình và file đính kèm)

View attachment 42362

Cách của ndu96081631 khá hay và đơn giản nửa nhưng khi in ra làm sao cho mất các hình tam giác để khỏi che tiêu đề.

 

[ndu96081631]

Cách của ndu96081631 khá hay và đơn giản nửa nhưng khi in ra làm sao cho mất các hình tam giác để khỏi che tiêu đề.

Cứ in thử xem ---> Theo tôi thì hình tam giác ấy sẽ không được in đâu!
Nếu không được, bạn bấm tổ hợp phím Ctrl + ^ thử xem

 

[trthuat]

Cứ in thử xem ---> Theo tôi thì hình tam giác ấy sẽ không được in đâu!
Nếu không được, bạn bấm tổ hợp phím Ctrl + ^ thử xem

Đúng là in tốt rồi . Cán ơn ndu96081631 nhiều nhé. Thêm được 1 cách mới. Nếu không thì tôi "cắt cổ gà" lại nhờ đến "dao thiến trâu" mất.

 

[nam2806]

Phát triển ý của ndu tí, bạn nào thích thì vận dụng thử: dùng AutoFilter với điều kiện NonBlanks nhưng ghi lại bằng record new macro, sau đó tạo một cái nút và gán macro này vào.Khi cần hiện ra tất cả các dòng, sử dụng chức năng Filter -->Show All ghi lại macro này, làm tương tự và ta sẽ có 2 nút, thoắt ẩn thoắt hiện.

 

[vanbongtiensinh]

Bạn đã có nhiều ngiải pháp trả lời. Tuy nhiên mình gửi bạn một ý kiến tham khảo trong cách làm viêc. Mình đã làm thành công trong công tác thống kê về y tế. Mình làm tại khoa GMHS BVĐK Tỉnh phú thọ.
Bạn lên lập 01 fine về EXCEL gồm 01 sheet nhập thông tin, 01 sheet đọc in ra kết quả của bất kỳ bệnh nhân nào. nó chỉ hiển thị nhửng chỉ số bạn nhập kết quả. Nó còn có giá tri thống kê cho cả nhiều năm, hay 01 năm hay 01 tháng, 01 ngày.
Trong sheet "nhập" bạn nhập họ tên số thẻ BHYT, Đ/c, Chẩn đoán, ngày tháng. Bạn cho XN sinh hoá và kết quả2 cột, XN nước tiểu và kết quả 02 cột...Bạn háy ngiên cứu nhé .EXCEL tuệt vời đó....

 

[trthuat]

Sau chỉnh code(files bài số 7), sử dụng tốt nhưng nếu đặt password cho code trong VAProject Properties báo lỗi không cho lưu (hình đính kèm). Không biết tại sao, nhờ quí vị giúp đở chỉnh code giúp. Cám ơn nhiều.

View attachment 42379

 

[trthuat]

Nhờ quí vị giúp tiếp cho tôi đi. Tôi bí lối rồi.

 

[ndu96081631]

Sau chỉnh code(files bài số 7), sử dụng tốt nhưng nếu đặt password cho code trong VAProject Properties báo lỗi không cho lưu (hình đính kèm). Không biết tại sao, nhờ quí vị giúp đở chỉnh code giúp. Cám ơn nhiều.

View attachment 42379

Tôi đã thử protect VBA rồi save file nhưng không thấy bất kỳ hiện tượng báo lổi gì như bạn đã nói!
Bạn có thể đưa đoạn code mà bạn đã chỉnh lại lên đây không?
(Không xem được hình bạn đưa lên)

 

[trthuat]

Tôi đã thử protect VBA rồi save file nhưng không thấy bất kỳ hiện tượng báo lổi gì như bạn đã nói!
Bạn có thể đưa đoạn code mà bạn đã chỉnh lại lên đây không?
(Không xem được hình bạn đưa lên)

Đây files đính kèm Pass: gpe. Hình báo lổi tôi dán luôn lên sheet2 Cám ơn bạn quan tâm