エクセルVBAについての質問です

Question

エクセルVBA初心者です。よろしくお願いします。シフト表を作成しています。
休憩開始時間をセルN7に入力すると・・・

N8セル =IF(N7="",TIME(0,0,0),(N7+TIME(1,0,0)))

関数を入れて休憩終了時間の入力する手間を省いています。

シフト表なので、N7、P7、R7・・・BV7まで（31日分）
N10、N13、N16・・・N109まで（35人分）

関数を使わず、VBAで計算する方法はありますでしょうか？

皆様の知恵をお借りしたいと思います。

Comments

[hato_pato]

VBAで関数の代わりのコードを書けばよいだけなので可能です。
関数ではなく、VBAで計算させたい理由はなんでしょう？
あとExcelのシフト表の形式について情報がないと、
どうなれば正解なのか分からないと思います。
開示できる範囲で情報追加をお願いします。

[退会済みユーザー]

VBAで計算した理由は、通常の休憩時間は1時間ですが、30分の場合もあるためです。
そのため、関数が入っているセルにはロックをかけてありますが、30分入力の場合、手間になると考えています。

・休憩時間を入力すると、プラス1時間計算される
・休憩時間が入力されていないときは、空欄

以上の様な処理をしてほしいと考えています。

[hato_pato]

休憩する時間を入力するということですか？
休憩する時間を休憩終了時間に足せばよい？

[退会済みユーザー]

はい！その通りです！

Answer 1

休憩時間の入力方法がわからないのでなんともですが、↓な感じの関数ではだめですか？

■分入力(60分、30分)の場合
N8セル =IF(N7="",TIME(0,0,0),(N7+TIME(0,[休憩時間入力セル],0)))

■時間入力(1時間、0.5時間)の場合
N8セル =IF(N7="",TIME(0,0,0),(N7+TIME(0,[休憩時間入力セル] * 60,0)))

VBAは最終手段と考えた方がいいです。
便利ですが、なんでもかんでもVBAにするのは間違いです。
Excel関数で実現できることは関数で実現しましょう。

Answer 2

Forループでセルを順番に処理するマクロを書く

ベタに

Dim r As Integer
Dim c As Integer

'35人分の処理
For r=0 to 34
  '31日分の処理
  For c=0 to 30
   Range("N8").Offset(r,c)=目的の計算式
  Next c
Next r

とでもしておいて、おいおいブラッシュアップされるとよろしいかと