[發問] 請問隱藏儲存格的寫法

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-6-1 11:17 | 只看該作者

回復 1# 3083kbna

Sub nn()
Dim Rng As Range
[E3:F1000].EntireRow.Hidden = False
For Each a In [E3:F1000]
If a = 0 Or a = "" Then
If Rng Is Nothing Then
Set Rng = a
Else
Set Rng = Union(Rng, a)
End If
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
End Sub

複製代碼

學海無涯_不恥下問

帖子: 5
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: windowsXP
軟體版本: 2003
閱讀權限: 10
來自: 桃園
註冊時間: 2010-5-6
最後登錄: 2010-7-15

3^#

發表於 2010-6-1 14:16 | 只看該作者

回復 2# Hsieh

請問Hsieh版主，若E3:F1000列，只要（E欄或F欄）其中一欄有數字的話就不用隱藏，那要怎麼改？謝謝！

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-6-1 14:49 | 只看該作者

回復 3# 3083kbna

Sub nn()
Dim Rng As Range
[E3:F1000].EntireRow.Hidden = False
For Each a In [E3:E1000]
If Application.Sum(a.Resize(, 2)) = 0 Then
If Rng Is Nothing Then
Set Rng = a
Else
Set Rng = Union(Rng, a)
End If
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
End Sub

複製代碼

學海無涯_不恥下問

帖子: 5
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: windowsXP
軟體版本: 2003
閱讀權限: 10
來自: 桃園
註冊時間: 2010-5-6
最後登錄: 2010-7-15

5^#

發表於 2010-6-1 15:18 | 只看該作者

謝謝！Hsieh 版主，已經可以了，由於您的幫助使我的工作速度能獲得改善，再次謝謝！

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-6-1 15:45 | 只看該作者

本帖最後由 GBKEE 於 2010-6-1 15:49 編輯

請問Hsieh版主，若E3:F1000列，只要（E欄或F欄）其中一欄有數字的話就不用隱藏，那要 ...
3083kbna 發表於 2010-6-1 14:16

不論數字正負或為0 嗎?
Sub Ex()
Dim Rng As Range
Set Rng = [E3:F1000]
Rng.EntireRow.Hidden = True
Rng.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Hidden = False
End Sub

版主 Rank: 7 Rank: 7 Rank: 7

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

7^#

發表於 2010-6-1 21:31 | 只看該作者

這個應該也可以用進階篩選的方式來解答

若用上定義與VBA結合就更好了

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

帖子: 5
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: windowsXP
軟體版本: 2003
閱讀權限: 10
來自: 桃園
註冊時間: 2010-5-6
最後登錄: 2010-7-15

8^#

發表於 2010-6-3 09:16 | 只看該作者

真不好意思！沒表達清楚！應該是E3:F1000兩欄中的儲存格同時是 0 或空白（不包括負數或文字），才需要隱藏，Hsieh 版主的這個VBA：會把E欄儲存格是零和空白的那一列隱藏，請問要如何改呢？謝謝！
Sub nn()
Dim Rng As Range
[E3:F1000].EntireRow.Hidden = False
For Each a In [E3:E1000]
  If Application.Sum(a.Resize(, 2)) = 0 Then
   If Rng Is Nothing Then
      Set Rng = a
      Else
      Set Rng = Union(Rng, a)
   End If
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
End Sub
會把E欄儲存格是零和空白的那一列隱藏

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-6-3 14:30 | 只看該作者

For Each a In [E3:E1000]
If (a= 0 or a="") and (a.offset(,1)=0 or a.offset(,1)="" )Then

學海無涯_不恥下問

帖子: 5
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: windowsXP
軟體版本: 2003
閱讀權限: 10
來自: 桃園
註冊時間: 2010-5-6
最後登錄: 2010-7-15

10^#

發表於 2010-6-7 09:43 | 只看該作者

回復 9# Hsieh

謝謝Hsieh版主，改過以後已完全符合需求，再次謝謝！