Excel VBA質問箱 IV

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

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


62644 / 76732 ←次へ | 前へ→

【18694】Re:MsgBox 関数のdefaultボタンをなくす
発言  Jaka  - 04/10/6(水) 10:45 -

引用なし
パスワード
   こんにちは。

つんさん おじゃまします。元気!
私もつんさん以上に解っていませんが、こんな風な感じにしたいのかなぁ?って事でお願いします。

Sub dkklkl()
  Dim DtC As Integer
  msg = "データ" & 1
  Do
    ans = MsgBox(msg & "を入力してください。", vbOKCancel + vbInformation)
    If ans = vbOK Then
      'ここでデータのチェックをする。
      '合っていたらOKフラグを立てる。
      If データ = "OK" Then
       If DtC = 4 Then Exit Sub
       DtC = DtC + 1
       msg = "データ" & DtC
      Else
       sn2 = MsgBox("間違ってます。", vbExclamation + vbOKOnly)
      End If
    Else
      End
    End If
  Loop
End Sub

1 hits

【18692】MsgBox 関数のdefaultボタンをなくす 富士 04/10/6(水) 10:16 質問
【18693】Re:MsgBox 関数のdefaultボタンをなくす つん 04/10/6(水) 10:39 発言
【18694】Re:MsgBox 関数のdefaultボタンをなくす Jaka 04/10/6(水) 10:45 発言
【18695】Re:MsgBox 関数のdefaultボタンをなくす Asaki 04/10/6(水) 11:02 発言
【18697】Re:MsgBox 関数のdefaultボタンをなくす Asaki 04/10/6(水) 11:17 発言

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