共通 処理に要した所要時間を取得
Sub CalculateProcessTimeWithoutSeconds() Dim startTime As Double Dim endTime As Double Dim elapsedTime As Double Dim hou...
VBA侍-SAMURAI
共通 Access 任意フォルダ内のサブフォルダを全て削除 →新たに10個のサブフォルダを作成
Sub CreateSubfolders() Dim fso As FileSystemObject Dim parentFolder As Folder Dim subFolder As Folder Dim folderPath As ...
Excel シートAのテキストがシートBのテキストマスタに存在しない場合はテキストマスタに新規登録する
Sub AddNewTextsToMasterUsingDictionary() ' ライブラリ参照設定済み: Microsoft Scripting Runtime Dim wsSource As Worksheet Dim wsMast...
Excel ステータスバーへの進捗表示（Excel）
Sub prcUpdateStatusBarEvery10Items() Dim i As Long Dim lngTotal As Long ' 例として100件の処理を想定 lngTotal = 100 ' 処理開始前にステータスバーを...
Excel ExcelVBAの進捗表示でホワイトアウトを防ぐ方法
1. 画面更新をオフにする 処理の実行前にApplication.ScreenUpdatingをFalseに設定し、処理が完了したらTrueに戻す。 これにより、処理中の画面の再描画を防ぎ、パフォーマンスを向上させることができる。 Appl...
Access フォームヘッダに設置してある複数のコントロールの値を元にフィルタをセットする
Public Sub prcApplyFiltersFromHeaderControls(frm As Form) Dim strFilter As String Dim ctl As Control ' フォームヘッダのコントロールをルー...
Excel 英字、数値、スペースのみ半角に変換する
Function fncConvertAlphanumericAndSpaceToHalfWidth(strInput As String) As String Dim i As Long Dim strOutput As String: ...
Excel オートフィルタで複数条件をセットする
Sub prcApplyAutoFilterAndColor() Dim ws As Worksheet Dim rng As Range Dim lastRow As Long Dim visibleCells As Range ' シー...
Excel 2つのブックの全セルを比較→異なっている値を出力する
Sub prcCompareSheets() Dim wbkA As Workbook, wbkB As Workbook Dim shtA As Worksheet, shtB As Worksheet Dim rngCell As Ra...
Excel フィルタ抽出状態のセルにユーザー定義関数を入力、可視セルへコピー
Sub prcApplyFormulaWithCondition() ' 概要: D列が空白の場合にフィルタを適用し、条件に合致する可視セルのH列にユーザー定義関数を入力します。 ' H列に数式を入力する前に、表示形式を「数値」に変更し、2...