|
ちょっとかっこ悪い関数になっちゃったけど、何とか無作為リストから更新停止サイト除外＆ジャンル分け＆50音順並び替えに成功。
Excelのデータ＞並び替えだと１回しかできないし、流動的なリストを扱うにはきっちり関数で表現してやる必要があると思います。
１サイトのデータとして、
サイト名（光希桃AnimeStation）
サイト名のよみ（みきももあにめすていしょん）
サイトアドレス（http://www2.pure.cc/~mikimomo/）
連絡先アドレス（mikimomo@aqua.pure.cc）
ジャンル（文のみ・キャプ有り・絵）
生き・除外（OPEN・CLOSE）
を入力。ホントはサイト説明文もつけていたんですが、あまりの量に書く時間と気力がなくなり…。
ジャンル分けと除外サイトはあとにするとして、まず並び替え問題。前ぶち当たった並び替え問題は同じ順位があるときの自動並び替え問題でしたが、今回のポイントは「50音の順番をどう示すか」というところ。
そこで、関数リストとにらめっこ…。見つけたのは「CODE関数」。
CODE関数は、引数に持つ文字列から先頭の文字の文字コードを返す関数。
=CODE("あたし")
と入れると、「あ」の持つ文字コード「9250」が出力されます。で、この文字コードは基本的に50音順に並んでいます。
あらかじめ入力してあるサイトの読みがなをCODE関数かければ、50音順を数値化できる…と思いきや、CODE関数で取れるのは「先頭の１文字」のみです。
そこで、MID関数（指定文字列から何文字目から何文字かを取り出す事が出来る関数：MID("あいうえお",2,3)で「いうえ」が出力される）を使用して、後ろの数文字までの文字コードを出力し、桁数を変更して次々くっつけてみる…という作戦に出ましたが、さっき書いたとおり「あ」の文字コードですら「9250」と4桁もあり、「あああ」と3文字くっつけるだけで9250.92509250（9250+0.9250+0.00009250）とやたら長い数字に…。
でもよく考えたらひらがなしか扱わないので、ひらがなの範囲に収めればいいんだと、いうことで「あ」の「9250」を0とし、「ん」の「9331」を「81」と、出力数値から9250を引くことで2桁化し、「んんん」を81.8181と桁数を減らして表現が可能に。（後に「ー」や「ぁ」は9250より下なのが発覚したりして、その辺の処理を加えたり）
この時点ですでに=IF(NOT($F6=""),CODE(F6)-9250+(IF(CODE(MID($F6,2,1))<9250,0,(CODE(MID(
$F6,2,1))-9250))*0.01)+(IF(CODE(MID($F6,3,1))<9250,0,(CODE(MID($F6,3,1))-9250)
)*0.0001),"")
と、かなりややこしい。面倒なので3文字で終わらせようと思ったら、感想系は頭に「アニメ」がつくやつが多く、これだけだと分類できなかったので、セルもうひとつ割いて、
=IF(NOT(LEN($F6)<4),(IF(CODE(MID($F6,4,1))<9250,0,(CODE(MID($F6,4,1))-9250)))+(IF(
LEN($F6)<5,0,IF(CODE(MID($F6,5,1))<9250,0,(CODE(MID($F6,5,1))-9250))*0.01))+(IF(
LEN($F6)<6,0,IF(CODE(MID($F6,6,1))<9250,0,(CODE(MID($F6,6,1))-9250))*0.0001)),0)
を追加。LENは文字数を調べる関数です。6文字未満で読みがなが終わっている場合にエラー表示にならないように対応しています。
んで、ひとつ目のセルに2つ目のセルの100万分の1を足して、出来た数値によって6文字までの50音順の数値表記が出来るようになりました。（「をををんんん」なら「80.8080818181」）
この出てきた数値をRANK関数によって、順位を示す数値に変換。同じ数字はないので、1から順番にVLOOKUP関数で取り出せば50音順に並ぶ事になります。
続いての問題はジャンル分けしたリストの取り出し方法です。
ただ取り出すだけだったら、条件に満たない列を空列にして取り出す方法が考えられますが、空列を作るのはあんまりおもしろくないので、間を詰めてきちんとリスト化するにはどうするかで悩みました。
できたのはこれ
=IF(AND(VLOOKUP(A1+1,データ!$D$2:$I$450,4,0)=$C$1,VLOOKUP(
A1+1,データ!$D$2:$I$450,5,0)=$B$1),A1+1,IF(AND(VLOOKUP(
A1+2,データ!$D$2:$I$450,4,0)=$C$1,VLOOKUP(
A1+2,データ!$D$2:$I$450,5,0)=$B$1),A1+2,IF(AND(VLOOKUP(
A1+3,データ!$D$2:$I$450,4,0)=$C$1,VLOOKUP(A1+3,データ!$D$2:$I$450,5,0)=$B$1),A1+3,
IF(AND(VLOOKUP(A1+4,データ!$D$2:$I$450,4,0)=$C$1,VLOOKUP(
A1+4,データ!$D$2:$I$450,5,0)=$B$1),A1+4,IF(AND(VLOOKUP(
A1+5,データ!$D$2:$I$450,4,0)=$C$1,VLOOKUP(A1+5,データ!$D$2:$I$450,5,0)=$B$1),A1+5,
IF(AND(VLOOKUP(A1+6,データ!$D$2:$I$450,4,0)=$C$1,VLOOKUP(
A1+6,データ!$D$2:$I$450,5,0)=$B$1),A1+6,A1+7))))))
カコワル。データ!D2:I450にはRANKで出した順位から、属性（OPEN）、ジャンル（キャプ）のデータが入っています。B1にはジャンル（キャプ）、C1にはOPENが入っています。
要は赤字の部分がIF関数内で6回ループするという関数です。「“OPEN”かつ“キャプ”の条件に合わないときは上のセルに1を足した数値を返し、もういちど条件をさらいなさい」という命令といえばわかる人にはかな。Excel関数にはFOR関数（条件に合うまで繰り返し）がないので、こういうことをしようと思うと何かとややこしくなる癖がある感じ。つまるところ条件に合わない順位（RANK）を外して、条件（キャプ＆OPEN）に合う順位だけ並べて、ってことです。
…でも、上の関数だと最大で+7なんですな。間に8つ以上条件に合わないサイトが並んでいると対応できないという…。7つ以上IF関数を入れ子にしたらエラーが出ちゃったので仕方なくここまでやめたんですが。でもまぁ7つ飛ばしにはなるので、それなりにシェイプ…、はぁ。
↑こんな感じにいくつか空行ができて寂しいわけです。
まぁHTMLに貼り付けた際に空行を置換で抜けばいいだけなので、手間的には別にこれと言って困った事にはならないんですが…なんだか敗北感が。
そんなこんなでできた、感想系リンク集を下にぺたぺた。…まだメアド調べが終わってないんだよなァ…。
「ここは感想系じゃないんじゃないのか？」とか「ここ忘れてるヨ！」とか「ジャンル違うヨ！」とかありましたら、知らせていただけると助かります。このExcelシステムだと追加も変更もすごく簡単なのでお気軽にどうぞ。
文
- iC / あいしい
- アクエリアス
- アニかん
- アニメゼロカスタム
- アニメたれ感日記
- アニメ討論室
- アニメ日記
- 甘噛みさんが通る
- あらゆる属性の少女を愛でるページ
- ある羽田方面の１日
- 憩い院
- 逸般人.com
- MB
- 踊るダメ人間の館
- Kaoru's Toy Box
- KAZ「ETHER STRIKE!」
- 仮藻録
- CAXの日記
- がまくじらさんの日記
- 空想科学災害対策本部
- クラブTAKI
- Crystal Note
- ..close1/2..
- 黒猫屋
- 月下之茶宴
- corefighters
- 壊れた大人のマーチ
- こんがり焼あじ
- GD:-AnimeWatch-
- 娯楽館の風見鶏
- 咲(RA)咲！
- 戯れ言
- CCSF
- シェラザードのよとぎばなし
- 至好回路
- 始終に終始
- シャドールーム
- 書斎
- 初心者の避難所
- 神聖リオデジャネイロ王国
- ジェイ・ワールド
- 12萌ンキーズ
- JUNのホームページ2nd Edition
- 翠影
- すかいぐらうんど
- 杉の木工房
- SLALA。
- 7 tune enemie
- 戦記
- senriyakouの日記＋
- ZEDERBERG
- たまとわ
- タマヒメβ版
- 帝国大劇場別館
- 適当でいこう。
- 天の光は、星の唄
- D2_STATION
- 電脳妖怪屋敷
- トータス砲のHomePage
- とてむぽ ヽ（；´Д｀）ゝとーてんぽー
- とぼふあんかるアニメ日記
- TomOneのねもと
- とよとよとよ
- Now Constructing! 2nd stage
- 生玉子
- 日記状無意識
- 猫のカブリモノ
- ねなし…ぐさ
- 陽はまたのぼり…
- 日々妄談
- HUGIE's home page [jibunizm]
- ぴらや(3式)
- ふあふあファクトリー
- 風船灰兎
- Phase-D
- ふくまめ
- fubalivingmemo
- FREAM OUT
- ぶらっくさてらいと
- PROJECT CUBE⇔R
- 下手な考え休むに似たる
- Holy Night
- 放映圏まで1000マイル（更新停止？）
- 本放送アニメ日記
- 坊主頭の大学生のページ
- ぼそけち通信
- M.I.Factory
- 光希桃AnimeStation
- 瑞澤私設図書館
- みでぃずふぁーむ
- ミノレモでポソ！
- ミルナ
- 萌えないゴミ最終処分場
- 萌え萌えアニメ日記
- 弥白通信Web
- やっぱり「やまなこ」が大好き！
- 飲茶的時間
- u-kiのwebスティッキーズ
- ゆかねカムパニー
- Rabaのホームページ
- らむねっとドッカ〜ン！
- roby's room
- ヲタク的日常
キャプ
- 一光堂
- いぬ日記
- 運命の輪
- 【 HP_xxx 】 Hatena Diary
- Mc-LINERS
- Elwood's Webpage
- えんじぇる☆てれぱし〜
- カズくんのオタおた日記
- 缶詰日誌
- ぎょぴのページ♪
- Queen Genesis号
- CLUB-FC（つながらない？）
- 黒髪本神宮
- 視の世界
- Jack o' Lantan
- Snow Mousse
- 鷹澤遊戯場
- Desire for wealth
- 永世
- 何も学べない青空教室
- No Anime No Life
- 破竹乃勢
- はねペンのアニメにっき
- 梅香的テレビ生活
- Panicの言いたい放題
- HIROのホームページR2
- Hirohashi.com
- BBN
- 武士ノ末路
- 閉鎖しました
- 放蕩オペラハウス
- 無表情一直線
- Melog
- 妄想萌
- モンストルム！
- 楽画喜堂
- 流王のホームページ
絵
- あまやどり
- いつか見上げた、あの青空の下で・・・
- -O-R-E-
- ギャンブラー倶楽部
- 好事の宅
- Go West
- 才田通信
- ３テレビ
- じじい放談
- ファーストカフェ
- ヤマモトHP
- 裕凪式
条件は「それなりの頻度で今でも更新がある」「いくつかのアニメ作品について」の「各話感想のある」サイトとしました。
感想率調査はこの中から、今まで完全に無視される形で1度も協力をいただけなかったサイト様及び、複数有志による不確定掲示板感想を除いた感想系サイト様を対象に行う予定です。
|
![[!]](../../kouji3.gif){kind=small}
