...ing logging 3.0 このページをアンテナに追加 RSSフィード

July 01(Fri), 2011

指定した文字列を含むセルを検索する関数

Function FINDCELL(r As Range, str As String) As Object

    Dim theCell As Object
    Set theCell = r.Cells.Find(str, LookAt:=xlPart)
    If theCell Is Nothing Then
        Set FINDCELL = Nothing
    Else
        Set FINDCELL = theCell
    End If
    
End Function

haru-sharu-s 2011/07/04 01:28 カウンタ使ってないし直す

haru-sharu-s 2011/07/09 00:20 直した.
結果が複数あったらどうしよう.

haru-sharu-s 2011/07/24 01:23 というかNothingだったらNothing返してるw

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/haru-s/20110701/1309535955