Set a = .FindNext(a) If a Is Nothing Then Exit Do Loop While a.Address <> firstAddress End If End With End Function そしてFunctionからの戻り値を変数に;納後、2行目のIf分でブレークポイントを設定した際の関数の戻り値が以下となります。
"A1"はセル番地なので、シート関数と同じ見た目になるように大文字で入れる事をお勧めします。 プロシージャーについて プロシージャーは、同じ標準モジュールに複数書くことができます。 プロシージャー名の付け方にはいくつかの制限があります。 ✅英数字(全角半角)、漢字、記号はアンダ...
VBAでFormatDateTime関数を使用して、日付または時刻をコンピューターの地域の設定で指定されている形式に従った文字列型に変換する方法をご説明します。コンピューターの地域の設定を生かすケースがあまりないと思いますが、国を跨いだ日本
With imCalendar1 'カレンダーを複数選択モードに設定します。 .MultiSelect = imMultiSelectSimple '以下の日付を選択状態にします。 With .Selections .Add "1999/4/1" .Add "1999/4/8" .Add "1999/4/15" .Add "1999/4/22" .Add "1999/4/29" End With End With...