〔VBA〕Columns-隱藏或顯示一整欄--v049

  

【如何隱藏或顯示一整欄】

Columns("A:B").EntireColumn.Hidden = True/False

範例應用：

設置一個checkbox，勾選時顯示該欄，不勾選則隱藏

Private Sub chkShow01_Change()

    Columns("J:L").EntireColumn.Hidden = Not (chkShow01.Value)

End Sub

相關課程：


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

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

Search Post

Label :

〔EXCEL〕樣式-更改預設超連結的格式--h017

 

【如何一次更改預設的超連結樣式】

有沒有人跟我一樣覺得Excel預設超連結藍字底線很醜>"<

尤其是整個表格字型有調整，色系統規範時，加一個超連結會瞬間覺得無言~

其實你可以自行設定超連結樣式的…

做法很簡單~~

1. 先在表內插入一個超連結，記得要先有超連結，因為表內沒有時，第2步打開來會看到不超連結樣式!
2.常用>儲存格樣式>在「超連結」上按右鍵>修改

改成自己需要的格式即大功完成了~


相關課程：


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

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

Search Post

Label :

〔VBA〕FollowHyperlink-範例：點選2下連結外部網站--v048

  

【】

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    '確認Double Click的儲存格範圍要求

    '連結到外部股票資訊網站並開啟指定資訊

    If Target.Row > 8 And Target.Column = 8 And Target.Text <> "" Then

        ThisWorkbook.FollowHyperlink "https://goodinfo.tw/StockInfo/StockDetail.asp?STOCK_ID=" & Target.Text

        Cancel = True

    End If

End Sub

相關課程：


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

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

Search Post

Label :

〔VBA〕AutoFilter-自動篩選指定值(部份符合)--v047

  

【自動篩選指定值-部份符合】

'若工作表有自動篩選，先行移除自動篩選設定

'依據範圍加入自動篩選

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

    ActiveSheet.Range("$J$10:$R$2000").AutoFilter Field:=1, Criteria1:="=*" & Range("R7") & "*", Operator:=xlAnd

#範圍包含標題列
#條件前後加*為模糊查詢

相關課程：


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

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

Search Post

Label :

〔VBA〕AutoFilter-自動篩選指定值(完全符合)--v046

 

【自動篩選指定值-完全符合】

'若工作表有自動篩選，先行移除自動篩選設定

'依據範圍加入自動篩選

#注意範圍【包含篩選的標題列】

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

ActiveSheet.Range("$W$10(含標題列):$W$10000").AutoFilter Field:=1, Criteria1:="ABC"

相關課程：


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

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

Search Post

Label :

〔VBA〕AutoFilter-如何篩選多個值--v045

 

【篩選多個值】

'若工作表有自動篩選，先行移除自動篩選設定

'先將篩選條件值塞入arrCT()陣列

'加入自動篩選條件

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

    Dim arrCT() As String

    ActiveSheet.Range("$G$10:$G$10000").AutoFilter Field:=1, Criteria1:=arrCT, Operator:=xlFilterValues

相關課程：


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

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

Search Post

Label :

〔VBA〕AutoFilter-篩選儲存格為空白的項目--v044

 

【篩選儲存格為空白的項目】

'若工作表有自動篩選，先行移除自動篩選設定

'依據範圍加入自動篩選儲存格為空白的項目

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

    ActiveSheet.Range("$W$10:$W$10000").AutoFilter Field:=1, Criteria1:="="

相關課程：


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

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

Search Post

Label :

〔VBA〕AutoFilter-依據顏色進行篩選--v043

 

【依據儲存格的顏色進行篩選】

'若工作表有自動篩選，先行移除自動篩選設定

'依據範圍加入自動篩選顏色為黃色

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

    ActiveSheet.Range("$W$10:$W$10000").AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor

相關課程：


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

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

Search Post

Label :

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

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

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

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

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

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


相關課程：


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

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

Search Post

Label :

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

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

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

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



相關課程：


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

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

Search Post

Label :

〔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/

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

Search Post

Label :