|
>COBOLなどならSERCH命令で検索するのですが
さっき聞いてきました。
なんかエクセルの検索っぽかったみたいですね。
Orで良いと思いますけどね、どんな手間かわからないけど....。
1、
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
2、
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
3、COBOLなどならSERCH命令にこだわるなら
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
|
|