ここから本文です

InputBoxの使い方

fji********さん

2010/11/1610:06:58

InputBoxの使い方

Private Sub CommandButton1_Click()
Sub Like_02()
Dim c As Object
For Each c In Worksheets(1).Range("a1:a30")
If c.Value Like "*崎*" Then
c.Interior.ColorIndex = 3 '赤
End If
Next c
End Sub

セル上を検索するときに上の崎の部分をInputBoxを
使って入力させたいのですが、どうすればよいのでしょうか?
""の中にInputBoxを入れたりしても駄目でした。

閲覧数:
415
回答数:
1

違反報告

ベストアンサーに選ばれた回答

sta********さん

編集あり2010/11/1610:46:03

こんにちは。

下記コードをどうぞ^^

'---------------------------------------
Sub Like_02()
Dim 文字 As String '※追加
Dim c As Range '※修正

文字 = InputBox("検索文字を入力してください", "検索") '※追加
If 文字 = "" Then Exit Sub '※追加

For Each c In Worksheets(1).Range("a1:a30")
If c.Value Like "*" & 文字 & "*" Then '※修正
c.Interior.ColorIndex = 3 '赤
End If
Next c

End Sub
'---------------------------------------

If c.Value Like "*" & 文字 & "*" Then
この部分は、
If InStr(c.Value, 文字) > 0 Then
でもいいですね^^


▼InStr
http://officetanaka.net/excel/vba/tips/tips33.htm


>Private Sub CommandButton1_Click()
>Sub Like_02()
↑貼り付け間違いなんだろうな~とは思いますが、気をつけましょう!

質問した人からのコメント

2010/11/16 10:52:13

成功 上手くいきました。ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる