2024-01-09

Firefoxの各タブに閉じるボタンを常に表示する

以前、browser.tabs.tabClipWidth = 0にすればタブがどんなに細くなっても閉じるボタンが常に表示されると書いた。あれは嘘だった。
フォクすけが言っていたので信用してしまったが、どう見ても画像のUIが古いその時点で。疑うべきだった。

そういうわけでこれを実現するにはUserChromeをいじる必要があるらしい。
調べてみるとこのような記事を見つけた。
b.0218.jp

私はマウスオーバー時でなく常に表示したいので:hoverを消せばよさそうである。

早速お借りして…

.tabbrowser-tab:not([pinned]):hover .tab-close-button {
  display: block !important;
}

これを…こうじゃ！

.tabbrowser-tab:not([pinned]) .tab-close-button {
  display: block !important;
}

2023-12-14

Firefoxの中止ボタンがしいたけじゃなくて困る

インターネット老人かな？

userChrome.cssを書く

場所：AppData\Roaming\Mozilla\Firefox\Profiles\プロファイル名\chrome
※chromeフォルダはないので作る。

ここにuserChrome.cssというファイルを作り、内容は以下。

#stop-button {
  list-style-image: url("shiitake.png")!important;
}

しいたけ画像は拾ったやつを加工して使っているので掲載できない。
userChrome.cssと同じところにしいたけの画像も置く。

about:configを変更

toolkit.legacyUserProfileCustomizations.stylesheetsをtrueにする。

ページの読み込み中のほんの一瞬だけしいたけになるんですけど、このこっそり感がちょうどいいですね？

about:configのほかの設定（しいたけには無関係）

browser.tabs.insertAfterCurrent = true
新しいタブをカレントタブの右隣に開く
browser.tabs.tabClipWidth = 0
タブがどんなに細くなっても閉じるボタンを常に表示
browser.tabs.tabMinWidth = 90
タブの最小幅
browser.tabs.closeWindowWithLastTab = false
最後のタブを閉じてもFirefoxを終了しない
browser.search.openintab = true
検索窓を新しいタブで開く

2022-08-15

【C#】Excelのテーブルをソート

このようなテーブルがあって、個数の昇順、同値なら価格の昇順にソートしたい。

using Microsoft.Office.Interop.Excel;

まずはファイルを開く。

var xlapp = new Application();
var xlbook = xlapp.Workbooks.Open("ファイル名");

テーブルはWorksheet配下のListObjectsコレクションの中に格納されている。ので、まずはそれを取得する。

Worksheet xlsheet = xlbook.Worksheets["Sheet1"];

var tablename = "テーブル1";
ListObject table1 = xlsheet.ListObjects[tablename];

SortFields

table1にソートのルールを書き込んでゆく。

table1.Sort.SortFields.Clear();
table1.Sort.SortFields.Add(table1.HeaderRowRange[3], XlSortOn.xlSortOnValues, XlSortOrder.xlAscending, null, XlSortDataOption.xlSortNormal);

SortFieldsというのはGUIで言うところのレベル1行分のことを指す。
Addを増やしていけば次に優先されるキーとして追加される。

なのでまずSortFields.Clear()で既存の条件を削除する。
次にSortFields.Addで条件を指定してゆく。

SortFields.Add

公式ドキュメントを読んでも全部object型でうんこなのだが、型はこう。
SortFields.Add(Range, XlSortOn, XlSortOrder, ?, XlSortDataOption)

2つ目以降の引数は省略できる。

Key

並び替えの基準にするセル範囲を指定。今回の例ではC列を基準にしたいので、C列を含むRange型をどうにかして用意して与えればいい。
例えば
Range hoge = xlapp.ActiveSheet.Range("C1");
のようにして強引に作ったり。セル範囲はC列であることが分かればC列全体を表すC:Cや、はたまたテーブルをはみ出したC6みたいなのでも動く。
もうひとつ便利な方法がListObjectのHeaderRowRangeコレクションを使う方法で、これだと列の挿入でセルアドレスが変わってしまっても追尾できる。
HeaderRowRangeコレクションの引数は1から始まり、数値で指定する。HeadRowRange[”個数”]のように見出し名を直接添え字に使用することはできない。

XlSortOn

並び替えのタイプを指定。

XlSortOnCellColor	セルの色
XlSortOnFontColor	フォントの色
XlSortOnIcon	条件付き書式のアイコン
XlSortOnValues	セルの値

XlSortOrder

並び替えの順序を指定。

XlAscending	昇順
XlDescending	降順

null

ユーザー設定リストに関するものなのだがこの機能は使ったことがないのでわからない。とりあえず動くのでnullを与えている。

XlSortDataOption

XlSortNormal	通常の並び替え
XlSortTextAsNumbers	文字列を数値とみなして並べ替え

この機能は田中さんのところに詳しい説明があったが、同じく使ったことがないのでとりあえず既定値のXLSortNomalを与えている。

Sort.Apply

table1.Sort.Apply();

ひととおり条件を指定し終わったらSort.Apply()でソートを実行する。

実装例

        static void Main()
        {
            var xlapp = new Application();
            var xlbook = xlapp.Workbooks.Open(”hoge.xlsx");
            xlapp.Visible = true;
            try
            {
                var tablename = "テーブル1";

                Worksheet xlsheet = xlbook.Worksheets["Sheet1"];
                ListObject table1 = xlsheet.ListObjects[tablename];

                table1.Sort.SortFields.Clear();
                table1.Sort.SortFields.Add(table1.HeaderRowRange[3], XlSortOn.xlSortOnValues, XlSortOrder.xlAscending, null, XlSortDataOption.xlSortNormal);
                table1.Sort.SortFields.Add(table1.HeaderRowRange[2], XlSortOn.xlSortOnValues, XlSortOrder.xlAscending, null, XlSortDataOption.xlSortNormal);

                table1.Sort.Apply();

            }
            finally
            {

                Console.ReadLine();
                xlapp.DisplayAlerts = false;
                xlapp.Quit();
            }
            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlapp);

        }

参考

ListObjects インターフェイス (Microsoft.Office.Interop.Excel) | Microsoft Learn
ListObject.HeaderRowRange プロパティ (Microsoft.Office.Interop.Excel) | Microsoft Learn
SortFields.Add(Range, Object, Object, Object, Object) メソッド (Microsoft.Office.Interop.Excel) | Microsoft Learn
Office TANAKA - Excel VBA Tips[Excel 2007のSortオブジェクト]

2022-08-14

複数バージョンのoffice共存環境で365を既定にする。

色々あって、一台のマシンに365と2007と2010を共存させている。
古いExcelは立ち上がりが早いのでCOM参照しながら.NETアプリを開発するようなシチュでは便利なのと、何より後方互換性を保つには古いofficeのほうが都合が良かったりで。ただし普段はセキュリティ諸々の理由で最新のofficeを利用したい。

やり方はまあ、概ねここに書いてある通りなのだけれど。
Office 共存環境で、既定のプログラムの変更は可能なのか？ - Microsoft コミュニティ

設定→アプリ→アプリと機能からMicrosoft 365を選んで修復する。クイック修復で十分。
Officeを修復してもうまく行かなかった。