Access フォームヘッダに設置してある複数のコントロールの値を元にフィルタをセットする
Public Sub prcApplyFiltersFromHeaderControls(frm As Form) Dim strFilter As String Dim ctl As Control ' フォームヘッダのコントロールをルー...
VBA侍-SAMURAI
Access 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...
Excel ワークシートの先頭行を固定
Sub prcFreezeTopRow()' ワークシートの先頭行を固定する処理' アクティブなワークシートを対象とするWith ActiveWindow ' 既存の固定を解除 .FreezePanes = False ' 先頭行を固定 ....
Excel オートフィルタで抽出した後、ユーザー定義関数を入力
Sub prcApplyUDFToVisibleCellsAfterFilteringBlanksInDColumn() ' 変数宣言 Dim ws As Worksheet ' 処理対象のワークシート Dim rngVisible As ...
Excel オートフィルタのセット
Sub prcApplyAutoFilterToExtractBlanksBasedOnBColumn() ' 変数宣言 Dim ws As Worksheet ' 処理対象のワークシート ' 処理対象のワークシートを設定 Set ws =...
Excel 行ずれ（上）チェック
Sub prcCheckValuesDynamicRangeAndSkipEmpty() ' 変数宣言 Dim lngLastRow As Long ' A列のデータ入力セル終端 Dim lngRow As Long ' 繰り返し処理で使用...
Excel 指定フォルダのCSVファイルを、同一階層にある別フォルダに移動
Sub prcMoveCsvFilesToBup() ' 概要: 指定されたフォルダ内のCSVファイルを、同一階層にある「bup」フォルダに移動します。 Dim fso As FileSystemObject Set fso = New F...