Excel VBA質問箱 IV

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

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


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

2210 / 76735

←次へ　｜　前へ→


	【80169】Re:VBA Do Loop Untilでエラー

まよい人 - 18/10/4(木) 15:54 -


	引用なし

	パスワード

γ 様

ありがとうございます。
仰る通りです。

エラーが生じるコードは

Function 支(ByRef currentRow As Long, ByVal flag As Boolean, ByVal 列 As Byte)
　　With ActiveSheet
　　Dim myLevel As Byte
　　myLevel = Val(.Range("H" & currentRow))
　　Do
　　　　Dim I_Flag As Boolean
　　　　I_Flag = CStr(.Range("Q" & currentRow)) = "380"
　　　　If Not I_Flag Then
　　　　　　If flag Then
　　　　　　　　Set ss = Me.Range("E3:E453").Find(Left(.Range("F" & currentRow), 13), LookIn:=xlValues, LookAt:=xlPart)
　　　　　　　　If ss Is Nothing Then Set ss = Me.Range("E3:E453").Find(Left(.Range("F" & currentRow), 11) & "X" & Mid(.Range("F" & currentRow), 13, 1))
　　　　　　　　I_Flag = ss Is Nothing
　　　　　　　　If Not I_Flag Then I_Flag = Me.Cells(ss.Row, 列) = ""

　　　　　　　　If Not I_Flag Then
　　　　　　　　　　If Left(.Range("K" & currentRow), 1) <> "ﾑ" Then
　　　　　　　　　　　　.Range("K" & currentRow) = "ﾑ←" & .Range("K" & currentRow)
　　　　　　　　　　　　.Range("K" & currentRow).Interior.ColorIndex = 33
　　　　　　　　　　End If
　　　　　　　　ElseIf Left(.Range("K" & currentRow), 2) <> "ｼﾞ" Then
　　　　　　　　　　.Range("K" & currentRow) = "ｼﾞ←" & .Range("K" & currentRow)
　　　　　　　　　　.Range("K" & currentRow).Interior.ColorIndex = 33
　　　　　　　　End If
　　　　　　End If
　　　　ElseIf Left(.Range("K" & currentRow), 2) <> "ｼﾞ" Then
　　　　　　.Range("K" & currentRow) = "ｼﾞ←" & .Range("K" & currentRow)
　　　　　　.Range("K" & currentRow).Interior.ColorIndex = 33
　　　　End If
　　　　currentRow = currentRow + 1

　　　　If myLevel < Val(.Range("H" & currentRow)) Then Call 支(currentRow, I_Flag, 列)
　　Loop Until myLevel > Val(.Range("H" & currentRow))
　　End With
End Function

です。

0 hits

▼

【80163】VBA Do Loop Untilでエラー まよい人 18/10/2(火) 15:16