ちょっと仕事で使う為に久しぶりにExcelVBAを触った。 簡易的なイメージビューアー的なものを作った。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) '選択範囲を変更したときに実行 MIN_ROW = 2 If (Not Cells(Target.Row, Target.Column)…