kazz

Excel VBA Sample

VBA 日付シート作成

VBA 指定された年月の日付シート作成' 指定された年月の日付シートを作成する'「main」シートのセル【C5】に年、セル【D5】に月をもとに'その月の日付のシートを作成'ユーザ誤って削除した日がある場合は、その日だけのシートを作成' 作成...
Excel VBA Sample

VBA 指定シート以外のシート削除

'指定シート以外を削除するSub DeleteSheetsExcept() Const WS_DEF As String = "DEF" Const WS_MAIN As String = "main" Dim ws As Workshee...
Excel VBA Sample

VBA 条件書式の削除

選択範囲の条件付き書式の削除Option Explicit'=== 高速化 ===Private Sub EnterFast(Optional ByRef prevCalc As XlCalculation = xlCalculationA...
Excel VBA Sample

VBA 書式クリア

値は保持して書式だけクリア'==============================' 書式:値は保持して書式だけクリア'==============================Public Sub ClearFormatsKeep...
Excel VBA Sample

VBA 0 の表示/非表示:シート全体

0 の表示:シート全体(ビュー設定)'==============================' 0 の表示:シート全体(ビュー設定)'==============================Public Sub ShowZero_...
Excel VBA Sample

VBA 斜線削除

右上斜線:削除(選択範囲)'==============================' 右上斜線:削除(選択範囲)'==============================Public Sub DeleteDiagonal() Di...
Excel VBA Sample

VBA 0と空白セルのみ斜線を引く

選択セル範囲5000セル以内で、値が0か空白の場合のみ斜線を引くエラーセルはスルーする5000セル以上になると、フリーズしたようになる可能性があるので、指定している方が安全!'==============================' ...
Excel VBA Sample

VBA エラートラップとユーザ定義

エラートラップのMyテンプレート同じ処理コードを書くのは嫌だから、すぐにパーツ化するすごく便利だし、メンテナンス性が向上するただ、エラー制御や処理中断した場合が面倒になってくるんだよね。それで、今回は、すっきりで、テンプレートをつくってみた...
Excel VBA Sample

VBA ファイルオブジェクト利用 コピーと移動

ファイルのコピー(CopyFile)Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFile "C:\MyTest\sample.tx...
Excel VBA Sample

VBA ファイルオブジェクト 小ネタ

ファイル存在確認(FileExists)' === ▼ 1. ファイル存在確認(FileExists) ===Public Sub Tip_FileExists() Dim fso As Object: Set fso = CreateOb...