コンパイルエラー:が出るようになった
Worksheets("集計型")のA列に下記DATAが合って
01 Lemurian Dreams 00:00
B列に
00:00:00
C列に
01 Lemurian Dreams
を抜き出すマクロを作成しています。
こちらでマクロのコードを教えてもらって
以前は下記のマクロで問題なく抽出出来ていたのに
何故か、現在下記のコードのReplaceでエラーが出ます。
n = Len(strTime) - Len(Replace(strTime, ":", ""))
コンパイルエラー:
引数の数が一致しません。又は不正なプロパティを設定しています。
原因の特定をしたいのですがアドバイスをお願いします。
Sub Chapterファイルの書き出し_準備()
Set ws1 = Worksheets("集計型")
Set ws2 = Worksheets("Chapter")
'DATAシートのセルを初期化
ws1.Range("B2:D100").Clear
'chapter作成の事前準備(項目ごとにセルに書き出し)
Call 時間相当及びそれ以外抜き出し
rc = MsgBox("時間部と記事部の書き出し処理が終了しました。" & Chr(13) & _
"間違いないか?もう一度確認ください。 !!", vbYesNo + vbQuestion, "確認")
If rc = vbNo Then
MsgBox "処理を中止します。", vbCritical
Exit Sub
Else
MsgBox "処理が終了しました 処理③に進んでください。", vbInformation
End If
Set ws1 = Nothing
End Sub
Public Sub 時間相当及びそれ以外抜き出し()
Dim i As Long, j As Long, v As Variant, strTime As String, n As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
v = Split(Cells(i, 1).Value)
strTime = ""
For j = 0 To UBound(v)
If InStr(v(j), ":") Then strTime = v(j)
Next
n = Len(strTime) - Len(Replace(strTime, ":", ""))
Cells(i, 2).NumberFormatLocal = "hh:mm:ss"
Cells(i, 2).Value = IIf(n = 1, "00:" & strTime, strTime)
Cells(i, 3).Value = WorksheetFunction.Trim(Replace(Cells(i, 1), strTime, ""))
Next
End Sub
お礼
どうもありがとうございます!m(_ _)m >「エラートラップ」の項目が『エラー発生時に中断』になっていませんか? はい、なっておりました。m(_ _)m変更すると、うまくスルーしてくれる様になりました^^ 存じませんでしたので非常に助かりました。この項目の使い方を覚えておきます。 この度はお教えいただき誠に助かりました。どうもありがとうございました!!