Excel主義者はきれいな表が好き(単に見かけだけ)
Excel主義者はともかくきれいな表が好き。きれいというのは、単に見かけだけで、セル結合したり、罫線で囲った表は、再利用がほとんど不可能だ。
この1カ月、ともかくExcelの表に苦しんだ。
そもそも罫線なのか図形なのか不明。
罫線で囲んだ文字を移動しようとすると、罫線がついてこない。
罫線で囲んだ文字がフォントを変更すると一部見えなくなるが、罫線を拡大できない。
罫線のある表を拡大縮小できない。
罫線のある表を無理に拡大縮小すると、枠の罫線がでこでこになる。
30ピクセルのExcel方眼紙を突如20ピクセルに変更することになり、図が全部縦長に。シネスコの映画をスタンダードにしたみたい。
結合してあるので、一部だけを移動できない。謎のメッセージ。
結合してある表を選択してコピーしてもコピーできない…。コピーできないっていったいどういうことだ!
もうへとへとです。
そこにとなりからExcel主義者の軽快なキーボード操作(単調なコピーペーストと移動)の繰り返しがリズミカルに響いてくる。
この単調なリズムは、究極の手作業をしている感じ。
さて、そう歎いていてもしかたない。プログラムでなんとかできることはしようということで、やってみた。
まずテキストは、こんな感じ。
見出し １．画面コントロール
ID/2 名称/9 コントロール名/6 I・O/2 必須/2 説明/20 取得DB名/5 取得カラム名/5
1 タイトル ラベル O - タイトルを示すラベル。 - -
2 ユーザID ラベル O - IDの入力位置を示すラベル。 - -
3 ユーザID テキストボックス O - 登録用のユーザIDを表示するテキストボックス。変更不可。 LoginDB ID
4 ユーザ名 ラベル O - ユーザ名の入力位置を示すラベル。 - -
5 ユーザ名 テキストボックス I ○ 登録用のユーザ名を入力するテキストボックス。 LoginDB UserName
6 パスワード ラベル O - PWの入力位置を示すラベル。 - -
7 パスワード Hiddenテキストボックス I - PWを入力するテキストボックス。 - -
8 パスワード（確認） ラベル O - PWの入力位置を示すラベル。 - -
9 パスワード（確認） Hiddenテキストボックス I - 確認用PWを入力するテキストボックス。入力文字は分からないように表示する。 - -
10 キャンセル ボタン I - 処理を中止するボタン。一覧に戻る。 - -
11 変更 ボタン I - 入力内容をチェックして変更するボタン。一覧に戻る。 - -
見出し ２．イベント処理
No./2 種類/10 説明/39
1 変更ボタン押下時 １．入力チェック（3.2チェック参照）☆ OKの場合２へ。☆ NGの場合エラーメッセージを表示。☆２．ユーザ名チェック（3.2チェック参照）☆ NGの場合エラーメッセージを表示。☆３．画面遷移。☆・３．１ ユーザ変更OKの場合管理者：ユーザ管理（一覧）画面に遷移。☆ NGの場合エラーメッセージを表示。☆・３．２ ユーザ変更OKの場合ユーザ：画面に遷移。☆ NGの場合エラーメッセージを表示。
2 キャンセルボタン押下時 ２．画面遷移。☆・２．１ 管理者：ユーザ管理（一覧）画面に遷移。☆・２．２ ユーザ：ログイン画面に遷移。
3 パスワード（確認）ロストフォーカス時 １．入力チェック（3.2チェック参照）☆ OKの場合なにもしない。☆ NGの場合エラーメッセージを表示。
見出し ３．チェック
No./2 種類/14 説明/23 表示エラーメッセージ/16
1 PW文字チェック 入力したPWを相互にチェック。 PWが異なります。
2 必須チェック 入力項目の必須文字の入力を促す。 ユーザ名が空です。
見出し ４．特記事項
Markup
ユーザー管理(変更画面)の仕様書と思ってほしい。
ほとんどは平文だが、ごく少量マークアップの文字を使っている。
そもそも「見出し」とテーブルがあり、それぞれは改行ふたつで区切る。
見出しは「見出し」タブと書く。
テーブルは、1行目がヘッダ行となる。
ヘッダ行は、/2で結合するセルの数を示す。/2ならふたつのセルを結合するという意味。
この結合数をマーキングするために、「/」を使っているので、本文では/を使用できない。このあたりはすこし検討の余地がある。
セル内改行(\n)に☆を使っている。
たとえば見出しを####にすれば、Markdownにそっくりになる。
とはいえ、このテキスト、ほとんどテキストといっていいと思う。タブ区切りで素性もいいと思う。
これを下記のコードを通すと、じゃーん! Excelの表のできあがりである。できた表はぜひご自分で確かめられたい。
これを拡張すれば、txt2xlsxとなるなと思っている。
code
string excelfilepath= "";
using (var book = new XLWorkbook(excelfilepath))
{
var sheet = book.Worksheet(sheetname);
string path = @"text.txt";
var lastusedlinenumber = sheet.LastRowUsed().RangeAddress.LastAddress.RowNumber;
Cell cell = new Cell("C", lastusedlinenumber+2);
string[] tables =File.ReadAllText(path, Encoding.UTF8).Split(new string[] { "\r\n\r\n" }, StringSplitOptions.None);
foreach(var table in tables)
{
List<int> cellwidths = new List<int>();
if (string.IsNullOrEmpty(table.Trim())) continue;
if (table.Contains("見出し"))
{
int targetline = cell.LineNumber + 2;
string[] cells = table.TrimEnd().Split(new string[] { "\r\n", "\r", "\n", "\t" }, StringSplitOptions.None);
string startcell = "B";
ExcelOperation.SetCellValue(sheet, startcell + targetline, cells[1]);
sheet.Range(startcell + targetline + ":" + startcell + targetline).Style.Font.FontSize = 11;
cell.LineNumber = cell.LineNumber + 4;
}
else
{
string[] lines = table.TrimEnd().Split(new string[] { "\r\n", "\r", "\n" }, StringSplitOptions.None);
foreach (var line in lines.Select((Value, Index) => new { Value, Index }))
{
if (line.Value.Contains("/"))
cellwidths.Clear();
int targetline = cell.LineNumber + line.Index;
string[] cells = line.Value.TrimEnd().Split(new string[] { "\t" }, StringSplitOptions.None);
string endcell = cell.HeadCell;
foreach (var c in cells.Select((Value, Index) => new { Value, Index }))
{
string[] cellvalues = c.Value.Split(new string[] { "/" }, StringSplitOptions.None);
//結合セル
int cellwidth = 4;
if (1 < cellvalues.Length) cellwidth = int.Parse(cellvalues[1]);
if (c.Value.Contains("/")) cellwidths.Add(cellwidth);
else if (c.Index < cells.Length) cellwidth = cellwidths[c.Index];
string startcell = endcell;
endcell = cell.ToAlphabet(cell.ToInt(startcell) + cellwidth - 1);
ExcelOperation.SetCellValue(sheet, startcell + targetline, cellvalues[0].Replace("☆", "\n").Replace("I・O", "I／O"));
sheet.Range(startcell + targetline + ":" + endcell + targetline).Merge().Style.Border.SetOutsideBorder(XLBorderStyleValues.Thin);
sheet.Range(startcell + targetline + ":" + endcell + targetline).Style.Alignment.WrapText = true;
sheet.Range(startcell + targetline + ":" + startcell + targetline).Style.Font.FontSize = 9;
//見出し行
if (line.Index == 0 || line.Value.Contains("/"))
{
sheet.Range(startcell + targetline + ":" + endcell + targetline).Style.Fill.BackgroundColor = XLColor.LightGray;
sheet.Range(startcell + targetline + ":" + endcell + targetline).Style.Font.Bold = true;
sheet.Range(startcell + targetline + ":" + endcell + targetline).Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center;
}
endcell = cell.ToAlphabet(cell.ToInt(startcell) + cellwidth);
}
}
cell.LineNumber = cell.LineNumber + lines.Length + 3;
}
}
book.SaveAs(savename);
注記
使用には、ClosedXMLが必要。
別途。Cellクラスというクラスを作っている。セル文字と行を管理しているだけなので、なくても動く。
やっているのは、テキストを行のかたまり=tableにわけ、見出しとテーブルとで処理をわけている。テーブルは、1行目をヘッダ行として特別扱いし、結合するセルの個数をもって、テーブルぜんたいに適応している。
テキストをレイアウトしたあとに、セルを結合し、周囲に罫線を引いている。
という感じ。
これで業務でじっさいに表を作って、かなり省力化できた。ともかく表を作り直すのが楽。検索もできるし、置換もしやすい。
いや作ってよかった。
感覚的にはTeXみたいな感じ。
ToDo
今後の、ほぼやらないけど課題と感じていることを、いちおう書き出しておこう。
見出しを####に対応して、Markdown的に拡張することを検討。
コードを整理。リファクタリング。
「/」を区切り文字に使うのをやめる。
セルのheightに対応する。
結合セル数を自動指定。これができれば/2のような指定も不要。
セルによってセンタリングと左寄せを使い分け。
仕様書は書き終わったので目的は達成しているので、よほど気が向いて時間があって、ほかにすることがなければ。