[[20090917150539]]　『VBAコードの記述』（Ｍｓｇ）　ページの最後に飛ぶ

『VBAコードの記述』（Ｍｓｇ）

  教育の受けた回数をＦ144のセルに入力しています。
  そしてＦ144に回数を入力する事でＥ148に習得レベルが1～10段階上がるように
　数式が入っています。Ｆ144が1でＥ148のレベルが1になります。　
　
  したい事は・・・
　メッセージボックスを開き、「はいorいいえ」で選択肢を与え、いいえの場合の
　入力回数の数値が指定の数値である事を確認させたいのです。

 現状のコードで説明しますと・・・
　　　Ｅ148が1の時
　　　メッセージボックスＯＰＥＮ・・・教育を受けましたか？はいorいいえ（選択）
　　　　　《はい》を選択
　　　　　　　メッセージボックスＯＰＥＮ・・・おめでとう！
     　　《いいえ》を選択
　　　　　　　メッセージボックスＯＰＥＮ・・・教育回数0にカウントを戻してください。

 この後にＦ144の教育回数を0に戻した事を確認して戻っていれば”がんばれ！”のメッセージボックスを出し、
 戻っていなければ”教育回数0にカウントを戻してください！”が、ずっと出るようにしたいのです。

  【現状のコード】
  Range("e148").Value = 1
   ans = MsgBox("教育を受けましたか？", vbYesNo)
     If ans = vbYes Then ans = MsgBox("おめでとう！", vbOKOnly)
     If ans = vbNo Then ans = MsgBox("教育回数0にカウントを戻してください。", vbOKOnly)

 >  戻っていなければ”教育回数0にカウントを戻してください！”が、ずっと出るようにしたいのです。
 というか、強制的に0に戻してやればよいのでは？
 (seiya)

 seiyaさま
 ありがとうございます。
 強制的に戻すのはどういうコードをどこに入れればできますか？
 （Ｍｓｇ）

     If ans = vbYes Then 
         MsgBox("おめでとう！", vbOKOnly)
     Else
         Range("Ｆ144").Value = 0
     End If
 とか
 (seiya)

 seiyaさま

　ありがとうございます♪
　できました☆

 (Msg)

コメント返信：

[ 一覧(最新更新順) ]

[[20090917150539]] 『VBAコードの記述』（Ｍｓｇ） ページの最後に飛ぶ

[[20090917150539]]　『VBAコードの記述』（Ｍｓｇ）　ページの最後に飛ぶ