Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
394 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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")

ご回答ありがとうございます、実行しましたところ
当方の求める結果になりました、ありがとうございます。
知識不足ゆえ、簡単なこともわからず　ご回答いただいたお二方に感謝いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
394 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free