Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5321 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【51489】時間を分で表現する方法 小池屋 07/9/21(金) 10:17 質問[未読]
【51493】Re:時間を分で表現する方法 キャリア 07/9/21(金) 10:44 回答[未読]
【51522】Re:時間を分で表現する方法 小池屋 07/9/21(金) 16:49 発言[未読]
【51494】Re:時間を分で表現する方法 じゅんじゅん 07/9/21(金) 10:50 発言[未読]
【51500】Re:時間を分で表現する方法 ハチ 07/9/21(金) 12:11 発言[未読]
【51489】時間を分で表現する方法
質問  小池屋  - 07/9/21(金) 10:17 -
引用なし
パスワード
   こんにちわ。
今
開始時間　 終了時間　　時間（分）
8:00　　　 10:00　　　　120
というエクセルシートがあります。

１、開始時間から終了時間を分で出す方法

２、開始時間から分(時間(分))を計算して終了時間を出す方法


以上の２点vbaで記述するにはどうすればよろしいでしょうか？

初心者なもんで関数ですと、だいぶながい関数式になりそうですが、
vbaなら簡単かなぁと思っております。


宜しくお願い致します。
【51493】Re:時間を分で表現する方法
回答  キャリア  - 07/9/21(金) 10:44 -
引用なし
パスワード
   一例ですので参考程度に。もっと簡単な方法があるかもです。

１．について
8:00から10:00までの時間（分）
? (DatePart("h", cdate("10:00")) * 60 + DatePart("n", cdate("10:00"))) - (DatePart("h", cdate("8:00")) * 60 + DatePart("n", cdate("8:00")))
120


２．ついて
例）8:00に120分を加算する場合

? dateadd("n",120,cdate("8:00"))
10:00:00
【51494】Re:時間を分で表現する方法
発言  じゅんじゅん  - 07/9/21(金) 10:50 -
引用なし
パスワード
   ▼小池屋 さん：
>こんにちわ。
>今
>開始時間　 終了時間　　時間（分）
> 8:00　　　 10:00　　　　120
>というエクセルシートがあります。

　 A　　　B　　 C
1 8:00　10:00　120

C1 =B1-A1
C1　右クリック−セルの書式設定−ユーザー定義で　[mm]

2 8:00　 120　　10:00

C2 =A2+B2
B2 セルの書式設定−ユーザー定義 [mm]
C2　　　　　　　　　　　　　　　hh:mm

かな？
【51500】Re:時間を分で表現する方法
発言  ハチ  - 07/9/21(金) 12:11 -
引用なし
パスワード
   ▼小池屋 さん：
>こんにちわ。
>今
>開始時間　 終了時間　　時間（分）
> 8:00　　　 10:00　　　　120
>というエクセルシートがあります。
>
>１、開始時間から終了時間を分で出す方法
>
>２、開始時間から分(時間(分))を計算して終了時間を出す方法
>
>
>以上の２点vbaで記述するにはどうすればよろしいでしょうか？
>
>初心者なもんで関数ですと、だいぶながい関数式になりそうですが、
>vbaなら簡単かなぁと思っております。
>
>
>宜しくお願い致します。

データが文字列ではなくシリアル値なら・・
開始=A2セル、終了=B2セルとして
１、
=(B2-A2)*1440
セルの書式　数値　で。

どうでしょう？
【51522】Re:時間を分で表現する方法
発言  小池屋  - 07/9/21(金) 16:49 -
引用なし
パスワード
   皆さん回答ありがとうございます。


>１．について
>8:00から10:00までの時間（分）
>? (DatePart("h", cdate("10:00")) * 60 + DatePart("n", cdate("10:00"))) - (DatePart("h", cdate("8:00")) * 60 + DatePart("n", cdate("8:00")))
> 120

>
>２．ついて
>例）8:00に120分を加算する場合
>
>? dateadd("n",120,cdate("8:00"))
>10:00:00


１，２、で時間を変数にするのと返値のデータ型はどうすればいいのでしょうか？

データ型　string,variant,integer など試して見たのですが、返値が
1899/12/31 となってしまいます。。。。
すみません。。。どうぞ宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5321 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free