質問編集履歴
2
コードにend subがなかったので追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
Dim CPr As String
|
|
26
26
|
Set CPr = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) '座標を変数に格納
|
|
27
|
-
|
|
27
|
+
End Sub
|
|
28
28
|
```
|
|
29
29
|
######<現在の状態>
|
|
30
30
|
・一番最後の文で「オブジェクトが必要です」とエラーが表示される(CPrが原因)。
|
1
Excelの使用環境を追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,6 +3,9 @@
|
|
|
3
3
|
・コマンド内容の処理
|
|
4
4
|
・エラーの解決
|
|
5
5
|
|
|
6
|
+
######<環境>(追記)
|
|
7
|
+
Office 365 バージョン1910(ビルド12130.20410 クイック実行)
|
|
8
|
+
|
|
6
9
|
######<コマンド内容>
|
|
7
10
|
1.特定文字列を含むセルをシートで検索する。
|
|
8
11
|
2.特定文字列を含むセルの座標を取得。
|