ExcelのVBAコードについて教えてください。 作業ブックのシート名「崖」に Private Sub Worksheet_Change(ByVal Target As Range)
ExcelのVBAコードについて教えてください。 作業ブックのシート名「崖」に Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("AT12")) Is Nothing Then MsgBox "地理院地図で、崖の検討をしてください。", vbExclamation のコードがあります。 このコードは セル「AT12」に動きがあれば警告文「地理院地図で、崖の検討をしてください。」 が表示されるように設定しております。 このコードに追加して 警告文の次に 「下記のサイトをクリック」として 例えばヤフーのサイト「https://www.yahoo.co.jp/」を表示し、 警告文中のサイトをクリックするとヤフーに接続できるようにする方法を教えてください。 よろしくお願いいたします。
Visual Basic | Excel・36閲覧・25
ベストアンサー
msgboxで提示機能を実現するのは厳しいと思います。私が知らないだけであれば、ごめんなさい。 なので、ボタン選択にはなりますが、以下のようなものではどうですかね？ Const sMess As String = "地理院地図で、崖の検討をしてください。" & vbCrLf _ & "「はい」でヤフーのホームページを表示します。" If MsgBox(sMess, vbYesNo + vbExclamation) = vbYes Then CreateObject("Wscript.Shell").Run ("https://www.yahoo.co.jp/") End If ※提示のように実施されたいのであれば、ユーザーフォームでの作成が現実的だと思い作成が
質問者からのお礼コメント
回答ありがとうございました。 貴者のアドバイスで上手くできました。 感謝いたします。
お礼日時：6/29 11:04
