|
さち さん:
えーっとほんなら、
「<< MT-9000 TEST CONTROL >> MT9025A_050 DATE : '05.05.17 11:31」
雰囲気では、<< MT-9000 TEST CONTROL >>内の「TEST CONTROL」というのは、変化がないような気がするので・・・
Sub test()
Dim strTarget As String
Dim lngA As Long 'TEST CONTROL の位置
strTarget = Range("a1").Value
lngA = InStr(1, strTarget, "TEST")
strTarget = Mid$(Left$(strTarget, lngA - 1), 4)
MsgBox strTarget
End Sub
こんな感じではどうでしょうか?
>「PROGRAM = m30302mep00f SYSTEM = Ver2.1.0b TEMP. = .0」
>の「m30302mep00f」だけを取り出したいのですが。
>これも一つのセルに入っています。
これも、同じように、規定の文字を手がかりに、Left や Mid で取り出せると思います。
|
|