Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2936 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【65183】シートの指定がうまくいきません tm 10/4/24(土) 13:01 質問[未読]
【65186】Re:シートの指定がうまくいきません ichinose 10/4/24(土) 17:09 発言[未読]
【65187】Re:シートの指定がうまくいきません tm 10/4/24(土) 17:13 お礼[未読]
【65183】シートの指定がうまくいきません
質問  tm  - 10/4/24(土) 13:01 -
引用なし
パスワード
   Set input_l = Sheets(Cells(5, j)).Range(Cells(3, j)).Find(what:=Range("ナンバー"))
という風にしてみたらエラーになります。
Set input_l = Sheets("カウント").Range(Cells(3, j)).Find(what:=Range("ナンバー"))
とすると問題はでないです。

範囲の指定は名前をつけて指定しています。
セル上の関数ではシートを指定しなくてもindirect関数を使ったりして
エラーなく範囲を認識してくれていたのですが
これをＶＢＡ上でも拾い上げる必要が出てきてました。
ところがシートを指定しなくてはエラーが出るようで
セル上にＣＥＬＬ関数などを使ってシート名を表示し、上記のようなコードを書いた次第です。
しかし、うまくいきません。

うまくいかないのはどのようなことが考えられますか？
ご教授願います。
【65186】Re:シートの指定がうまくいきません
発言  ichinose  - 10/4/24(土) 17:09 -
引用なし
パスワード
   ▼tm さん：
こんにちは。

>Set input_l = Sheets(Cells(5, j).value).Range(Cells(3, j)).Find(what:=Range("ナンバー"))

プロパティを付ける癖をつけてください。
【65187】Re:シートの指定がうまくいきません
お礼  tm  - 10/4/24(土) 17:13 -
引用なし
パスワード
   ▼ichinose さん：
>▼tm さん：
>こんにちは。
>
>>Set input_l = Sheets(Cells(5, j).value).Range(Cells(3, j)).Find(what:=Range("ナンバー"))
>
>プロパティを付ける癖をつけてください。

え？
・・・あ、、、動く、、、

ありがとうございました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2936 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free