よく読まれている記事一覧 | Excelとか・・・

Excel VBA 空白セル/空白セル以外でフィルタリング

AutoFilter が A列から設置してある場合Sub AutoFilter固定列_空白セルで絞込み()　Dim c As Long　c = Selection.Column　Range("A1").AutoFilter Field:=c, Criteria1:="="End Sub 空白セル以外で絞り込む場合Range("A1").AutoFilter Field:=c, Criteria1:="<>" ========== どんな表にも適用する場合Sub AutoFilter空白セル選択()　Dim AFAdrss As String　　Dim FirstC As String　　Dim CrntField As String　Dim c As String　　Dim FirstRng As String　　Dim p As Variant　　If ActiveSheet.AutoFilterMode = False Then　　End　End If　With ActiveSheet.AutoFilter.Range　　FirstC = .Column　　　AFAdrss = .Address　　End With　c = Selection.Column - FirstC + 1　　p = Split(AFAdrss, ":")　　FirstRng = p(0)　Range(FirstRng).AutoFilter Field:=c, Criteria1:="="End Sub空白セル以外で絞り込む場合　Range(FirstRng).AutoFilter Field:=c, Criteria1:="<>" [引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

Excel VBA　画面表示倍率５％ずつ拡大/縮小

画面表示倍率を５％単位で拡大/縮小Sub 画面倍率5パーセント拡大()　Dim z As Long　　z = ActiveWindow.Zoom　　ActiveWindow.Zoom = z + 5End Sub　　==========　　Sub 画面倍率5パーセント縮小()　Dim z As Long　z = ActiveWindow.Zoom　ActiveWindow.Zoom = z - 5 　End Sub[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

Excelとか・・・

Excel VBA 空白セル/空白セル以外でフィルタリング

Excel VBA 画面表示倍率５％ずつ拡大/縮小

Excel VBA　画面表示倍率５％ずつ拡大/縮小