彰化一整天的論壇

 找回密碼
 立即註冊
搜索
查看: 116|回復: 7

隱藏資料值為0或沒有資料的列

[複製鏈接]
發表於 2018-2-1 10:35:16 | 顯示全部樓層 |閱讀模式
本帖最後由 luckysan 於 2018-2-2 08:13 編輯

老師您好,

請見附件, 想請問有甚麼方法可以將沒有資料的列折疊起來(隱藏起來) 而不顯示?

to  imingho 老師~請見sample加入迴圈後, 沒有看到變化... 若真的不行沒有關係, 謝謝您!!



Sample.xls

63.5 KB, 下載次數: 1

售價: 1 金錢  [記錄]  [購買]

Sample 加入迴圈.xls

79 KB, 下載次數: 3

售價: 1 金錢  [記錄]

回復

使用道具 舉報

發表於 2018-2-1 13:56:00 | 顯示全部樓層
您好,
     您可用迴圈去讀取每一個列數.若所有的列數都沒資料就將其隱藏否則顯示.
  1. Rows("1:1").EntireRow.Hidden = True '設定第1列隱藏
  2. Rows("1:1").EntireRow.Hidden = False '設定第1列顯示
複製代碼

請試著寫看看,有問題再提問.
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-2-2 08:14:31 | 顯示全部樓層
imingho 發表於 2018-2-1 13:56
您好,
     您可用迴圈去讀取每一個列數.若所有的列數都沒資料就將其隱藏否則顯示.

請看上方有加入sample 加入迴圈檔案
回復 支持 反對

使用道具 舉報

發表於 2018-2-2 10:17:26 | 顯示全部樓層
luckysan 發表於 2018-2-2 08:14
請看上方有加入sample 加入迴圈檔案

您好,
      是否上傳錯檔案.我只看到我提示您的語法.沒看到您寫的迴圈及判斷.
exel_20180202_01.png

1.沒有迴圈的程式

回復 支持 反對

使用道具 舉報

發表於 2018-2-9 16:58:36 | 顯示全部樓層
imingho 發表於 2018-2-2 10:17
您好,
      是否上傳錯檔案.我只看到我提示您的語法.沒看到您寫的迴圈及判斷.
1.沒有迴圈的程式

你好
程式碼你參考,
Sub HiddenRow()
Dim i, j As Integer
j = 5
For i = 2 To 15
Rows(i).EntireRow.Hidden = (Cells(i, j).Value = "" And Cells(i, j + 1).Value = "" And Cells(i, j + 2).Value = "" And Cells(i, j + 3).Value = "" And Cells(i, j + 4).Value = "")
Next
   
End Sub

也請教老師一下,能在簡化嗎
回復 支持 反對

使用道具 舉報

發表於 2018-2-9 17:27:07 | 顯示全部樓層
bao 發表於 2018-2-9 16:58
你好
程式碼你參考,
Sub HiddenRow()

bao您好,
      可以在VBA中使用excel工作表函數來減化程式.
  1. Sub 收合()
  2.    
  3.    
  4.     Dim i  As Integer
  5.    
  6.    
  7.     For i = 2 To 15
  8.         If Excel.WorksheetFunction.CountA(Range("E" & i & ":" & "I" & i)) > 0 Then
  9.             Rows(i).EntireRow.Hidden = False
  10.         Else
  11.             Rows(i).EntireRow.Hidden = True
  12.         End If
  13.     Next
  14.    


  15. End Sub
複製代碼

Sample 加入迴圈.xls

63 KB, 下載次數: 4

售價: 2 金錢  [記錄]

回復 支持 反對

使用道具 舉報

發表於 2018-2-9 21:23:44 | 顯示全部樓層
謝謝老師,了解
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-2-13 16:32:00 | 顯示全部樓層
謝謝Bao跟老師!!
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-2-25 15:40 , Processed in 0.040409 second(s), 13 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表