**内容 [#m547d6bb]
#setlinebreak(on)
#contents
**目的 [#u6b4e145]
名簿から任意の人を拾ってきて、住所シールにプリントするのに適する形に整形する。
**入力イメージ(「名簿」シート) [#h40c322b]
   	         名前   	郵便番号	住所
 レ	1	ああ あああ	111-1111	千葉県xx市xxx1-1-11
 	2	いい いいい	111-1112	千葉県xx市xxx1-1-12
 レ	3	うう ううう	111-1113	千葉県xx市xxx1-1-13
 レ	4	ええ えええ	111-1114	千葉県xx市xxx1-1-14
 レ	5	おお おお	111-1115	千葉県xx市xxx1-1-15
 	6	かか かかか	111-1116	千葉県xx市xxx1-1-16
      ・・・・・・・・・・・・・・
      ・・・・・・・・・・・・・・

使用する行のA列にレを入力。(プルダウンでレを選択。)
***「レ」のプルダウンについて補足 [#b573cda0]
もちろん「♪レ レ レイク」にならってチェックを「レ」にしました。

というのは半分冗談なのだけど、ほんとのチェックボックスはマクロ組まないとできないようで、このような実装にしました。
マクロはやってもいいんだけど、開く時に「ウイルスあるかもだけどいい?」って聞かれるのがうざいし、とりあえず、なるべく普通の関数でるのを試してみたんですよ。

で、「名簿」シートのA列が「レ」になってるところを拾って「シール」シートに出力するようにしているのだけど、これが空白と「レ」を選ぶプルダウンメニューになっているので、
確かにチェックボックスと比べてアクションが多くてめんどくさい。
すばやく「レ」を変えるには、「レ」のセルをCtr+Cでコピーして、つけたいところにCtr+Vでコピーして行って、外したいところは空白を同じようにコピーしてペーストしていく、
とかかしら。これならそんなにストレスないと思う。
ただ、空白をコピーする時は、A列のプルダウンが備わっているセルをコピーするように気をつけないとプルダウン情報が消えてしまう。(まあ、消えてもいいのだけども。)

連続の場合は、「レ」のセルの右下の■をつかんでぴゅーって下に引っ張れば連続で「レ」になる。この場合はチェックボックスより便利。連続空白の場合も同じ。

**出力イメージ(「シール」シート) [#ece5a7f0]
名簿シートの4の行にレがあれば、その行の住所を拾ってきて
 〒 111-1114
  千葉県xx市xxx1-1-14
          ええ えええ 様
と出力する。
レのついている行、25行について、「シール」シートのF2〜J6に5×5で出力する。

ちなみにOFFSET関数を使ってVLOOKUPの範囲を指定しているので、名簿が今後どんなに縦長になっても自動対応。
**Excelファイル [#l359444e]
#ref(住所シール.xls)
**ソース?イメージ [#ha4c1d2a]
基本は
 ="〒 "&IF(VLOOKUP(A2,OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),4),3,FALSE)="","",VLOOKUP(A2,OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),4),3,FALSE))&CHAR(10)&" "&IF(VLOOKUP(A2,OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),4),4,FALSE)="","",VLOOKUP(A2,OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),4),4,FALSE))&CHAR(10)&"         "&IF(VLOOKUP(A2,OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),4),2,FALSE)="","",VLOOKUP(A2,OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),4),2,FALSE))&" 様"
と書かれているだけ。

シールシートのA2〜E6に書かれている数字と同じ行を名簿シートから拾ってきて、その行の住所をF2〜J6に出力するようにしている。

***2008年7月16日に思いついた対処 [#s16442a8]
シールシートのA2には
 =VLOOKUP("レ",OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$B:$B),2),2,FALSE)
A3には
 =VLOOKUP("レ",OFFSET(名簿!$A$2,A2,0,COUNTA(名簿!$B:$B),2),2,FALSE)
と書かれている。
前の検索値を次のOFFSETの行ずらしの値に利用しているところがポイント。
これにより、A列でレが複数存在してもVLOOKUPを使用することが出来る。


**改版履歴 [#i923b916]
-2008年7月13日深夜作成。
-2008年7月14日深夜多少修正。
 ・出力が1列だったのを5×5に。
   →関連してCOUNTA(名簿!A:A)をCOUNTA(名簿!$A:$A)に。
 ・改ページプレビューを保存。
#ref(住所シール_070814.xls)
-2008年7月16日、頑張って考えて修正。
 ・シールシートで使用する行数を指定するのではなく、名簿シートのチェックで指定するように変更。
  →もう、マクロしかないかと思ったら関数で出来た!嬉しい!([[このアイディア>住所シール#s16442a8]]を思いついた!)
#ref(住所シール_080716.xls)
-2008年7月16日深夜バグ修正。
 「シール」シートA2〜E6の
 =VLOOKUP("レ",OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A),2),2,FALSE)
 =VLOOKUP("レ",OFFSET(名簿!$A$2,A2,0,COUNTA(名簿!$A:$A),2),2,FALSE)
等のCOUNTAをCOUNTA(名簿!$B:$B)に変更。
 →COUNTA(名簿!$A:$A)のままだと、「レ」の間が広く開いた時に、A列長が実際よりも短いと判断されてしまっていた。
#ref(住所シール.xls)

----
- IlTQbH  <a href="http://rnrjqqusxjlg.com/">rnrjqqusxjlg</a>, [url=http://hnvkorxojdbi.com/]hnvkorxojdbi[/url], [link=http://wfjlioahvhez.com/]wfjlioahvhez[/link], http://wbhblbjjmpsq.com/ -- [[jdznkycbv]] &new{2010-03-15 (月) 04:38:58};
- http://www.uk-local-search.co.uk/business/buy+viagra+cheap+generic/1851115/ viagra   :DDD  http://www.armenian.com/cgi-bin/links.cgi?searchstring=noprescription%20cialis cialis   =-[   -- [[Hiszpdnm]] &new{2010-03-19 (金) 11:39:49};
- http://www.armenian.com/cgi-bin/links.cgi?searchstring=cheap%20viagra viagra   =-DD  http://www.hotfrog.ca/Companies/Canadian-viagra-distributions viagra   8DD  http://www.armenian.com/cgi-bin/links.cgi?searchstring=cheap%20cialis cialis   >:-))  http://www.findtheneedle.co.uk/company-postcode.asp?postcode=K1G viagra   8(((   -- [[Vrpifhws]] &new{2010-03-20 (土) 03:23:55};
- http://www.findtheneedle.co.uk/jobs/1830-bioinformatics-analyst-40plan43541.asp viagra   =DDD  http://www.ratemds.com/filecache/doctor-ratings.jsp?did=957853&option=viagra viagra   =-[[[   -- [[Lxkfpzpj]] &new{2010-03-20 (土) 03:24:06};
- http://www.hotfrog.ca/Companies/Canadian-viagra-distributions/Cheap-viagra-20520 viagra   :DDD  http://www.ratemds.com/filecache/doctor-ratings.jsp?did=957853&option=viagra viagra   %((  http://www.jobzilla.ca/details/company/2507/search/?opt=viagra viagra   :-)   -- [[Vhukmngm]] &new{2010-03-21 (日) 11:01:04};

#comment
----
-[[ノウハウ/Windows小技集]]

#amazon_live(books-jp,search,Excel,48)
#amazon_search(small)

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS