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