- Excel VBA 質問スレ Part35
635 ：デフォルトの名無しさん[]：2014/12/17(水) 13:51:26.94 ID:GsciMpzG - Sub test()
Dim obj As Object
Dim strAddress As String
Dim strAddress02 As String
Worksheets("sheet1").Activate
Set obj = Worksheets("sheet1").Cells.Find("筋肉", LookAt:=xlPart)
If Not obj Is Nothing Then
strAddress = obj.Address
Do While Not obj Is Nothing
If obj.Value Like "*マン*" Then
strAddress02 = obj.Address
MsgBox strAddress02
End If
Set obj = Cells.FindNext(obj)
If strAddress = obj.Address Then ←ここでエラー
Exit Do
End If
Loop
Else
MsgBox "見つからない"
End If
End Sub
筋肉 と マン の文字が含まれるセルのアドレスを取得したいと思っています
他にも方法はあるのかもしれませんが、とりあえず上のように組んでみました
が、エラーが出ます。なぜでしょうか
実行時エラー 91 です
|
- Excel VBA 質問スレ Part35
636 ：635[sage]：2014/12/17(水) 14:24:15.18 ID:GsciMpzG - カタカナだけの検索だとエラーでないな・・・
例えば
筋肉 と マン じゃなくて
キンニク と マン だとエラーでない
なんでですか？
|
- Excel VBA 質問スレ Part35
638 ：635[sage]：2014/12/17(水) 14:37:19.46 ID:GsciMpzG - >>637
う・・わからねぇ！
それが片仮名か平仮名漢字かに影響するんですか？
うぅぅわからなぇ！
ちょっと調べてきます
|
- Excel VBA 質問スレ Part35
639 ：635[sage]：2014/12/17(水) 14:45:51.36 ID:GsciMpzG - うわ、ますますわけ分からなくなってきた
成功するときとしないときがある事がわかった
Findの方を片仮名にした場合は100%成功
でもFindの方を筋肉にしたときも成功することあり
なんなんだこれは
|