日付無しで時間の足し算引き算がしたいの調べたのですがありませんでした。
constでDatetimeはあったので使い方もよくわかりません、
やりたいイメージは、セルに入力されている行の時刻とパターンで加算したいです
dim a,b
const time1 = time(00:01:01) 1分1秒をconstしたい
const time2 = time(00:02:01) 2分1秒をconstしたい
const time3 = time(00:20:00) 20分をconstしたい
a = cell(2,2)~(22000,3) ここに時刻が12;30のように入っている,各行入っており
b = cell(2,3)~(22000,3) ここにパターンが入っている
最終行は22,000です。
case b =1
time = a + time1
case b =2
time = b + time2
cell(2,4) = time
2万行くらいのデータで関数を使いたくないです。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
VBAでは、日付はできても、時間計算はそのままでは、できないはずです。
小数点演算には、どこかで、浮動小数点誤差丸めが発生してしまいます。計算上のおよそ5割、小数点演算で誤差が発生してしまいます。理由は、PCの計算はバイナリーだからです。>2万行くらいのデータで関数を使いたくないです。
そのまま考えずにやったら、誤差丸めに直面してしまいます
また、定数の中は計算ができません。リテラル値に限ります。
その中で、文字型定数が一番安定しているのではないかと思います。少なくともTimeValue 計算をする前まで変化はしていません。そのあとに、CDec で、十進型にして上げれば、数式が、10進で計算されるようになるはずです。これは、理論的なことなので、実際に、ふつうの計算をした場合と見かけは変わらないかもしれません。
'//
Sub TimeCalculate()
Dim i As Long
Dim LastRow As Long
Const TIME1 As String = "0:1:1"
Const TIME2 As String = "0:2:1"
Const TIME3 As String = "0:20:0"
Dim ArTime
ArTime = Array(TimeValue(TIME1), TimeValue(TIME2), TimeValue(TIME3))
LastRow = Cells(Rows.Count, 2).End(xlUp).Row 最後の行
Application.ScreenUpdating = False
'先に書式が来たほうが、貼り付けが安定する。
Range(Cells(2, 4), Cells(LastRow, 4)).NumberFormatLocal = "[h]:mm:ss"
For i = 2 To LastRow
If (Cells(i, 2).Value > 0 And Cells(i, 2).Value < 4) Then
Cells(i, 4).Value = Cells(i, 3).Value + CDec(ArTime(Cells(i, 2).Value - 1)) '十進の計算
End If
Next i
Application.ScreenUpdating = True
End Sub
'//
ここは。
>a = cell(2,2)~(22000,3) これは、a = cell(2,2)~(22000,2) と読み替えました。
そして、以下のようになっていると仮定しています。
B C
2 0:10:49
1 0:06:47
3 0:05:10
2 0:09:54
3 0:09:55
1 0:07:12
No.2
- 回答日時:
こんにちは。
>時間の足し算引き算がしたいの~
既回答にもありますが、時間(シリアル値)であれば、加減算ができます。
ちなみに、エクセルのシリアル値は1日が1に相当し、1時間は1/24、1分は1/24/60・・に該当します。
加算の結果が24時間を越えると、通常の書式では日に繰り上げられますが、書式を設定することで、時間単位で「35時間」のような表示にすることも可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- その他(ソフトウェア) OMRON PLC CP2Eのプログラム 1 2022/11/24 10:57
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- 工学 ちなみになぜv=(v・e1)e1+(v・e2)e2はe1やe2が、正規直交基底でないと成り立たないと 2 2022/12/22 17:22
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
-
VBAでの勤務時間計算
Visual Basic(VBA)
-
vbaの時間計算について
Excel(エクセル)
-
-
4
Excel VBAの残業時間の合計計算について
その他(プログラミング・Web制作)
-
5
エクセルVBAの時間計算
Excel(エクセル)
-
6
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
7
VBAで○○:○○と表示させたいのに小数で0.53125のように表示さ
Access(アクセス)
-
8
31:30:00が1900/1/1 7:30:0
その他(Microsoft Office)
-
9
VBAで時間(00:00形式)を積算(足し算)したい
Visual Basic(VBA)
-
10
IF文に時間(何時から何時まで)の条件文を付けたい
Word(ワード)
-
11
VBAのIF分で時間指定の条件式の書き方
Visual Basic(VBA)
-
12
Excel VBA で時刻の24時間表示がわかりません
その他(Microsoft Office)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
Excelマクロにて30分単位の計算方法について
Visual Basic(VBA)
-
15
VBA コンボボックスで選んだ値を取得するには
その他(Microsoft Office)
-
16
エクセルのVBAで数値を時刻の値へ変換するには?
Excel(エクセル)
-
17
分を時間に変換するプログラム
Visual Basic(VBA)
-
18
excel vba 時間計算と条件分岐の質問
Visual Basic(VBA)
-
19
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【有効数字について】 授業で、...
-
有効数字計算 確定した値を含む
-
エクセル2010で2進数の計算をす...
-
有効数字
-
8進数 8進数の47+32の答えを 8...
-
有効数字
-
有効数字は最後答えを出すとき...
-
1TBHDDに音楽ファイルは何ア...
-
ファイル名の長短について
-
EXCEL16進⇒浮動小数変換したい
-
EXCELでの16進数取り出し、上...
-
文字の容量(サイズ)についての...
-
エクセルVBAで xlOn xlOff の切替
-
6ビット(符号含む)の二進数
-
アルファベット30文字は何バイ...
-
携帯電話の略語であるMBって英...
-
KBのMB違いって
-
GB と Gbの違いの意味
-
1MBって何K?
-
動画容量10Gを50Mpdsでアップロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【有効数字について】 授業で、...
-
もしコンピューターが2進数か...
-
エクセル2010で2進数の計算をす...
-
16bitはダイナミックレンジが97...
-
有効数字は最後答えを出すとき...
-
12万の5%はいくらですか?
-
かけ算(わり算)と足し算(引き算...
-
VBAで時間の型と計算方法教えて...
-
【エクセル】四捨五入・二捨三...
-
1TBHDDに音楽ファイルは何ア...
-
1秒は何ミリ秒とか、単位変換の...
-
有効数字
-
進数の計算について質問です。 ...
-
有効数字について
-
符号付の整数8ビット…
-
ラジアンの変換について
-
有効数字の計算
-
エクセルで入力できる桁数は?
-
有効数字
-
なぜ1と0か?
おすすめ情報