Excel VBA質問箱 IV

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

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


37100 / 76738 ←次へ | 前へ→

【44812】Re:メッセージボックスについて
回答  Kein  - 06/12/1(金) 18:48 -

引用なし
パスワード
   たぶん、こーいうことがしたいのでしょう。

Dim Msg As String
Dim Num As Integer, Ans As Integer

With TextBox1
  If .Text = "あ" Then
   Msg="せいかいです。続けますか": Num = 36
  Else
   Msg="ちがうよ !": Num = 48
  End If
  Ans = MsgBox(Msg, Num)
  If Num = 48 Then
   .SetFocus: .Text = ""
   Exit Sub
  Else
   If Ans = 7 Then Exit Sub
  End If
End With
'ここからメッセージボックスで「はい」を押したときの処理を書く
0 hits

【44775】メッセージボックスについて 田中 06/12/1(金) 0:21 質問
【44780】Re:メッセージボックスについて りん 06/12/1(金) 9:17 発言
【44784】Re:メッセージボックスについて 田中 06/12/1(金) 10:58 質問
【44785】Re:メッセージボックスについて わさび 06/12/1(金) 11:54 発言
【44788】Re:メッセージボックスについて 田中 06/12/1(金) 12:46 質問
【44792】Re:メッセージボックスについて わさび 06/12/1(金) 14:55 発言
【44796】Re:メッセージボックスについて 田中 06/12/1(金) 15:59 質問
【44810】Re:メッセージボックスについて わさび 06/12/1(金) 18:08 発言
【44816】Re:メッセージボックスについて 田中 06/12/1(金) 21:52 お礼
【44812】Re:メッセージボックスについて Kein 06/12/1(金) 18:48 回答
【44818】Re:メッセージボックスについて 田中 06/12/1(金) 22:06 お礼

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