質問編集履歴
2
使用目的のはっきりしない変数の目的を追記させて頂きました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -64,4 +64,12 @@
|
|
|
64
64
|
Application.CutCopyMode = False
|
|
65
65
|
|
|
66
66
|
End Function
|
|
67
|
-
```
|
|
67
|
+
```
|
|
68
|
+
【追記】
|
|
69
|
+
G列の最終行番号を取得する理由
|
|
70
|
+
まだ、コード化していないのですが、変数TargetとG列の最終行をマッチングさせたい。
|
|
71
|
+
次のようなコードを考えております。
|
|
72
|
+
If Datasheet.Cells(Lr, 7).Value <> Target Then
|
|
73
|
+
MsgBox "エラーメッセージ"
|
|
74
|
+
exit function
|
|
75
|
+
End if
|
1
正しく代入できません。と記載したのですが、わかりにくいので「←G列の最終行番号を取得したいのですが正しく代入できません。（1が代入されてしまいます）」と変更致しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -39,8 +39,8 @@
|
|
|
39
39
|
|
|
40
40
|
With Datasheet
|
|
41
41
|
.AutoFilterMode = False
|
|
42
|
-
Lr = .Cells(Rows.count, 7).End(xlUp).Row '←
|
|
42
|
+
Lr = .Cells(Rows.count, 7).End(xlUp).Row '←G列の最終行番号を取得したいのですが正しく代入できません。（1が代入されてしまいます）
|
|
43
|
-
'Lr = .Range("G1").End(xlDown).Row '←こちらは正しく代入できます。
|
|
43
|
+
'Lr = .Range("G1").End(xlDown).Row '←こちらは正しくG列の最終行番号が代入できます。
|
|
44
44
|
End With
|
|
45
45
|
|
|
46
46
|
DataSheet.Range("A1").AutoFilter 7, Target
|