回答編集履歴
1
説明追加
answer
CHANGED
|
@@ -14,4 +14,19 @@
|
|
|
14
14
|
Set cr = Range("C5").CurrentRegion
|
|
15
15
|
Set cr = cr.Offset(1).Resize(cr.Rows.Count-1)
|
|
16
16
|
If Intersect(Target, cr) Is Nothing Then
|
|
17
|
-
```
|
|
17
|
+
```
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
おまけのアドバイス
|
|
21
|
+
---
|
|
22
|
+
表形式データなら、テーブル化にしておいて名前を付けておくと、
|
|
23
|
+
Range("テーブル名") でデータ範囲を取得できます。
|
|
24
|
+
データ入力して行が増えても自動でテーブル範囲も拡張します。
|
|
25
|
+
|
|
26
|
+
```vba
|
|
27
|
+
If Intersect(Target, Range("テーブル名") Is Nothing Then
|
|
28
|
+
```
|
|
29
|
+
|
|
30
|
+
テーブルにするといろいろメリットがあります。
|
|
31
|
+
|
|
32
|
+
[【Excel】表を「テーブル」にするだけで作業効率がアップ](https://forest.watch.impress.co.jp/docs/serial/exceltips/1330666.html)
|