Excel VBA質問箱 IV

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

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


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

27378 / 76732

←次へ　｜　前へ→


	【54675】Re:計算結果が表記されない

VBWASURETA - 08/3/25(火) 22:34 -


	引用なし

	パスワード

こんばんは。
ちょっと４００行ぐらいのソースぐらいで実行されないというのが
気になったので試してみました。
条件がどうであれ全てちゃんと実行されましたよ？

Sub main()
　　Call 条件分岐1
　　Call 条件分岐2
　　Call 条件分岐3
　　Call 条件分岐4
　　Call 条件分岐5
　　Call 条件分岐6
　　Call 条件分岐7
　　Call 条件分岐8
　　Call 条件分岐9
　　Call 条件分岐10
　　Call 条件分岐11
　　Call 条件分岐12
　　Call 条件分岐13
　　Call 条件分岐14
　　Call 条件分岐15
　　Call 条件分岐16
　　Call 条件分岐17
　　Call 条件分岐18
　　Call 条件分岐19
　　Call 条件分岐20
　　Call 条件分岐21
　　Call 条件分岐22
　　Call 条件分岐23
　　Call 条件分岐24
　　Call 条件分岐25
　　Call 条件分岐26
　　Call 条件分岐27
　　Call 条件分岐28
　　Call 条件分岐29
　　Call 条件分岐30
　　Call 条件分岐31
End Sub
Sub 条件分岐1()
Debug.Print "条件" & 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()
Debug.Print "条件" & 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 条件分岐3()
Debug.Print "条件" & 3
If Range("K10").Value = "" Then
　　Range("M10").Value = ""
ElseIf Range("K10").Value >= "0.5" Then
　　Range("M10").Value = "0:00"
Else
　　Range("M10").Value = "1:00"
End If

End Sub
Sub 条件分岐4()
Debug.Print "条件" & 4
If Range("K11").Value = "" Then
　　Range("M11").Value = ""
ElseIf Range("K11").Value >= "0.5" Then
　　Range("M11").Value = "0:00"
Else
　　Range("M11").Value = "1:00"
End If

End Sub
Sub 条件分岐5()
Debug.Print "条件" & 5
If Range("K12").Value = "" Then
　　Range("M12").Value = ""
ElseIf Range("K12").Value >= "0.5" Then
　　Range("M12").Value = "0:00"
Else
　　Range("M12").Value = "1:00"
End If

End Sub
Sub 条件分岐6()
Debug.Print "条件" & 6
If Range("K13").Value = "" Then
　　Range("M13").Value = ""
ElseIf Range("K13").Value >= "0.5" Then
　　Range("M13").Value = "0:00"
Else
　　Range("M13").Value = "1:00"
End If

End Sub
Sub 条件分岐7()
Debug.Print "条件" & 7
If Range("K14").Value = "" Then
　　Range("M14").Value = ""
ElseIf Range("K14").Value >= "0.5" Then
　　Range("M14").Value = "0:00"
Else
　　Range("M14").Value = "1:00"
End If

End Sub
Sub 条件分岐8()
Debug.Print "条件" & 8
If Range("K15").Value = "" Then
　　Range("M15").Value = ""
ElseIf Range("K15").Value >= "0.5" Then
　　Range("M15").Value = "0:00"
Else
　　Range("M15").Value = "1:00"
End If

End Sub
Sub 条件分岐9()
Debug.Print "条件" & 9
If Range("K16").Value = "" Then
　　Range("M16").Value = ""
ElseIf Range("K16").Value >= "0.5" Then
　　Range("M16").Value = "0:00"
Else
　　Range("M16").Value = "1:00"
End If

End Sub
Sub 条件分岐10()
Debug.Print "条件" & 10
If Range("K17").Value = "" Then
　　Range("M17").Value = ""
ElseIf Range("K17").Value >= "0.5" Then
　　Range("M17").Value = "0:00"
Else
　　Range("M17").Value = "1:00"
End If

End Sub
Sub 条件分岐11()
Debug.Print "条件" & 11
If Range("K18").Value = "" Then
　　Range("M18").Value = ""
ElseIf Range("K18").Value >= "0.5" Then
　　Range("M18").Value = "0:00"
Else
　　Range("M18").Value = "1:00"
End If

End Sub
Sub 条件分岐12()
Debug.Print "条件" & 12
If Range("K19").Value = "" Then
　　Range("M19").Value = ""
ElseIf Range("K19").Value >= "0.5" Then
　　Range("M19").Value = "0:00"
Else
　　Range("M19").Value = "1:00"
End If

End Sub
Sub 条件分岐13()
Debug.Print "条件" & 13
If Range("K20").Value = "" Then
　　Range("M20").Value = ""
ElseIf Range("K20").Value >= "0.5" Then
　　Range("M20").Value = "0:00"
Else
　　Range("M20").Value = "1:00"
End If

End Sub
Sub 条件分岐14()
Debug.Print "条件" & 14
If Range("K21").Value = "" Then
　　Range("M21").Value = ""
ElseIf Range("K21").Value >= "0.5" Then
　　Range("M21").Value = "0:00"
Else
　　Range("M21").Value = "1:00"
End If

End Sub
Sub 条件分岐15()
Debug.Print "条件" & 15
If Range("K22").Value = "" Then
　　Range("M22").Value = ""
ElseIf Range("K22").Value >= "0.5" Then
　　Range("M22").Value = "0:00"
Else
　　Range("M22").Value = "1:00"
End If

End Sub
Sub 条件分岐16()
Debug.Print "条件" & 16
If Range("K23").Value = "" Then
　　Range("M23").Value = ""
ElseIf Range("K23").Value >= "0.5" Then
　　Range("M23").Value = "0:00"
Else
　　Range("M23").Value = "1:00"
End If

End Sub
Sub 条件分岐17()
Debug.Print "条件" & 17
If Range("K24").Value = "" Then
　　Range("M24").Value = ""
ElseIf Range("K24").Value >= "0.5" Then
　　Range("M24").Value = "0:00"
Else
　　Range("M24").Value = "1:00"
End If

End Sub
Sub 条件分岐18()
Debug.Print "条件" & 18
If Range("K25").Value = "" Then
　　Range("M25").Value = ""
ElseIf Range("K25").Value >= "0.5" Then
　　Range("M25").Value = "0:00"
Else
　　Range("M25").Value = "1:00"
End If

End Sub
Sub 条件分岐19()
Debug.Print "条件" & 19
If Range("K26").Value = "" Then
　　Range("M26").Value = ""
ElseIf Range("K26").Value >= "0.5" Then
　　Range("M26").Value = "0:00"
Else
　　Range("M26").Value = "1:00"
End If

End Sub
Sub 条件分岐20()
Debug.Print "条件" & 20
If Range("K27").Value = "" Then
　　Range("M27").Value = ""
ElseIf Range("K27").Value >= "0.5" Then
　　Range("M27").Value = "0:00"
Else
　　Range("M27").Value = "1:00"
End If

End Sub
Sub 条件分岐21()
Debug.Print "条件" & 21
If Range("K28").Value = "" Then
　　Range("M28").Value = ""
ElseIf Range("K28").Value >= "0.5" Then
　　Range("M28").Value = "0:00"
Else
　　Range("M28").Value = "1:00"
End If

End Sub
Sub 条件分岐22()
Debug.Print "条件" & 22
If Range("K29").Value = "" Then
　　Range("M29").Value = ""
ElseIf Range("K29").Value >= "0.5" Then
　　Range("M29").Value = "0:00"
Else
　　Range("M29").Value = "1:00"
End If

End Sub
Sub 条件分岐23()
Debug.Print "条件" & 23
If Range("K30").Value = "" Then
　　Range("M30").Value = ""
ElseIf Range("K30").Value >= "0.5" Then
　　Range("M30").Value = "0:00"
Else
　　Range("M30").Value = "1:00"
End If

End Sub
Sub 条件分岐24()
Debug.Print "条件" & 24
If Range("K31").Value = "" Then
　　Range("M31").Value = ""
ElseIf Range("K31").Value >= "0.5" Then
　　Range("M31").Value = "0:00"
Else
　　Range("M31").Value = "1:00"
End If

End Sub
Sub 条件分岐25()
Debug.Print "条件" & 25
If Range("K32").Value = "" Then
　　Range("M32").Value = ""
ElseIf Range("K32").Value >= "0.5" Then
　　Range("M32").Value = "0:00"
Else
　　Range("M32").Value = "1:00"
End If

End Sub
Sub 条件分岐26()
Debug.Print "条件" & 26
If Range("K33").Value = "" Then
　　Range("M33").Value = ""
ElseIf Range("K33").Value >= "0.5" Then
　　Range("M33").Value = "0:00"
Else
　　Range("M33").Value = "1:00"
End If

End Sub
Sub 条件分岐27()
Debug.Print "条件" & 27
If Range("K34").Value = "" Then
　　Range("M34").Value = ""
ElseIf Range("K34").Value >= "0.5" Then
　　Range("M34").Value = "0:00"
Else
　　Range("M34").Value = "1:00"
End If

End Sub
Sub 条件分岐28()
Debug.Print "条件" & 28
If Range("K35").Value = "" Then
　　Range("M35").Value = ""
ElseIf Range("K35").Value >= "0.5" Then
　　Range("M35").Value = "0:00"
Else
　　Range("M35").Value = "1:00"
End If

End Sub
Sub 条件分岐29()
Debug.Print "条件" & 29
If Range("K36").Value = "" Then
　　Range("M36").Value = ""
ElseIf Range("K36").Value >= "0.5" Then
　　Range("M36").Value = "0:00"
Else
　　Range("M36").Value = "1:00"
End If

End Sub
Sub 条件分岐30()
Debug.Print "条件" & 30
If Range("K37").Value = "" Then
　　Range("M37").Value = ""
ElseIf Range("K37").Value >= "0.5" Then
　　Range("M37").Value = "0:00"
Else
　　Range("M37").Value = "1:00"
End If

End Sub
Sub 条件分岐31()
Debug.Print "条件" & 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