Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11449 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16141】時間計算のマクロボタン なおみ 04/7/17(土) 15:33 質問[未読]
【16142】Re:時間計算のマクロボタン [名前なし] 04/7/17(土) 15:56 回答[未読]
【16145】Re:時間計算のマクロボタン かみちゃん 04/7/17(土) 16:04 回答[未読]
【16147】Re:時間計算のマクロボタン [名前なし] 04/7/17(土) 16:43 発言[未読]
【16143】Re:時間計算のマクロボタン かみちゃん 04/7/17(土) 15:57 回答[未読]
【16150】Re:時間計算のマクロボタン なおみ 04/7/17(土) 19:36 お礼[未読]
【16141】時間計算のマクロボタン
質問  なおみ  - 04/7/17(土) 15:33 -
引用なし
パスワード
   はじめまして。
事務上でどうしてもマクロが必要になったのですが、どうしていいのかわからずこちらにアクセスいたしました。
ひとつのセルを選択し、現在時間に７０時間を加算した日時をそのセルに表示するマクロ機能を持ったボタンを作りたいのですがどうすればよろしいのでしょうか？
よろしくお教え願います。
【16142】Re:時間計算のマクロボタン
回答  [名前なし]  - 04/7/17(土) 15:56 -
引用なし
パスワード
   Selection.Value = DateAdd("h", 70, Selection.Value)

でよいかと。
【16143】Re:時間計算のマクロボタン
回答  かみちゃん  - 04/7/17(土) 15:57 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ひとつのセルを選択し、現在時間に７０時間を加算した日時をそのセルに表示するマクロ機能を持ったボタンを作りたいのですがどうすればよろしいのでしょうか？

コントロールツールボックスから、コマンドボタンをシート上に配置します。
コマンドボタンのデザインモードからコードを表示します。
下記のコードを記述すると、できます。
Private Sub CommandButton1_Click() '
　ActiveCell.Value = Now() + TimeSerial(70, 0, 0)
End Sub
【16145】Re:時間計算のマクロボタン
回答  かみちゃん  - 04/7/17(土) 16:04 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Selection.Value = DateAdd("h", 70, Selection.Value)
>
>でよいかと。

いえ、これでは「現在時間に７０時間を加算した日時」になりません。
現在時間ではなく、「選択したセルの値に70時間を加算した日時」になります。
選択したセルの値が日付／時刻型でない場合、「型が一致しません」のエラーになります。

Selection.Value = DateAdd("h", 70, Now())
でいいのではないでしょうか？
【16147】Re:時間計算のマクロボタン
発言  [名前なし]  - 04/7/17(土) 16:43 -
引用なし
パスワード
   ▼かみちゃん さん：

>いえ、これでは「現在時間に７０時間を加算した日時」になりません。
>現在時間ではなく、「選択したセルの値に70時間を加算した日時」になります。
>選択したセルの値が日付／時刻型でない場合、「型が一致しません」のエラーになります。
>
>Selection.Value = DateAdd("h", 70, Now())
>でいいのではないでしょうか？

すみません。なにか勘違いしていたようです。寝ぼけてたかな・・・
おっしゃる通りですね。フォローどうもです。
【16150】Re:時間計算のマクロボタン
お礼  なおみ  - 04/7/17(土) 19:36 -
引用なし
パスワード
   かみちゃんさん、[名前なし]さん、ありがとうございます。
早速教えていただいたとおりマクロボタンを作ってみようと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11449 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free