Excel VBA Sample VBA フォルダ一覧を取得する
VBOption ExplicitConst WS_NAME As String = "一覧"Sub GetFolderNameList() Dim fso As Object Dim pfl As Object Dim fl As Obj...
Excel VBA Sample
Excel VBA Sample Excel VBA VBA 禁則文字をサニタイジング
ファイル・フォルダ名用にサニタイジング※ ファイル・フォルダ名を作成時、利用できな文字があるとエラーになるので、サニタイジングするVB'==========================================' 危険な半角記号を...
Excel VBA Sample VBA 日付シート作成
VBA 指定された年月の日付シート作成VB' 指定された年月の日付シートを作成する'「main」シートのセル【C5】に年、セル【D5】に月をもとに'その月の日付のシートを作成'ユーザ誤って削除した日がある場合は、その日だけのシートを作成' ...
Excel VBA Sample VBA 指定シート以外のシート削除
VB'指定シート以外を削除するSub DeleteSheetsExcept() Const WS_DEF As String = "DEF" Const WS_MAIN As String = "main" Dim ws As Worksh...
Excel VBA Sample VBA 条件書式の削除
選択範囲の条件付き書式の削除VBOption Explicit'=== 高速化 ===Private Sub EnterFast(Optional ByRef prevCalc As XlCalculation = xlCalculatio...
Excel VBA Sample VBA 書式クリア
値は保持して書式だけクリアVB'==============================' 書式：値は保持して書式だけクリア'==============================Public Sub ClearFormatsKe...
Excel VBA Sample VBA 0 の表示/非表示：シート全体
0 の表示：シート全体（ビュー設定）VB'==============================' 0 の表示：シート全体（ビュー設定）'==============================Public Sub ShowZer...
Excel VBA Sample VBA 斜線削除
右上斜線：削除（選択範囲）VB'==============================' 右上斜線：削除（選択範囲）'==============================Public Sub DeleteDiagonal() ...
Excel VBA Sample VBA 0と空白セルのみ斜線を引く
選択セル範囲5000セル以内で、値が０か空白の場合のみ斜線を引くエラーセルはスルーする５０００セル以上になると、フリーズしたようになる可能性があるので、指定している方が安全！'==============================' ...
Excel VBA Sample VBA エラートラップとユーザ定義
エラートラップのMyテンプレート同じ処理コードを書くのは嫌だから、すぐにパーツ化するすごく便利だし、メンテナンス性が向上するただ、エラー制御や処理中断した場合が面倒になってくるんだよね。それで、今回は、すっきりで、テンプレートをつくってみた...