Function RetLC(r As String, sh As String)
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する)
'"*"の位置を変えれば後ろからrev、途中Midの検索も可能
Dim i As Integer,CC As Integer
Sheets(sh).Select
CC = 1 '1:A列 2:B列・・・
RetLC = 0
For i = 1 To 1000
If Cells(i, CC) Like r & "*" Then
RetLC = i
Exit For
End If
Next i
End Function
Function RetLCRev(r As String, sh As String)
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する)
'
Dim i As Integer,CC As Integer
Sheets(sh).Select
CC = 1 '1:A列 2:B列・・・
RetLCRev = 0
For i = 1 To 1000
If Cells(i, CC) Like "*" & r Then
RetLCRev = i
Exit For
End If
Next i
End Function
例:r=”本文”とするとシート内の”ここからが本文”がヒットし、その行を返す。
文字列の検索の仕方を文字の途中に一致する文字列が含まれる場合 。
Function RetLCMid(r As String, sh As String)
Function RetLCMid(r As String, sh As String)
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する)
'
Dim i As Integer,CC As Integer
Sheets(sh).Select
CC = 1 '1:A列 2:B列・・・
RetLCMid = 0
For i = 1 To 1000
If Cells(i, CC) Like "*" & r & "*" Then
RetLCMid = i
Exit For
End If
Next i
End Function