Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29187 / 76732

←次へ　｜　前へ→


	【52829】WorksheetChangeイベント

KOOL - 07/12/5(水) 13:43 -


	引用なし

	パスワード

お世話になります。

現在、VBAを使って出勤簿を作成しています。

単純に計算式をセルに入力すればできるのですが、
計算式がかなり複雑なため、VBAを使いセルに値が入力されたら
時間の計算を行うようにしたいと思っています。

A1　　B1　　　　C1　　　　D1
日　　出社時間　退社時間　稼働時間
１　　9:00　　　12:00　　 3:00
２
・
・
３１

この場合ですと「出社時間と」「退社時間」が入力された時点で
「稼働時間」の計算をし、「3:00」の数字を出したいと思います。

一つのセルに値が入ったときに計算を実行するやり方はわかるのですが、
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address <> "$B$1" Then Exit Sub
　　【計算式】
End Sub

2箇所が入力された場合のやり方がわかりません。
そして、それを1か月分記述するにはどうしたらよいでしょうか。

XPのExcel2003を使用しています。

どなたかご存知の方いましたら、教えてもらえないでしょうか。
宜しくお願いいたします。

0 hits

▼

【52829】WorksheetChangeイベント KOOL 07/12/5(水) 13:43

≪