Pages

▼

2020-10-28

〔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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

2020-10-27

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

 

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


有沒有人跟我一樣覺得Excel預設超連結藍字底線很醜>"<
尤其是整個表格字型有調整，色系統規範時，加一個超連結會瞬間覺得無言~

其實你可以自行設定超連結樣式的…
做法很簡單~~
1. 先在表內插入一個超連結，記得要先有超連結，因為表內沒有時，第2步打開來會看到不超連結樣式!
2.常用>儲存格樣式>在「超連結」上按右鍵>修改


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


相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

2020-10-26

〔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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

〔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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

〔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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

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

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

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

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

〔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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※