Excel VBA質問箱 IV

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

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


1487 / 13644 ツリー ←次へ | 前へ→

【74093】キーワードがエクセルシート内にあれば注意喚起 kyuu10 13/4/17(水) 20:56 質問[未読]
【74095】Re:キーワードがエクセルシート内にあれば... UO3 13/4/17(水) 21:22 発言[未読]
【74096】Re:キーワードがエクセルシート内にあれば... kyuu10 13/4/17(水) 22:18 質問[未読]
【74097】Re:キーワードがエクセルシート内にあれば... kyuu10 13/4/17(水) 22:26 お礼[未読]
【74103】Re:キーワードがエクセルシート内にあれば... kyuu10 13/4/18(木) 8:20 質問[未読]
【74104】Re:キーワードがエクセルシート内にあれば... UO3 13/4/18(木) 9:20 発言[未読]
【74107】Re:キーワードがエクセルシート内にあれば... kyuu10 13/4/18(木) 10:09 お礼[未読]

【74093】キーワードがエクセルシート内にあれば注...
質問  kyuu10  - 13/4/17(水) 20:56 -

引用なし
パスワード
   VBAは初心者で困っています。
例えばエクセルファイルのsheet内に”1.ブロック”という言葉があった場合に注意喚起のコメント”○○”とメッセージボックスを使って表示がしたいです。

また、できればでいいのですがその”○○”という表示をプリントスクリーンを押した場合に表示させることは可能でしょうか?
よろしくお願い致します。

【74095】Re:キーワードがエクセルシート内にあれ...
発言  UO3  - 13/4/17(水) 21:22 -

引用なし
パスワード
   ▼kyuu10 さん:

こんばんは

Sub Sample()
  Dim c As Range
  Set c = ActiveSheet.UsedRange.Find(What:="1.ブロック", LookAt:=xlWhole)
  If Not c Is Nothing Then MsgBox "○○"
End Sub

>また、できればでいいのですがその”○○”という表示をプリントスクリーンを押した場合に表示させることは可能でしょうか?

メッセージが出ている状態で試してみてください。

【74096】Re:キーワードがエクセルシート内にあれ...
質問  kyuu10  - 13/4/17(水) 22:18 -

引用なし
パスワード
   ▼UO3 さん:
マクロ開始でうまく表示ができました。
追加なのですがこのマクロをファイルを開いたときに開始させることも可能でしょうか?
再度ですがよろしくお願い致します

【74097】Re:キーワードがエクセルシート内にあれ...
お礼  kyuu10  - 13/4/17(水) 22:26 -

引用なし
パスワード
   ▼UO3 さん:

Auto openでできました。どうもありがとうございました。

【74103】Re:キーワードがエクセルシート内にあれ...
質問  kyuu10  - 13/4/18(木) 8:20 -

引用なし
パスワード
   職場のエクセルが2003でして
Set以下の部分でエラーが発生してしまいました。
2003でも対応できるマクロはありますでしょうか?

【74104】Re:キーワードがエクセルシート内にあれ...
発言  UO3  - 13/4/18(木) 9:20 -

引用なし
パスワード
   ▼kyuu10 さん:

おはようございます。
2003でも、問題ないはずですが?
エラーメッセージは、どんなものでしたか?

【74107】Re:キーワードがエクセルシート内にあれ...
お礼  kyuu10  - 13/4/18(木) 10:09 -

引用なし
パスワード
   ▼UO3 さん:
キーを1つ間違えていました。うまくいきました。
ご迷惑かけてもうしわけありませんでした。ありがとうございました。

1487 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free