GetOpenFilenameメソッドを使ってファイル選択ダイアログを開くと、カレントフォルダが表示されます。 任意のフォルダを指定したいときは、カレントフォルダを移動してからGetOpenFilenameメソッドを使います。 ファイルを選択しなかったときの処理もしてお…

データの状態を色で識別するのはあまり好きではありませんが どうしてもそうしたい時があります。 そういう時はユーザー定義関数で。 Function ColorCount(R1 As Range, C As Range) As Long Dim r As Range Application.Volatile 'ユーザー定義関数を自動再…

セルをダブルクリックするごとに色を変えたい。 そんなときはイベントプロシージャを使います。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B7:H12")) Is Nothing Then Exit Sub '指…