can返信エクセルで並び替えというと、行を昇順とか降順で並べるのが普通ですが、エクセルで縦書きのデータを作成してそれを並び替えるという作業が必要になった。そこで以前にここでエクセルでランダムに表示、条件付き書式で罫線~俳句教室にエクセルの別シートを活用して関数で処理することをやってみた。これで満足していたら、新たな問題に出くわした。表の中にルビを表示しているものがあり、それを別シートに移すとそのルビのデータはなくなってしまうということだ。やむなくエクセルのマクロを使うことにする。エクセルVBA8「並び替える」マクロでランダム表示です。行列が増えてもこのマクロで列をランダムにシャッフルすることができます。エクセルで縦書きをすることもあまりないと思いますが、俳句教室でみなさんの俳句を集めて清句するときに、少しでも手間を省こうと思い、それ以上の手間をかけてみました。俳句教室では参集者が俳句を2句ずつ投句して、それを清書して(「清句」)気に入ったものに投票し感想をべるということが行われる。教室のその場で清句して清句用紙をまわしてする場合もあれば、事前に投句を集め当日までに作者名を伏せて一覧にし投票するということも行われるそうです。そのとき同一作者の作品が並ぶことを避けて順不同に書き出すということが行われます。すべての用紙が集まってから、用紙をばらばらに並び変えてから書き写せば済むことですが、エクセルを利用してランダムに表示することを考えてみました。2.ランダムに並べるA1には西暦の数字を入れています。“年”」とすることによって、4桁の数字「2015」を入れることによって「2015年」と表示できます。B1,B2は俳句教室が行われる月日の数字を入れています。これは清句用紙て利用します。B3から下は、「=IF(C3=””,””,ROW()-2)」という数式を入力して、C3に俳句が入力されたら1から順番に番号を表示するようにしています。「ROW()」は行数を数えています。3行目から始めているので2を引けば1となります。これにより俳句がいくつ集まったかを自動で数えることができます。会員数と投句数によって考えればよいのですが、元のシートは多くせってしておけばいいです。ここではB101まで数式をコピーしています。C列に俳句を入力していますが先頭に1から順に数字を入れているのは、ランダムがどのようになっているのかを示すために入れているだけです。ランダムにシャッフルするために、A列のA3に「=IF(B3=””,””,RAND())」という数式を入力してからA101までコピーしています。B3に番号が表示されたら、つまり俳句が入力されたら、RAND()関数の値を入れるということです。F列からのランダムに表示された所の説明に移ります。F列はB列と同様の関数を入れて1から順に番号を表示させています。G1=IF(A3=””,””,INDEX($C$3:$C$101,MATCH(LARGE($A$3:$A$101,ROW(A1)),$A$3:$A$101,0)))としています。RAND()関数で表示したA列の$A$3:$A$101の中で、1番大きな数字(LARGE関数)から一致する数字、つまりG3ではROW(A1)=1だから、1番大きな数値のA列に一致MATCHする俳句をINDEX関数で求めています。G4ではROW(A2)=2となるからA列で2番目に大きなものを求めるようになります。して投句されたものをランダム、順不同に表示することができます。これにより受け取ったもの順に入力していても表示が自動的に順不同にすることができます。2.別のシートに縦書き表示する。図1の黄色で塗られた部分を、縦書きに表示して、俳句の表示らしくしています。O1:T1の欄はセル結合をし、「=DATE(投句!A1,投句!B1,投句!B2)」と投句シートで俳句教室の年月日を入れたものをここで表示しています。年号で表示するためにセルの表示形式を「ユーザー定義」とし、「ggge”年”m”月”d”日(“aaa”)”」として、曜日まで表示するようにしています。縦書きなので、右から1番と番号を打ちたいので、一番左端の番号は投句数によって変わってしまいます。そこで左端の数字をA10==MAX(投句!F3:F101)と投句シートのランダムに並べた表の中で最大の数値を求めます。A10にしているのはその上にいくつかのマスを投票した人の名前などを略記する欄としています。B10,C10・・・・・必要なだけ、投句シートでは100句まで入力できるようにしているのでそこまでB10=IF(A10=””,””,IF(A10-1>0,A10-1,””))として、左隣が空欄なら空欄、そうでなければ投句数から1ずつ引いていく。投句の記入順に俳句の先頭に1から番号を売っていたのに、ランダム関数によってずいぶん順番が変わっているのが分かる。投句欄A11などは=IF(A10=””,””,VLOOKUP(A10,投句!$F$3:$H$101,2,FALSE))VLOOKUP関数を利用して、上の番号に一致する投句を投句シートを参照して表示する。3.条件付き書式を利用して罫線を投句数に合わせて枠を作る罫線について。投句数によって罫線の空欄がたくさんできるのもあまりよくないとすれば、投句数に応じてその時ごとに罫線を引くのもありだろうが、体裁が毎回変わるのもおかしいし、前回を流用して消したり増やしたりするのも面倒。楽なのは、投句数に応じて罫線が自動的に増減するように最初から設定しておく。それを可能にするのが、「条件付き書式」。A2のセルで、「条件付き書式の設定」でルールを「数式を使用して、書式設定するセルを決定」を選択。ルールの内容欄で図3.実線で周りを囲むA2=A$10<>””つまり、A10が空白でなかったら、書式「セルを実線で囲む」。B10~コピーするために、それを「A$10<>””」とAの前に$がついていないことに注意。内容編集の時にセルをクリックすると自動的に「$A$10」となるので、Aの前の$を削除しておく。図4.適用範囲で最大範囲まで広げる書式を設定後、適用先を「=$A$2:$CW$2」と100句でも可能なようにセル範囲を設定する。A3~A8は下線が点線、両サイドの縦が実線としている。A3のセルで条件付き書式、図3と同様に「A$10<>””」で、書式欄を上空線、両サイド縦実践、下線を破選とする。適用範囲は「=$A$3:$CW$8」とする。「=$A$9:$CW$9」。A10~A12はA2と同様に「A$10<>””」で書式をすべて実線で囲むとする。適用範囲は「=$A$10:$CW$12」とすればよい。これで投句数に応じて自動で表もできる。#エクセルエクセルのセル内の文章の中に桁区切りの数値を表示する。キャンセル投稿を送信できませんでした。メールアドレスを確認してください。メール送信チェックに失敗しました。このブログではメールでの投稿共有はできません。%d人のブロガーが「いいね」をつけました。