Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27392 / 76732

←次へ　｜　前へ→


	【54661】計算結果が表記されない

yasu - 08/3/25(火) 16:20 -


	引用なし

	パスワード

こんにちは。

現在勤務表を作っており、K列に始業時間（これは変動するので手入力）で
M列に休憩時間をマクロで動かしたいと思っています。

色々、面倒ですが1～31文の分岐を作ってK列の時間が12時前なら、M列に
1時間。K列が12時以降なら0:00。K列が空白ならM列も空白としたいのですが、
始業時間を全ていれてボタンでマクロを動かすと所々結果が反映されません。

だからといって該当行のみ始業時間を入れてボタンを押すと正常に動作します。
考えられる原因としては構文が長すぎなのでしょうか？
省略するとすればやはり分岐条件の所でしょうか？

原因がもし分かればご教授ください。宜しくお願いいたします。

以下構文↓
――――――――――――――――――――――
Sub 分岐()

Call 条件分岐1
Call 条件分岐2
・
・
・
Call 条件分岐31

End Sub

――――――――――――――――――――――
Sub 条件分岐1()

If Range("K8").Value = "" Then
　　Range("M8").Value = ""
ElseIf Range("K8").Value >= "0.5" Then
　　Range("M8").Value = "0:00"
Else
　　Range("M8").Value = "1:00"
End If

End Sub
――――――――――――――――――――――
Sub 条件分岐2()

If Range("K9").Value = "" Then
　　Range("M9").Value = ""
ElseIf Range("K9").Value >= "0.5" Then
　　Range("M9").Value = "0:00"
Else
　　Range("M9").Value = "1:00"
End If

End Sub
――――――――――――――――――――――
・
・
・
――――――――――――――――――――――
Sub 条件分岐31()

If Range("K38").Value = "" Then
　　Range("M38").Value = ""
ElseIf Range("K38").Value >= "0.5" Then
　　Range("M38").Value = "0:00"
Else
　　Range("M38").Value = "1:00"
End If

End Sub
――――――――――――――――――――――

0 hits

▼

【54661】計算結果が表記されない yasu 08/3/25(火) 16:20

≪