| |
>ＣＯＢＯＬなどならＳＥＲＣＨ命令で検索するのですが
さっき聞いてきました。
なんかエクセルの検索っぽかったみたいですね。
Orで良いと思いますけどね、どんな手間かわからないけど....。
１、
Dim ary As Variant, kekka As Variant
ary = Array(1, "E")
kekka = Application.Match(Cells(1, 1).Value, ary, 0)
If Not IsError(kekka) Then
If Mid(Cells(i, 2), 1, 1) = "3" Then
End If
End If
２、
Dim st As String
st = "1E"
If InStr(1, st, Cells(1, 1).Value) > 0 Then
If Mid(Cells(i, 2), 1, 1) = "3" Then
End If
End If
３、ＣＯＢＯＬなどならＳＥＲＣＨ命令にこだわるなら
Dim st As String, kekka As Variant
st = "1E"
kekka = Application.Search(Cells(1, 1).Value, st, 1)
If Not IsError(kekka) Then
If Mid(Cells(i, 2), 1, 1) = "3" Then
End If
End If
|
|
Jaka
- 06/10/5(木) 12:09 -
