Excelでサイトマップ作成ソフトを作ってみよう

「作成開始」ボタンをクリックするとURLの入力を確認し、何も入力されていない場合は、エラーメッセージを表示しテキストボックスにフォーカスを移します。

シート画面

作成するサイトアドレスの入力欄と作成開始ボタンを設置しています。

シートのVBAコード

下記のコードを入力してください。

Option Explicit

'作成開始ボタンをクリック
Private Sub CommandButton1_Click()
    If TextBox1 = "" Then
        MsgBox "作成するサイトアドレスを入力してください。"
        TextBox1.Activate
        Exit Sub
    End If

End Sub