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