Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9875 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【25082】メッセージボックスが表示されない さくぽん 05/5/19(木) 15:31 質問[未読]
【25085】Re:メッセージボックスが表示されない 小僧 05/5/19(木) 16:50 発言[未読]
【25093】Re:メッセージボックスが表示されない さくぽん 05/5/20(金) 8:44 発言[未読]
【25111】Re:メッセージボックスが表示されない 小僧 05/5/20(金) 13:43 回答[未読]
【25082】メッセージボックスが表示されない
質問  さくぽん  - 05/5/19(木) 15:31 -
引用なし
パスワード
   マクロ初心者のさくぽんです。
マクロを組んで、中にメッセージボックスを組み込みました。
初めて実行したときは、表示されたのですが、
次から表示されなくなってしまいました。
初めに実行したときに、×ボタンを押したからでしょうか？
解決方法を教えてください。
よろしくお願いいたします。
【25085】Re:メッセージボックスが表示されない
発言  小僧  - 05/5/19(木) 16:50 -
引用なし
パスワード
   ▼さくぽん さん：
こんにちは。

どのようなコードでマクロを作成したのでしょうか？
ご提示して頂ければ回答がつき易くなるかと思われます。

>初めに実行したときに、×ボタンを押したからでしょうか？
これは関係なさそうですね。
【25093】Re:メッセージボックスが表示されない
発言  さくぽん  - 05/5/20(金) 8:44 -
引用なし
パスワード
   ▼小僧 さん、ありがとうございます。

おはようございます。
>どのようなコードでマクロを作成したのでしょうか？
>ご提示して頂ければ回答がつき易くなるかと思われます。

Set TEST = .Find("TESTNO", LookIn:=xlValues, searchorder:=xlByRows, LookAt:=xlWhole)
　　If Not TEST Is Nothing Then
　　　　
　　MsgBox ("TESTNO　　")

というマクロです。

よろしくお願いいたします。
【25111】Re:メッセージボックスが表示されない
回答  小僧  - 05/5/20(金) 13:43 -
引用なし
パスワード
   ▼さくぽん さん：
こんにちは。

ご提示されたコードだけですとエラーが出てしまいますので、
想像しながら付け足してみました。

Sub TestCode()
Dim TEST As Variant

　　With ActiveSheet.Range("A1:A20")
　　Set TEST = .Find("TESTNO", LookIn:=xlValues, searchorder:=xlByRows, LookAt:=xlWhole)
　　End With
　　
　　If Not TEST Is Nothing Then
　　　　MsgBox ("TESTNO　　")
　　End If

End Sub

↑のコードですと、「A1」から「A20」の範囲に「TESTNO」という文字列があった場合、
「TESTNO　　」と出すコードですね…。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9875 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free