Excel VBA質問箱 IV

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

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


77 / 13329 ツリー ←次へ | 前へ→

【80643】打刻からの時間加算 はじめまして 19/3/26(火) 14:06 質問[未読]

【80644】Re:打刻からの時間加算 Jaka 19/3/26(火) 14:39 発言[未読]
【80645】Re:打刻からの時間加算 Jaka 19/3/26(火) 15:18 発言[未読]
【80646】Re:打刻からの時間加算 はじめまして 19/3/26(火) 15:46 お礼[未読]
【80647】Re:打刻からの時間加算 ピンク 19/3/26(火) 15:50 回答[未読]
【80648】Re:打刻からの時間加算 はじめまして 19/3/26(火) 15:56 お礼[未読]

【80644】Re:打刻からの時間加算
発言  Jaka  - 19/3/26(火) 14:39 -

引用なし
パスワード
   分なのか時間なのか解らんけど、

Range("A1").Value = Time

Range("A2").Value = Range("A1").Value + TimeValue("00:01:20")

とか。

【80645】Re:打刻からの時間加算
発言  Jaka  - 19/3/26(火) 15:18 -

引用なし
パスワード
   なんか勘違いされそうだけど、解りやすいかと思って
適当に
00:01:20
にしただけなんで、適当に修正してください。

【80646】Re:打刻からの時間加算
お礼  はじめまして  - 19/3/26(火) 15:46 -

引用なし
パスワード
   ▼Jaka さん:
>なんか勘違いされそうだけど、解りやすいかと思って
>適当に
>00:01:20
>にしただけなんで、適当に修正してください。

早速のご回答ありがとうございます。
当方の書き方がわかりにくくて申し訳ありません。
表記は時間で13:00 は13時で追加時間は2時間です

例えば、A1にCtrl+:で現在時刻(13:00 13時)をセルに打刻した後に
時間延長として(2:00 2時間)を加算してA1の値を15:00(15時)に書き換えたい
という質問です。
ただし、打刻するセルが多数ありますのrangeでセル指定をしてしまいますと
セルの数だけマクロを作らなければいけないかと思いますので
選択したセル(時刻記入済み)に+2時間を加算するマクロを作りたいと思っております。

【80647】Re:打刻からの時間加算
回答  ピンク  - 19/3/26(火) 15:50 -

引用なし
パスワード
   ▼はじめまして さん:
>選択したセル(時刻記入済み)に+2時間を加算するマクロを作りたいと思っております。

ActiveCell.Value = ActiveCell.Value + TimeValue("02:00")

【80648】Re:打刻からの時間加算
お礼  はじめまして  - 19/3/26(火) 15:56 -

引用なし
パスワード
   ▼ピンク さん:
>▼はじめまして さん:
>>選択したセル(時刻記入済み)に+2時間を加算するマクロを作りたいと思っております。
>
>ActiveCell.Value = ActiveCell.Value + TimeValue("02:00")

ご回答ありがとうございます、実行しましたところ
当方の求める結果になりました、ありがとうございます。
知識不足ゆえ、簡単なこともわからず ご回答いただいたお二方に感謝いたします。

77 / 13329 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free