回答編集履歴
3
コード変更:
test
CHANGED
|
@@ -4,15 +4,17 @@
|
|
|
4
4
|
|
|
5
5
|
```vba
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
Range("A1").Resize(9, 9).FormulaR1C1 = "=ROW()*COLUMN()"
|
|
8
|
+
|
|
9
|
+
```
|
|
10
|
+
|
|
11
|
+
A1からの相対指定なら
|
|
12
|
+
|
|
13
|
+
```vba
|
|
14
|
+
|
|
15
|
+
With Range("A1")
|
|
8
16
|
|
|
9
17
|
.Resize(9, 9).FormulaR1C1 = "=(ROW()-ROW(R" & .Row & "C" & .Column & ")+1)*(COLUMN()-COLUMN(R" & .Row & "C" & .Column & ")+1)"
|
|
10
|
-
|
|
11
|
-
' 結果として数式じゃなくて値が欲しければ以下2行のコメント外してね。
|
|
12
|
-
|
|
13
|
-
'.Resize(9, 9).Copy
|
|
14
|
-
|
|
15
|
-
'.Resize(9, 9).PasteSpecial xlPasteValues
|
|
16
18
|
|
|
17
19
|
End With
|
|
18
20
|
|
2
追記：コードコメント追記
test
CHANGED
|
@@ -8,6 +8,12 @@
|
|
|
8
8
|
|
|
9
9
|
.Resize(9, 9).FormulaR1C1 = "=(ROW()-ROW(R" & .Row & "C" & .Column & ")+1)*(COLUMN()-COLUMN(R" & .Row & "C" & .Column & ")+1)"
|
|
10
10
|
|
|
11
|
+
' 結果として数式じゃなくて値が欲しければ以下2行のコメント外してね。
|
|
12
|
+
|
|
13
|
+
'.Resize(9, 9).Copy
|
|
14
|
+
|
|
15
|
+
'.Resize(9, 9).PasteSpecial xlPasteValues
|
|
16
|
+
|
|
11
17
|
End With
|
|
12
18
|
|
|
13
19
|
```
|
1
表現修正：コードのコメント変更
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
```vba
|
|
6
6
|
|
|
7
|
-
With Range("
|
|
7
|
+
With Range("A1") ' A1 を起点(1x1)として9x9のセルに設定する。ここ変更してもいいよ。
|
|
8
8
|
|
|
9
9
|
.Resize(9, 9).FormulaR1C1 = "=(ROW()-ROW(R" & .Row & "C" & .Column & ")+1)*(COLUMN()-COLUMN(R" & .Row & "C" & .Column & ")+1)"
|
|
10
10
|
|