[[20040804092811]]　『コマンドボタンの制限』（MIKA）　ページの最後に飛ぶ

『コマンドボタンの制限』（MIKA）

はじめまして、コマンドボタンを使用し計算するようにしたのですが、コマンドボタンが何度も押せるため、二重にも三重にも計算されてしまいます。そのため、一日一回しか、ボタンを押せないようにし、当日一度押してあったら、エラーメッセージ（本日一度押しています。）も出したいのですが、どうしたらできるかおしえていただけますか？

 本当は、もっと正式な案があるのでしょうが、
 とりあえず、、こんな感じで
 どうでしょう？
（夏目雅子似）
 Private Sub CommandButton1_Click()
    If Me.Range("A1").Value = Date Then
        MsgBox "本日一度押しています。", vbCritical, "エラー"
    Else
        Me.Range("A1").Value = Date
    End If
 End Sub

ありがとうございます。　しかし、エラーでOKを押しても回避できず計算されてしまうのですが・・・・！？

Private Sub CommandButton1_Click()

    If Me.Range("A1").Value = Date Then
        MsgBox "本日一度押しています。", vbCritical, "エラー"
    Else
        Me.Range("A1").Value = Date
    End If

　　作成した計算マクロ

 End Sub

 ありゃま、失礼
   If Me.Range("A1").Value = Date Then
        MsgBox "本日一度押しています。", vbCritical, "エラー"
    Else
　　　　作成した計算マクロ
        Me.Range("A1").Value = Date
    End If
 または、
   If Me.Range("A1").Value = Date Then
        MsgBox "本日一度押しています。", vbCritical, "エラー"
　　　　Exit　Sub
    Else
　　　　Me.Range("A1").Value = Date
    End If
 作成した計算マクロ
 で、どうでしょう？
（夏目雅子似）

できました。忙しいところありがとうございました。

あっ！？何度もすみません。同じような感じで毎月１日だけコマンドボタンを押すことができるようにするには、どうしたらいいですか！？

 おまたせ。m(__)m
（夏目雅子似）
 Private Sub CommandButton1_Click()
    If Day(Now) = 1 Then
        MsgBox "本日は、一日です。", vbInformation, "実行可能"
       '作成した計算マクロ
    Else
        MsgBox "本日は、一日ではありません。", vbCritical, "エラー"
        Exit Sub
    End If
 End Sub

MsgBox "本日は、一日ではありません。", vbCritical, "エラー"

のところなんですけど、MsgBox "本日は、一日ではありません。が実行しますか！？", とし『はい・いいえ』と選択できるようにしたいのですが！？

vbのInformation・Criticalなど各種あると思うのですが、ネットで調べるときは、なんて調べるといいか教えていただけるとうれしいです。

 先ずは、
 Private Sub CommandButton1_Click()
    If Day(Now) = 1 Then
        MsgBox "本日は、一日です。", vbInformation, "実行可能"
       '作成した計算マクロ
    Else
        If vbYes <> MsgBox("本日は、一日ではありませんが、実行しますか？", _
        vbYesNo + vbExclamation, "メッセージボックスの選択") Then Exit Sub
        MsgBox "実行します。", vbInformation, "Yesが選択選択されました。"
        '作成した計算マクロ
    End If
 End Sub

 メッセージボックスで戻り値が必要な場合は（）で囲みます。
 次に、MsgBoxと入力してスペースを入力すると小窓が開くとおもうのですが、
 そのあと""ダブルクォーティション（舌かんだ）で囲まれた範囲がメッセージです。
 次に「,」を入力するとまた小窓が開きます。この時にvbYesNo等を選びます。
 次に「+」を入力するとまた小窓が開きます。そこで、vbInformation等を選びます。
 次に、「,」を入力するとTitleです。
 わからなくなったらBackSpaceで「,」を消して再入力してみるといいです。
 ただ、↑は我流ですから正しいかどうかはわかりません。
 ただ、
 >vbのInformation・Criticalなど各種あると思うのですが、ネットで調べるときは、なんて 調>べるといいか教えていただけるとうれしいです。
 なんて事はないんじゃないかと思います。私は、Information・Criticalとか
 書いた記憶はありません。つづりを知りません。(>_<)
 Information・Criticalに変わる定数はあります。それを使われている方もいます。
 ただ、一冊ぐらいは「参考書」買われてもいいかもしれませんね。
（これは、あまり気にしないでください。御自由ですから・・）
 で、どうでしょう？
（夏目雅子似）

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

コメント返信：

[ 一覧(最新更新順) ]

[[20040804092811]] 『コマンドボタンの制限』（MIKA） ページの最後に飛ぶ

[[20040804092811]]　『コマンドボタンの制限』（MIKA）　ページの最後に飛ぶ