Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66539 / 76734 ←次へ | 前へ→

【14758】Re:エラー処理に関して
回答  つん E-MAIL  - 04/6/7(月) 9:30 -

引用なし
パスワード
   おはようございます。

>下記の部分で"オブジェクト変数またはwithブロック変数が設定されて
>いません。"のメッセージが出るのですがどうすればよいのでしょうか?
>
> Selection.Find(What:="AA", After:=ActiveCell, LookIn:=xlFormulas, _
>   LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
>   , MatchCase:=False, MatchByte:=False).Activate

選択範囲に「AA」が無いときにエラーが出ますね?
こういう場合は、一度Rangeオブジェクトに代入してから処理をしが方がいいかも

  Dim r As Range

  Set r = Selection.Find(What:="AA", After:=ActiveCell, LookIn:=xlFormulas, _
   LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
   , MatchCase:=False, MatchByte:=False)
  
  If Not r Is Nothing Then
    処理処理
  End If
  
  Set r = Nothing

それから、「AA」てセルに入力された文字なんですよね?
LookIn:=xlFormulas だと、数式を検索・・・になるので、
「xlValues」にしたほうがいいかと・・・
1 hits

【14755】エラー処理に関して 123 04/6/7(月) 6:46 質問
【14758】Re:エラー処理に関して つん 04/6/7(月) 9:30 回答
【14774】Re:エラー処理に関して 123 04/6/7(月) 21:22 質問
【14776】Re:エラー処理に関して つん 04/6/7(月) 22:43 回答
【14780】Re:エラー処理に関して 123 04/6/7(月) 23:03 質問
【14784】Re:エラー処理に関して つん 04/6/7(月) 23:35 発言
【14789】Re:エラー処理に関して Asaki 04/6/8(火) 0:37 回答
【14834】Re:エラー処理に関して 123 04/6/8(火) 19:10 お礼
【14792】Re:エラー処理に関して kein 04/6/8(火) 0:59 回答

66539 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free