Excel VBA質問箱 IV

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

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


43505 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんばんわ。はじめまして。

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

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

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

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


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 質問
【38275】Re:メッセージボックスについて ぱっせんじゃー 06/5/30(火) 21:27 発言
【38276】Re:メッセージボックスについて yukari 06/5/30(火) 21:37 質問
【38279】Re:メッセージボックスについて ぱっせんじゃー 06/5/30(火) 21:43 発言
【38280】Re:メッセージボックスについて yukari 06/5/30(火) 22:05 質問
【38281】Re:メッセージボックスについて ぱっせんじゃー 06/5/30(火) 22:12 発言
【38285】Re:メッセージボックスについて yukari 06/5/30(火) 22:41 お礼

43505 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free