• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:VBA シートがなかったら「シートがない」と表示)

VBAシートがなかったら「シートがない」と表示

このQ&Aのポイント
  • VBAを使用して、もしシートが存在しない場合には「シートがない」と表示する方法を教えてください。
  • P1セルに「テスト」という名称を付ける方法について教えてください。
  • VBAを使用して、シートが存在しない場合にメッセージウィンドウを表示する方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

Sub テスト()   Dim ws As Worksheet   Dim nLast As Long   On Error Resume Next   Set ws = Worksheets("履歴")   On Error GoTo 0   If ws Is Nothing Then     MsgBox "履歴シートがありません", 16     Exit Sub   End If   Range("P1").FormulaR1C1 = "テスト"   nLast = Cells(Rows.Count, 1).End(xlUp).Row   Range("P2:P" & nLast).Formula = "=VLOOKUP(K2,履歴!D:E,2,0)" End Sub よく「履歴」のシート名が作れましたね https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1113237576

nkmyr
質問者

お礼

ありがとうございます。 表示できました。 「履歴」は予約語でしたか。 本当は「階層履歴確認」でしたが、省略して「履歴」と記載してました。

すると、全ての回答が全文表示されます。

関連するQ&A

専門家に質問してみよう