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 お礼[未読]

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

引用なし
パスワード
   初めまして、VBAの質問をさせていただきます。
タイムテーブルを作るのにVBAで打刻のマクロを作りましたが、
打刻後の時間延長(時間加算)方法がわからないので質問させていただきます。
下記マクロで任意のセルに「Ctrl+:」で現在時刻をセルに入れたのち
その時刻に時間を足し算したいと思っております。

例) 13:00(打刻時間)+2:00(固定時間)でセルに「15:00」となる。
マクロを実行毎に+2:00される。

ご回答の程、よろしくお願いいたします。


Sub 打刻()
'
' 打刻 Macro
'

'
    SendKeys "^:"
    SendKeys "{Enter}"
End Sub
Sub クリア()
'
' クリア Macro
'

'
SendKeys "{Delete}"
End Sub

【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