Excel 複数フィールドを検索対象とし、キーワードに基づいて動的にフィルタを生成する処理
Sub ApplyConcatenatedFieldsFilterAndCondition() Dim strFilter As String Dim strConcatFields As String Dim strKey1 As Str...
VBA侍-SAMURAI
Excel 共通 アルファベットをカナに変換
事前設定：Microsoft Scripting Runtimeへの参照設定Function ConvertAlphabetToKatakana(str As String) As String Dim alphaToKana As Dic...
Excel 指定フォルダ内のファイル数を取得する関数（サブフォルダ内のファイル数もカウント）
Function GetTotalFileCount(folderPath As String) As Long Dim fso As FileSystemObject Dim folder As Folder Dim subFolder ...
共通 処理に要した所要時間を取得
Sub CalculateProcessTimeWithoutSeconds() Dim startTime As Double Dim endTime As Double Dim elapsedTime As Double Dim hou...
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に戻す。これにより、処理中の画面の再描画を防ぎ、パフォーマンスを向上させることができる。Applica...
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: ...