[[20190322102209]]　『名前を入力すると自動で色が変わる』（はな）　ページの最後に飛ぶ

『名前を入力すると自動で色が変わる』（はな）

お世話になります。
ブックAに名前のリストがあり、ブックBにブックAのリストに入っている名前を入力すると色が変わるということは可能でしょうか。

ブラックリストに入っている人が、再び申し込みを行う際に見分けられるようにしたいのです。

ご教授お願いします。

＜使用 Excel：Excel2003、使用 OS：Windows7 ＞

 BookBを開くときにBookAの名前リストを取得してBookBに保存しておけば、、

 普通の、、あるなし判定でいいように思います。。。けど？

 でもBlackListって穏やかじゃないね(笑)、、そうゆう問題じゃないんでしょうけど、、余談、、失礼しました。
（SoulMan） 2019/03/22(金) 10:46

BookAには1万人の名前（セルA1）、判定（セルB1に○or×）が記録されております。
BookBは、異なる名簿で毎月来られた方の名前を入力しています。

BookBの名簿に名前を追加する際、名前を入力すると自動的にBookAの中にある「判定」欄を参照してBookAの名前欄に色が着くということがしたいのです。

あるなし判定が良く分からないです。

すいませんが、どなたかよろしくお願いします。
（はな） 2019/03/22(金) 16:43

 予めB列にA列の名前が入った段階で判定する数式を埋め込んでおいて、条件付き書式？

 例
 =IfError(VLookUp(A1,'C:test\[booka.xlsx]sheet1'!a:b,2,false),"")
（seiya ） 2019/03/22(金) 17:07

 方法は、色々あると思いますが、、私だったら、、ですよ

 これは↓ちょっと他に処理も加えないといけませんから乱暴ですけど、、
 別Bookとかに惑わされずに、、開くときにそのBookも開いて必要なSheetを自Bookに取り込んでしまえば、、どうですか？
 と提案しているのです。

 取り込む方法や開く方法などは、、要検討です。

 自Bookに取り込んでからのあるなしは、、何とかしないといけませんけど、、それは別の問題ということで、、、
 というかぁ、、それは、、、ですよね(^^;

 Option Explicit
 Private Sub Workbook_Open()
 Dim mybook As Workbook
 Set mybook = Workbooks.Open(Filename:="Y:\サンプル\Book1.xlsx")
 mybook.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
 End Sub

 ちなみに、、↑このコードのほとんどは記録です。

 先ずは、、記録して加工してみてはどうですか？。。。

 では、、では、、
（SoulMan） 2019/03/22(金) 17:49

コメント返信：

[ 一覧(最新更新順) ]

[[20190322102209]] 『名前を入力すると自動で色が変わる』（はな） ページの最後に飛ぶ

[[20190322102209]]　『名前を入力すると自動で色が変わる』（はな）　ページの最後に飛ぶ