[[20060825122701]] 『簡易リストBoxへの自動追加』(みーたん) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『簡易リストBoxへの自動追加』(みーたん)
はじめまして、過去の質問[[20050425224445]]で、入力位置をD1だけではなく、D2やD3にも入力場所を作りたいのですが、その場合はどうのように、変更すればよろしいでしょうか?教えて下さい。よろしく御願い致します。

 >If Target.Address <> "$D$1" Then Exit Sub
 を
 If Intersect(Target, Range("d1:d3")) Is Nothing Then Exit Sub
 等に変更、という意味かな? (seiya)

seiyaさん、迅速なご回答ありがとうございました。
さっそく、変更しました。
うまくいきました。ほんとうにありがとうございます。
もう一つ教えてください。
入力位置が、D1とD5とF2とF6にしたい場合は
はどうのように、変更すればよろしいでしょうか?
教えて下さい。よろしく御願い致します。
(みーたん)

 そのまま,,,

 If Intersect(Target,Range("d1","d5","f2","f6")) Is Nothing Then Exit Sub

 (seiya)

seiyaさん、ありがとうございました。
(みーたん)


あれっ!すみません。
コンパイルエラー:引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)なんてエラーが発生してしまいました?
なんででしょう????(みーたん)


 どの行でエラーですか?
 コードをアップしてください (seiya)

 多分....
 if intersect(target,range("d1","d5")) is nothing and intersect(target,range("f2","f6")) is nothing then exit sub
 でないかと....
 (ROUGE)

 ↑理由がわからない.... (seiya)

 rangeの引数は2つなので。
 もしくは
 if intersect(target,union(range("d1", "d5"),range("f2", "f6"))) is nothing...
 (ROUGE)

 range("a1","c1","f1","d4").select

 こういうことも出来ませんか? (seiya)


 コンパイラ通りません・・・orz
 よくよく質問みると、
 if intersect(target,union(range("d1"),range("d5"),range("f2"),range("f6"))) is nothing...
 ですか...
 (ROUGE)

 あっ!
 seiyaさん、こういうことだったのね・・・orz
 range("a1,c1,f1,d4").select
 (ROUGE)

 衝突!
 そうそう、間違えちゃったみたいね。 (seiya)

ご回答ありがとうございました。(ROUGE)さんのコードでうまくいきました。
ありがとうございます。
ちなみに先程のエラーは4行目で発生したみたいです。
それと、わたしの書き込み改行されていなくて、とっても読みにくいのですが・・・
みなさん、どうやって改行しているのですか?また、文字もみんなより大きいみたい・・・
(みーたん)

 頭に半角スペース入れると大丈夫ですよ〜   (ぷーのすけ)
↑ 
 ここ

 みーたんさん
 
 Unionはワンテンポ遅くなります
 If Intersect(target, range("d1,d5,f2,f6")) Is Nothing Then Exit Sub
 が良いでしょう (seiya)

 ぷーのすけさん、ありがとうございました。
 さっそく使わせていただきました。
 seiyaさん、ありがとうございます。
 If Intersect(target, range("d1,d5,f2,f6")) Is Nothing Then Exit Sub
 で、うまくいきました。
 みなさん、親切にありがとうございました。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.