質問編集履歴
4
誤字修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,7 +6,9 @@
|
|
|
6
6
|
|
|
7
7
|
■やりたいこと
|
|
8
8
|
|
|
9
|
-
元データC2～4は都度内容が異なり、それを前回Saveした次の位置に転記したい
|
|
9
|
+
元データC2～4は都度内容が異なり、それを前回Saveした次の位置に転記したい。
|
|
10
|
+
|
|
11
|
+
１００行分使い切ったら元に戻って先頭から上書きさせたい。
|
|
10
12
|
|
|
11
13
|
|
|
12
14
|
|
|
@@ -32,6 +34,6 @@
|
|
|
32
34
|
|
|
33
35
|
|
|
34
36
|
|
|
35
|
-
シート"表"：C2,C3,C4に値を入力する欄と
|
|
37
|
+
シート"表"：C2,C3,C4に値を入力する欄と登録ボタンがある
|
|
36
38
|
|
|
37
39
|
シート"入力"：セルA2~A101までの転記先となる一覧表がある
|
3
コード消しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,15 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
■やりたいこと
|
|
8
8
|
|
|
9
|
-
(追記)ゲームのセーブが1~100までに限られていて、101個目を1に上書き、102個目を2に上書き…というような仕組みの表を作成したいです。
|
|
10
|
-
|
|
11
|
-
|
|
12
|
-
|
|
13
|
-
|
|
9
|
+
元データC2～4は都度内容が異なり、それを前回Saveした次の位置に転記したい １００行分使い切ったら元に戻って先頭から上書きさせる。
|
|
14
|
-
|
|
15
|
-
|
|
16
|
-
|
|
17
|
-
※転記項目は3つで、C2をA列、C3をB列、C4をC列へ転記したい
|
|
18
10
|
|
|
19
11
|
|
|
20
12
|
|
|
@@ -43,31 +35,3 @@
|
|
|
43
35
|
シート"表"：C2,C3,C4に値を入力する欄と確認ボタンがある
|
|
44
36
|
|
|
45
37
|
シート"入力"：セルA2~A101までの転記先となる一覧表がある
|
|
46
|
-
|
|
47
|
-
|
|
48
|
-
|
|
49
|
-
■現在の記述
|
|
50
|
-
|
|
51
|
-
そもそも""だと当然上書きはできないのですが、なんとか2-101まで転記させた現状です…
|
|
52
|
-
|
|
53
|
-
※表が2行目から始まるのでiの初期値は2にしています。
|
|
54
|
-
|
|
55
|
-
|
|
56
|
-
|
|
57
|
-
Dim i
|
|
58
|
-
|
|
59
|
-
For i = 2 To 101
|
|
60
|
-
|
|
61
|
-
If Sheets("表").Range("A" & i).Value = "" Then
|
|
62
|
-
|
|
63
|
-
Sheets("表").Range("A" & i).Value = Sheets("入力").Range("C2").Value
|
|
64
|
-
|
|
65
|
-
Sheets("表").Range("B" & i).Value = Sheets("入力").Range("C3").Value
|
|
66
|
-
|
|
67
|
-
Sheets("表").Range("C" & i).Value = Sheets("入力").Range("C4").Value
|
|
68
|
-
|
|
69
|
-
Exit For
|
|
70
|
-
|
|
71
|
-
End If
|
|
72
|
-
|
|
73
|
-
Next i
|
2
シートの説明を追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,6 +34,16 @@
|
|
|
34
34
|
|
|
35
35
|
|
|
36
36
|
|
|
37
|
+
■シートについて
|
|
38
|
+
|
|
39
|
+
シート"表"とシート"入力"の二枚が存在します。
|
|
40
|
+
|
|
41
|
+
|
|
42
|
+
|
|
43
|
+
シート"表"：C2,C3,C4に値を入力する欄と確認ボタンがある
|
|
44
|
+
|
|
45
|
+
シート"入力"：セルA2~A101までの転記先となる一覧表がある
|
|
46
|
+
|
|
37
47
|
|
|
38
48
|
|
|
39
49
|
■現在の記述
|
1
実行したいことを追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,19 +6,41 @@
|
|
|
6
6
|
|
|
7
7
|
■やりたいこと
|
|
8
8
|
|
|
9
|
+
(追記)ゲームのセーブが1~100までに限られていて、101個目を1に上書き、102個目を2に上書き…というような仕組みの表を作成したいです。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
9
13
|
登録した情報を別シートの一覧表に転記していき、一行目から順に100個転記したら101個目からはまた一行目へ戻り上書きしていくものを作りたいです。
|
|
10
14
|
|
|
11
15
|
|
|
12
16
|
|
|
13
|
-
※
|
|
17
|
+
※転記項目は3つで、C2をA列、C3をB列、C4をC列へ転記したい
|
|
14
18
|
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
(追記)※やりたいことの流れです※
|
|
22
|
+
|
|
23
|
+
C2,C3,C4に入力→登録→別シートA2,B2,C2へ転記→
|
|
24
|
+
|
|
25
|
+
C2,C3,C4に入力→登録→別シートA3,B3,C3列へ転記→
|
|
26
|
+
|
|
15
|
-
|
|
27
|
+
C2,C3,C4に入力→登録→別シートA4,B4,C4列へ転記→
|
|
28
|
+
|
|
29
|
+
・・・
|
|
30
|
+
|
|
31
|
+
C2,C3,C4に入力→登録→別シートA101,B101,C101列へ転記→
|
|
32
|
+
|
|
33
|
+
C2,C3,C4に入力→登録→別シートA2,B2,C2列へ転記→
|
|
34
|
+
|
|
35
|
+
|
|
16
36
|
|
|
17
37
|
|
|
18
38
|
|
|
19
39
|
■現在の記述
|
|
20
40
|
|
|
21
|
-
|
|
41
|
+
そもそも""だと当然上書きはできないのですが、なんとか2-101まで転記させた現状です…
|
|
42
|
+
|
|
43
|
+
※表が2行目から始まるのでiの初期値は2にしています。
|
|
22
44
|
|
|
23
45
|
|
|
24
46
|
|