Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53378 / 76737

←次へ　｜　前へ→


	【28175】Re:値の検索と表示

小僧 - 05/8/30(火) 13:53 -


	引用なし

	パスワード

▼sama さん：
こんにちは。

後出しジャンケンは別に構わないのですが

>例えば、テキストボックス１に“B”、

という仕様ならうまくいくのかどうかを報告して頂きたかったのですが…。
(過去ログとして他の人の参考になるように)

定義を作成した場合は、
RefersToLocal プロパティの中に Sheet 情報まで含まれるため、

>　　With Sheets(SName)
>　　　　Set MyRange = .Range(.Range(Me.txt検索_列 & "1"), _
>　　　　　　　　　　　　.Range(Me.txt検索_列 & "65535").End(xlUp))
>　　End With

の様な事が必要なくなります。(txt検索_列も)

　　 Set MyRange = Range(ActiveWorkbook.Names("定義名").RefersToLocal)

でシート名までとって来てくれると思います。

※ End Sub の手前に、

　 Set MyRange = Nothing

　を付け加えておいて下さい。

0 hits

▼

【28107】値の検索と表示 sama 05/8/29(月) 10:11