回答編集履歴
4
コード修正
answer
CHANGED
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
|
|
27
27
|
```vba
|
|
28
28
|
Dim i
|
|
29
|
-
For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
|
|
29
|
+
For i = 3 To Ash.Cells(Rows.Count, 2).End(xlUp).Row Step 3
|
|
30
30
|
Bsh.Cells(i \ 3 + 7, "N").Value = Ash.Cells(i, "B").Value
|
|
31
31
|
Next i
|
|
32
32
|
```
|
3
コード追記
answer
CHANGED
|
@@ -14,4 +14,19 @@
|
|
|
14
14
|
Bsh.Rnage("N11").Value = Ash.Rnage("B12").Value
|
|
15
15
|
```
|
|
16
16
|
|
|
17
|
-
もしセルが４つとは限らないということなら、そう書いてください。
|
|
17
|
+
~~もしセルが４つとは限らないということなら、そう書いてください。~~
|
|
18
|
+
|
|
19
|
+
> ※補足：sheet(1)のB3以下の数は変動します。
|
|
20
|
+
|
|
21
|
+
書いてありましたね。
|
|
22
|
+
Ash の行は３ずつ増えていくので、Step 3 を追加すればOKです。
|
|
23
|
+
Bshの方は1ずつなので、3で割って、ずれてる分だけ加算すればOK。
|
|
24
|
+
|
|
25
|
+
あと元コードは、行と列の指定が逆ですね。
|
|
26
|
+
|
|
27
|
+
```vba
|
|
28
|
+
Dim i
|
|
29
|
+
For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
|
|
30
|
+
Bsh.Cells(i \ 3 + 7, "N").Value = Ash.Cells(i, "B").Value
|
|
31
|
+
Next i
|
|
32
|
+
```
|
2
コード修正
answer
CHANGED
|
@@ -8,10 +8,10 @@
|
|
|
8
8
|
Dim Bsh As Worksheet
|
|
9
9
|
Set Bsh = Sheets(2)
|
|
10
10
|
|
|
11
|
-
Bsh.Rnage("N8").Value =
|
|
11
|
+
Bsh.Rnage("N8").Value = Ash.Rnage("B3").Value
|
|
12
|
-
Bsh.Rnage("N9").Value =
|
|
12
|
+
Bsh.Rnage("N9").Value = Ash.Rnage("B6").Value
|
|
13
|
-
Bsh.Rnage("N10").Value =
|
|
13
|
+
Bsh.Rnage("N10").Value = Ash.Rnage("B9").Value
|
|
14
|
-
Bsh.Rnage("N11").Value =
|
|
14
|
+
Bsh.Rnage("N11").Value = Ash.Rnage("B12").Value
|
|
15
15
|
```
|
|
16
16
|
|
|
17
17
|
もしセルが４つとは限らないということなら、そう書いてください。
|
1
コード修正
answer
CHANGED
|
@@ -8,10 +8,10 @@
|
|
|
8
8
|
Dim Bsh As Worksheet
|
|
9
9
|
Set Bsh = Sheets(2)
|
|
10
10
|
|
|
11
|
-
Bsh.Rnage("N8").Value = Bsh.Rnage("
|
|
11
|
+
Bsh.Rnage("N8").Value = Bsh.Rnage("B3").Value
|
|
12
|
-
Bsh.Rnage("N9").Value = Bsh.Rnage("
|
|
12
|
+
Bsh.Rnage("N9").Value = Bsh.Rnage("B6").Value
|
|
13
|
-
Bsh.Rnage("N10").Value = Bsh.Rnage("
|
|
13
|
+
Bsh.Rnage("N10").Value = Bsh.Rnage("B9").Value
|
|
14
|
-
Bsh.Rnage("N11").Value = Bsh.Rnage("
|
|
14
|
+
Bsh.Rnage("N11").Value = Bsh.Rnage("B12").Value
|
|
15
15
|
```
|
|
16
16
|
|
|
17
17
|
もしセルが４つとは限らないということなら、そう書いてください。
|