For文とIF文を組み合わせたVBAサンプルの実行結果