[[20060825122701]]　『簡易リストＢｏｘへの自動追加』（みーたん）　ページの最後に飛ぶ

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

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

seiyaさん、迅速なご回答ありがとうございました。
さっそく、変更しました。
うまくいきました。ほんとうにありがとうございます。
もう一つ教えてください。
入力位置が、Ｄ１とＤ５とＦ２とＦ６にしたい場合は
はどうのように、変更すればよろしいでしょうか？
教えて下さい。よろしく御願い致します。
（みーたん）

 そのまま,,,

 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)さんのコードでうまくいきました。
ありがとうございます。
ちなみに先程のエラーは４行目で発生したみたいです。
それと、わたしの書き込み改行されていなくて、とっても読みにくいのですが・・・
みなさん、どうやって改行しているのですか？また、文字もみんなより大きいみたい・・・
（みーたん）

 頭に半角スペース入れると大丈夫ですよ～   （ぷーのすけ）
↑ 
 ここ

 みーたんさん
　
 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
 で、うまくいきました。
 みなさん、親切にありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060825122701]] 『簡易リストＢｏｘへの自動追加』（みーたん） ページの最後に飛ぶ

[[20060825122701]]　『簡易リストＢｏｘへの自動追加』（みーたん）　ページの最後に飛ぶ