回答編集履歴
2
書式の改善
test
CHANGED
@@ -7,6 +7,6 @@
|
|
7
7
|
そのまま-1列移動ししようとして、選択範囲がシート外にはみ出てしまうため定義エラーとなるのではないでしょうか。
|
8
8
|
|
9
9
|
どの範囲に色を付けたいのか不明なため、答えになるようなコードを出すのは不可能ですが、エラーを無くすだけであれば、
|
10
|
-
-`
|
10
|
+
- `Offset(5, -1)`の-1を0以上の数にする
|
11
11
|
- そもそも`Selection.Offset(5, -1).Select`より下の記述を無くしてしまう
|
12
12
|
等で対処できると思います。
|
1
書式の改善
test
CHANGED
@@ -1,12 +1,12 @@
|
|
1
1
|
コードを実行してみたところ、A列のセルを選択した場合に限り
|
2
|
-
Selection.Offset(5, -1).Select
|
2
|
+
`Selection.Offset(5, -1).Select`
|
3
3
|
でエラーが発生しますね。
|
4
4
|
|
5
5
|
前の記述で、A列を含むセルを範囲選択しているのが原因かと思われます。
|
6
|
-
(A1を選択した状態で実行すると、A1:B1が選択された状態になります)
|
6
|
+
(`A1`を選択した状態で実行すると、`A1:B1`が選択された状態になります)
|
7
7
|
そのまま-1列移動ししようとして、選択範囲がシート外にはみ出てしまうため定義エラーとなるのではないでしょうか。
|
8
8
|
|
9
9
|
どの範囲に色を付けたいのか不明なため、答えになるようなコードを出すのは不可能ですが、エラーを無くすだけであれば、
|
10
|
-
- Offset(5, -1)の-1を0以上の数にする
|
10
|
+
-` Offset(5, -1)`の-1を0以上の数にする
|
11
|
-
- そもそもSelection.Offset(5, -1).Selectより下の記述を無くしてしまう
|
11
|
+
- そもそも`Selection.Offset(5, -1).Select`より下の記述を無くしてしまう
|
12
12
|
等で対処できると思います。
|