teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問Excel,VBA 連続検索のコードを作成したい

編集履歴

質問編集履歴

2

ご教授頂いたコードに訂正しました。

2020/03/10 01:13

投稿

abc-.-cba
abc-.-cba

スコア6

test CHANGED
File without changes
test CHANGED
@@ -34,68 +34,78 @@
34
34
 
35
35
  Private Sub 検索_Click()
36
36
 
37
+
38
+
39
+ Static rngSearch As Range
40
+
37
- '変数の宣言
41
+ Static word As String
42
+
43
+
38
44
 
39
45
  Dim F As Variant
40
46
 
41
-
47
+ Dim myRange As Range
42
48
 
43
- Set myRange = ActiveSheet.Range("D:D")
49
+
44
50
 
45
- Set rngSearch = myRange.Find(What:=Textbox1, LookAt:=xlPart)
51
+ If TextBox1 = "" Then
46
52
 
47
53
 
48
54
 
49
- 'Textbox1に値が入ってなければ
55
+ MsgBox "「商品名」を入力してください。"
50
56
 
51
- If Textbox1 = "" Then
52
57
 
53
- '"「商品名」を入力してください。"と表示
54
58
 
59
+ Else
60
+
61
+ 　　　
62
+
63
+ Set myRange = ActiveSheet.Range("D:D")　'D列から値を検索
64
+
65
+
66
+
55
- MsgBox "「商品名」を入力してください。"
67
+ If word <> TextBox1 Then
68
+
69
+ Set rngSearch = myRange.Find(What:=TextBox1, LookAt:=xlPart)
70
+
71
+ word = TextBox1
56
72
 
57
73
  Else
58
74
 
59
-
75
+ Set rngSearch = myRange.FindNext(rngSearch)
60
76
 
61
- 'Textbox1の値がシート上にあれば
62
-
63
- If Not rngSearch Is Nothing Then
64
-
65
- 'ヒットした箇所を選択する
66
-
67
- rngSearch.Select
77
+ End If
68
-
69
- 'Textbox2にTextbox1の値を表示する
70
-
71
- 　　　Textbox2 = Textbox1
72
78
 
73
79
 
74
80
 
81
+ If Not rngSearch Is Nothing Then
82
+
83
+
84
+
85
+ rngSearch.Select　'ヒットした箇所を選択する
86
+
87
+
88
+
89
+ TextBox2 = rngSearch.Offset　'選択しているセルをTextBox2に表示する
90
+
75
91
  Else
76
92
 
77
-
93
+
78
94
 
79
- 'ヒットしなければ"見つかりませんでした。"と表示
95
+ MsgBox "見つかりませんでした。"
80
96
 
81
- MsgBox "見つかりませんでした。"
97
+
82
98
 
83
-
99
+ End If
84
100
 
85
- 'IFステートメント終了
101
+
86
102
 
87
103
  End If
88
104
 
89
- 'IFステートメント終了
90
105
 
91
- End If
92
-
93
- 'Textbox1の内容をクリアする
94
-
95
- Textbox1 = Clear
96
-
97
- 　　 Textbox2 = Clear
98
-
99
-
100
106
 
101
107
  End Sub
108
+
109
+
110
+
111
+ TextBox1

1

Textbox1の名前の記載が間違っていましたので修正しました。

2020/03/10 01:13

投稿

abc-.-cba
abc-.-cba

スコア6

test CHANGED
File without changes
test CHANGED
@@ -48,7 +48,7 @@
48
48
 
49
49
  'Textbox1に値が入ってなければ
50
50
 
51
- If Text_Server_Input = "" Then
51
+ If Textbox1 = "" Then
52
52
 
53
53
  '"「商品名」を入力してください。"と表示
54
54