質問編集履歴

2

マークダウン書式に変更

2019/09/13 05:25

投稿

sishou
sishou

スコア9

test CHANGED
File without changes
test CHANGED
@@ -7,6 +7,8 @@
7
7
  さて、次のようなコードを書きました。
8
8
 
9
9
 
10
+
11
+ ```ここに言語を入力
10
12
 
11
13
  Sub 文字列検索()
12
14
 
@@ -82,6 +84,8 @@
82
84
 
83
85
  End Sub
84
86
 
87
+ ```
88
+
85
89
 
86
90
 
87
91
  この記述で検索文字を半角にして実行すると18行目がスルーされ、同じ構文の27行目の"If InStr(k, Cells(j, 5), rng) > 0 Then"の部分で「プロシージャの呼び出し、または引数が不正です。」と表示されてエラーになり、その下の行の変数startが0になってしまいます。

1

画像を添付して補足を追加しました。

2019/09/13 05:25

投稿

sishou
sishou

スコア9

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- VBA初心者です。
1
+ ![イメージ説明](3b965b9acb4f632160083e22e63f94f9.png)VBA初心者です。
2
2
 
3
3
  お手柔らかにお願いします。
4
4
 
@@ -99,3 +99,19 @@
99
99
  わかりにくければ補足させていただきます。
100
100
 
101
101
  よろしくお願いします。
102
+
103
+
104
+
105
+ 【画像についての説明】
106
+
107
+ E列が検索対象となる文章が入力されている列、I列が検索文字を入力する列です。
108
+
109
+ 文章は適当に貼りつけたものなので、内容は気にしないでください。
110
+
111
+ 検索文字の「英語」ではE2のセルで見つけますが、「男」ではE2とE6のセルで見つけます。
112
+
113
+ また、「マゾ」ではE7のセルの”マゾ"と"マゾ"の両方を検索できるようにしたいです。
114
+
115
+ 不明な点があれば答えさせていただきます。
116
+
117
+ よろしくお願いいたします。