〔EXCEL〕SUMPRODUCT/COUNTIF-計算不重覆個數--h016

【如何計算一個範圍內不重覆值的個數】

有些公式"講"起來容易，"理解"起來難~
所以直接留下組合好的公式去套用好了…

若要取A1:A100間不重覆的值
=SUMPRODUCT(1/COUNTIF(統計範圍,統計範圍))
=SUMPRODUCT(1/COUNTIF(A1:A100,A1:A100))

※ 此範圍內必需連續有值的狀態，空白會造成錯誤

﹤太長的說明連我都會滑呀滑的過呀﹥


相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

〔VBA〕Protect/Unprotect-保護與解鎖--v042

【將工作表進行保護及解鎖】

'單純鎖定工作表(不更改預設鎖定條件)
ActiveSheet.Protect
'對應解鎖
ActiveSheet.Unprotect

'鎖定工作表並加上密碼
ActiveSheet.Protect Password:="****"
'對應解鎖
ActiveSheet.Unprotect Password:="****"



相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

〔VBA〕AutoFilter-取得自動篩選狀態--v041

【如何取得自動篩選狀態】

為何要判斷自動篩選狀態?
因為在無自動篩選時，去設定清除篩選選項會出錯呀~

If ActiveSheet.AutoFilter Is Nothing Then
    '無自動篩選
    '加入自動篩選(篩選王小明)
    ActiveSheet.Range("A1:A100").AutoFilter Field:=1, Criteria1:="王小明"
Else
    '有自動篩選
    '清除篩選選項

    ActiveSheet.AutoFilterMode=False

End If

範例語法2：

'若有自動篩選，則移除自動篩選(做為加入自動篩選前的確認動作)

If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFilterMode = False



更正：

ActiveSheet.ShowAllData

測試：ActiveSheet.AutoFilter Is Nothing無法判別是否有在篩選狀態，若在無篩選狀態，ShowAllData會產生Error

相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※