Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43508 / 76735

←次へ　｜　前へ→


	【38274】メッセージボックスについて

yukari - 06/5/30(火) 21:09 -


	引用なし

	パスワード

こんばんわ。はじめまして。

フォーム上のテキストボックスを３つ作ります。
オブジェクト名をテキスト名前、テキスト住所、テキスト電話番号にしてます。

登録というコマンドボタンを押すと
「登録していいですか？」というメッセージボックスを表示させて
「ＯＫ」「キャンセル」と出るように作りたいです。

ただ、「ＯＫ」だけだと分かるのですが、「キャンセル」の入れ方が分かりません。
今のコードは下記のようにしています。

また、例えば名前が空欄なら「名前が記入されていません」というエラーメッセージがでて
「ＯＫ」を押すと入力画面に戻るようなものも３つそれぞれ作りたいと思っています。
これはＩＦ構文を応用すればいいのかと思っているんですが、なかなかうまくいきません。
よろしければ、加えてご教授願います。

Private Sub 登録_Click()

MsgBox "登録していいですか？"

Range("a65536").End(xlUp).Offset(1).Select
Selection = テキスト名前
With Selection.Borders(xlEdgeLeft)　　　　　 '外枠左罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)　　　　　'外枠下罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)　　　　　 '外枠右罫線
LineStyle = xlContinuous
.Weight = xlThin
End With
Selection.Offset(, 1) = テキスト住所
Range("a65536").End(xlUp).Offset(, 1).Select
With Selection.Borders(xlEdgeBottom)　　　　　'外枠下罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)　　　　　 '外枠右罫線
LineStyle = xlContinuous
.Weight = xlThin
End With
Selection.Offset(, 1) = テキスト電話番号
Range("a65536").End(xlUp).Offset(, 2).Select
With Selection.Borders(xlEdgeBottom)　　　　　'外枠下罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)　　　　　 '外枠右罫線
LineStyle = xlContinuous
.Weight = xlThin
End With

テキスト名前 = ""
テキスト住所 = ""
テキスト電話番号 = ""
テキスト名前.SetFocus

End Sub

0 hits

▼

【38274】メッセージボックスについて yukari 06/5/30(火) 21:09

≪