時刻の比較をVBAでしたい
未読分:2件
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
Message#2 2015年2月21日(土)07時51分 From: カリーニン | 返事 削除 変更 |
こんな感じでいかがでしょう? Sub test() Dim timest As Date Dim timeen As Date Dim timesa As Date timest = Range("A1").Value timeen = Range("B1").Value timesa = timeen - timest If timesa > 10 / (24 * 60) Then Range("C1").Value = "●" Else Range("C1").Value = "" End If End Sub |
Message#1 2015年2月18日(水)05時16分 From: vba | 返事 削除 変更 |
時刻の比較をVBAでしたいと考えています。 具体的には A1に8:00 B1に9:13 が代入されています。 B1からA1を引いて0:10以上の場合は、C1に●をつけるというものです。 この時刻が単純に数字ではないのでどのように記述したらよいか分かりません。 一応自分なりに書いたのが以下になります。 どこが間違いでしょうか? Sub test() timest = Range("A1") timeen = Range("B1") timesa = timeen-timest If timesa > 10 then Range("C1") = "●" End If |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降