質問編集履歴
2
追記依頼への返答
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -71,3 +71,29 @@
|
|
|
71
71
|
End Sub
|
|
72
72
|
|
|
73
73
|
```
|
|
74
|
+
|
|
75
|
+
『追記』
|
|
76
|
+
|
|
77
|
+
mattuwanさん、回答・追記依頼ありがとうございます。
|
|
78
|
+
|
|
79
|
+
シチュエーションはこうです。
|
|
80
|
+
|
|
81
|
+
列[A]の1番にある3000はA銀行に3000円預けたという意味です。なので、3000円残高が増えてます.
|
|
82
|
+
|
|
83
|
+
財布列の2番は-1000円の出費があったことを指します。
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
89
|
+
ですが、財布の中身がマイナスになってしまうため、その前に財布にお金を入れたことを記入しなきゃと思い、2番の収支を3番に移すと、こうなります。
|
|
90
|
+
|
|
91
|
+
|
|
92
|
+
|
|
93
|
+
このように参照セルがずれてしまい、エラーが出ます。
|
|
94
|
+
|
|
95
|
+
じゃあ、間に列を追加しようとしても同様にエラーが出ます。
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+
|
|
99
|
+
これが毎回なるので、vbaで自動的に修正したいのが今回の質問内容です。よろしくお願いいたします。
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,6 +52,8 @@
|
|
|
52
52
|
|
|
53
53
|
' End With
|
|
54
54
|
|
|
55
|
+
End Sub
|
|
56
|
+
|
|
55
57
|
|
|
56
58
|
|
|
57
59
|
Private Function excludeHead(ByVal rng As Range) As Range
|