回答編集履歴
3
誤記訂正
answer
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
' 新たにセーブするときに呼び出す
|
|
16
16
|
Sub addSaveData
|
|
17
17
|
If nowSavePoint >= 99 Then
|
|
18
|
-
Call
|
|
18
|
+
Call initializeSavePoint
|
|
19
19
|
End If
|
|
20
20
|
Sheets("表").Range("A2").Offset(nowSavePoint, 0).Value = Sheets("入力").Range("C2").Value
|
|
21
21
|
Sheets("表").Range("A2").Offset(nowSavePoint, 1).Value = Sheets("入力").Range("C3").Value
|
2
説明補足
answer
CHANGED
|
@@ -3,6 +3,7 @@
|
|
|
3
3
|
ブックを閉じるときに現在のセーブ位置を任意のシートのセルに代入しておいて、次回開くときに
|
|
4
4
|
そのセルから値を戻す必要があります。
|
|
5
5
|
|
|
6
|
+
###サンプルコード
|
|
6
7
|
```VBA
|
|
7
8
|
Private nowSavePoint As Integer '現在のセーブ位置
|
|
8
9
|
|
1
追記
answer
CHANGED
|
@@ -1,3 +1,8 @@
|
|
|
1
|
+
###補足（追記）
|
|
2
|
+
このVBAが書かれたブックを一旦閉じて、再度開いたときもセーブ位置を保持したいのなら、
|
|
3
|
+
ブックを閉じるときに現在のセーブ位置を任意のシートのセルに代入しておいて、次回開くときに
|
|
4
|
+
そのセルから値を戻す必要があります。
|
|
5
|
+
|
|
1
6
|
```VBA
|
|
2
7
|
Private nowSavePoint As Integer '現在のセーブ位置
|
|
3
8
|
|