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