マクロの問題でわかりません。教えてください。「inputBox」メソッドで入力画面を表示するコードを次の条件で作成してください。【作成条件】・ioputBoxメソッドの格納用の変数「sheName」を文字列型で宣言し、その変数にioputBoxの値を代入する・メッセージ内容(Prompt):\u0026quot;表示するシート名を入力してください\u0026quot;・タイトルバーの文字(Title引数):\u0026quot;シートの表示\u0026quot;「inputBox」メソッドの「OK」、「キャンセル」ボタンが押された時の条件分岐処理を次の条件で記述してください。・条件分岐には、selectCaseステートメントを使用する・「キャンセル」ボタンをクリック:\u0026quot;キャンセルしました。\u0026quot;の「MsgBox」を表示する上記以外、つまりボックスに文字が入力された状態で、「OK」ボタンをクリック:InputBox入力文字と同名のシートを選択(アクティブに)する上記の入力以外で「OK」ボタンがクリックされた場合のエラー回避処理を次の条件で記述してください。【作成条件】・エラー処理には、「On Error Go To」ステートメントを使用する・エラーが発生した時の処理:\u0026quot;該当の店舗は存在しません。\u0026quot;の「MsgBox」を表示するの問題のコードを教えてください。よろしくお願い致します。

1件の回答

回答を書く

1024433

2026-03-20 05:35

+ フォロー

未入力でOKを押した場合はどうなのでしょうか?



Sub マクロ()



Dim sheName As String



sheName = inputBox(\u0026quot;表示するシート名を入力してください\u0026quot;,\u0026quot;シートの表示\u0026quot;)



if StrPnt(sheName) = 0 Then

msgbox \u0026quot;キャンセルしました。\u0026quot;

Elif sheName = \u0026quot;\u0026quot; Then

msgbox \u0026quot;未入力です。\u0026quot;

Else



Dim ws As Worksheet

set ws = sheets(sheName)



if ws.Name\u0026lt;\u0026gt;sheName Then

msgbox \u0026quot;シート「\u0026quot; \u0026amp; sheName \u0026amp; \u0026quot;が見つかりません。\u0026quot;

Else

ws.Activate

End if



End if



End sub



こんな感じでいかがでしょ

試験動作はしていません

うったえる有益だ(0シェアするブックマークする

Copyright © 2026 AQ188.com All Rights Reserved.

博識 著作権所有