|
こんにちは。かみちゃん です。
>>前回の
>>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=67175;id=excel
>>に関連しているのであれば、もう少し簡単にすることができます。
>>("部:"が含まれているときに書き換えると同時にN列の設定をする)
>
>関連しています、それはどんな方法になりますでしょうか。
Hirofumiさんより。またコメントが出ているようですが、
ご自身で書かれたコードをできるだけ活かして、Hirofumiさんのアドバイスを
最低限のものだけ盛り込むとすれば、以下のようになります。
Sub Sample2()
Const cstrChar As String = "部:"
Dim GYOU As Long
Dim Bretu As Range
Dim lngPos As Long
Dim Nretu As Variant
For GYOU = 1 To 5000
Set Bretu = Range("B", GYOU)
lngPos = InStr(1, Bretu.Value, cstrChar, vbTextCompare)
If lngPos > 0 Then
Nretu = Val(Mid(Bretu.Value, lngPos + Len(cstrChar)))
Else
Bretu.Offset(1, 12).Value = Nretu
End If
Next GYOU
End Sub
|
|