質問編集履歴
2
使用目的のはっきりしない変数の目的を追記させて頂きました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -131,3 +131,19 @@
|
|
|
131
131
|
End Function
|
|
132
132
|
|
|
133
133
|
```
|
|
134
|
+
|
|
135
|
+
【追記】
|
|
136
|
+
|
|
137
|
+
G列の最終行番号を取得する理由
|
|
138
|
+
|
|
139
|
+
まだ、コード化していないのですが、変数TargetとG列の最終行をマッチングさせたい。
|
|
140
|
+
|
|
141
|
+
次のようなコードを考えております。
|
|
142
|
+
|
|
143
|
+
If Datasheet.Cells(Lr, 7).Value <> Target Then
|
|
144
|
+
|
|
145
|
+
MsgBox "エラーメッセージ"
|
|
146
|
+
|
|
147
|
+
exit function
|
|
148
|
+
|
|
149
|
+
End if
|
1
正しく代入できません。と記載したのですが、わかりにくいので「←G列の最終行番号を取得したいのですが正しく代入できません。（1が代入されてしまいます）」と変更致しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -80,9 +80,9 @@
|
|
|
80
80
|
|
|
81
81
|
.AutoFilterMode = False
|
|
82
82
|
|
|
83
|
-
Lr = .Cells(Rows.count, 7).End(xlUp).Row '←
|
|
83
|
+
Lr = .Cells(Rows.count, 7).End(xlUp).Row '←G列の最終行番号を取得したいのですが正しく代入できません。（1が代入されてしまいます）
|
|
84
84
|
|
|
85
|
-
'Lr = .Range("G1").End(xlDown).Row '←こちらは正しく代入できます。
|
|
85
|
+
'Lr = .Range("G1").End(xlDown).Row '←こちらは正しくG列の最終行番号が代入できます。
|
|
86
86
|
|
|
87
87
|
End With
|
|
88
88
|
|