[[20180618053455]] 『VBA 日数が半年経ったらmsg box』(名無し) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBA 日数が半年経ったらmsg box』(名無し)

シート1のA1セルに任意の日付が入りB1に違う日付が入ったとします。
A1からB1が半年経過した日付ならmsg boxで半年経過などメッセージが表示されるようにしたいのです。ユーザーフォームtextbox1にはB1が入力されます。A1も何かの条件で任意に変更しますが手入力なのでユーザーフォームからの指示はありません。

この場合どういったコードを書けばいいでしょうか?
よろしくお願いします。

< 使用 Excel:unknown、使用 OS:unknown >


追記
msg boxには、半年経過でメッセージを表示し、半年以前なら何も表示させない事としたいです。
textbox1入力後、コマンドボタン1でシート1に反映させてます。
よろしくお願いします。
(名無し) 2018/06/18(月) 06:10

質問文が意味不明なので取り敢えず半年の判定方法だけ
Sub a()
    If (Range("A1") - Range("B1")) > 182 Then
        MsgBox "半年経過"
    End If
End Sub
(通りすがり) 2018/06/18(月) 09:44

ありがとうございます。意味不明ですみません。
なんとかできました。
(名無し) 2018/06/19(火) 02:25

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.