For Each In～Next で選択したセルを指定してループ処理したVBAサンプルの実行結果
