Excelのマクロを修正してみた。

忙しい時ほど改善とは良く言ったものだ。勿論共有しないけどね。自分勝手って言われても、自分以外使い方教えても分からないだろうし。万人受けするプログラムまで仕上げてたら、カイゼン!的には正しいと思うけど時間ばかりかかる。お金がおりてきたらもうちょっと頑張ってやっても良いけどね。

我が職場「縮専」を windows 7 でインストールする方法を書いたマニュアルを有難がってみんな使ってるんだぜ。今じゃそのマニュアル書いた小生は PowerToys の ImageResizer を便利に使ってる。XnConvert にくらべて目立たないしね。

あとPowerRenamer も良いぞ。regexも使えるし。やっと FrexRena の代わりが出た感じた。デスクトップ表示させると応答が無くなるからね。

Excel でクリップボードの操作が難しくなっている

Excel のVBA のクリップボードにセットしたり読み出したりする辺りが、なんかおかしい。一度実行しても取得できないが、二回実行すると取得できるとか。

CreateObject(“Forms.TextBox.1”) を使う方法と DataObject を使う方法があると思うが、どっちもどっち。ただ、使えないときに DataObject を使う方法はデバッグモードに強制移行する深刻なので、テキストボックスを使う方法にした。

VBAのツール 参照でMicrosoft Forms の FM20.dll を強制的に導入したら、まあまあ。使えるようになった。安定しないけど。

データを整理するメソッドを追加

前にちろっちょろっとやってみたけど、うまく動かずに放り投げてたやつ。今回は一時間位と決めて完成させた。

何が難しいかと言えば、VBA における型で悩んでしまうから。一応定義しまくるけど、個人的には Python 文法が時間がたった時に分かりやすい。

あとRangeの指定方法。もうちょっと柔軟にならないのかね。

Excel って いつまでVBA なんだろう。Basic 文法って時間がたって見直すと思い出すのに時間がかかるんだよね。AutoCAD は VBA でもやってみたけど、結局 AutoLISP に戻っていった。AutoCADのバージョンアップ度に手入れが必要だったんだよ。

VBScript も MS 廃止予定だし。Excel からVBAの代わりになるのは何だろうな。

データソートも key に加えて key2 とか Excel 2016 から追加されているらしいし。

4代目の教育係は自分ではない

御曹司。劇場型社長のDNAを受け継ぎ、偉そうに無知をさらけ出す。

えっそうなんですか!?なんてやさしく指摘してあげたら

「声がでかいなぁ」

何て言われてしもた。いや決して、あなたをバカにしてるんじゃないのよ。ホントに驚いただけで。

今年中に管理部門の出来る追い抜いて行った後輩が年金もらえるようになってやめるので、あと一人の外部から来た出来るパートさんが辞めると。

誰が間違ってることを教えるんだろ。もう軽く5年は立ってるんだけどさあ。

さくらインターネット レンタルサーバーのHDDからSSD移行 大成功

結局何も変更せずに高速になって大成功と言うお話。

実はサンドボックス用にレンタルサーバー借りてます。Apache serverで Ngix やNode.js 全盛時代についていけませんが。

www1****.sakura.ne.jp 時代から契約しています。段々HDDの容量が増やしてもらったのはありがたかったんですが、最近のサーバーはSSDでいいななんて思っていました。

2022年2月18日(金) に「[さくらのレンタルサーバ]最大5倍高速化された新サーバーがリリースされました!」というアナウンスで移行ツールもありますとの事です。多分HDDの管理の手間がかかってるんだろうなとは思ったものの、どうせサーバーネーム変わってプログラム検証全部しないといけないななんて思っていたんですが。

当然OWN RISKなので躊躇していました。移行ツールはありがたかったけど、だって前データベースアップグレードで全部のプログラム読み直してサーバー名書き換えましたもん。仕方ないけど。

で今回もサーバー名書き換えがあるなと思って、久しぶりに全ディレクトリをしらみつぶしに見て回ってスクリプトを実行。Movable Typeを移行できずにWordpress どっちも使っているので、変更になりそうなところを全部メモして。

いざSSD移行ツールを起動

しようとしたら、バックアップ&ステージング SnapUP を切断する必要があるらしく、切断して tar czf 2024-02-22.tgz * コマンドを発行して、データを Filezilla で落としてこようとしたら何故か落ちなくて、httpsでchrome で頑張って落とした。

いざSSD移行ツールを起動

したら何故か「現在移行ツールの申し込みを停止してます」なんて出るので、何事かと思えば、レンタルサーバーで障害が発生していると。どうやらあのダウンロード失敗も関係しているのかな。必要な条件(データベースが5.7とか)はクリアしているはずなので、待ってみる。

いざSSD移行ツールを起動

やっと移行手続きができる。始まったら止まりません。みたいな案内が出て、いざ開始。始まった時にメールは無し。

20分くらいでメールが届いた。「[rjp*****]移行ツール処理成功 のお知らせ」、では検証を始める。管理しているサイトを順番に見ていくと。

高速になって問題が無かった。

びっくりした。問題が無いなんて。管理画面を見るとサーバー番号が変わっていない。これはありがたかった。その他確か無かったPython3 が追加されている。(無いので自分で入れてたからな)OSもBSD 11 だったと思ったんだけど BSD13になっている。このあたりありがたいね。

ついでに PerlとPHPのバージョンアップもやってしまった。PHPは7シリーズから8まで上げるので緊張したが、問題無し。

検証するなら一気に出来るし。あとセキュリティ警告は、売れてない1サイトのhttps接続と強制https接続のみ。

手軽にバックアップを再設定して終わり。次はNextCloudだ。

PowerToys offline install

ネット環境無しでどうインストールするかと言うことです。

実はGitHub の requierments に書いてあって、https://github.com/microsoft/PowerToys?tab=readme-ov-file#requirements

  • Windows 11 or Windows 10 version 2004 (code name 20H1 / build number 19041) or newer.
  • x64 or ARM64 processor
  • Microsoft Edge WebView2 Runtime bootstrapper.

と言うことでした。

オフラインでWindowsを最新版にする

結論から言えば、USBにWindowsインストールツールをダウンロード。そのUSBをオフラインWindowsに差し込み、Setup で修復を実行。

そうするとWindowsが最新版になります。

Microsoft Edge WebView2 Runtime bootstrapper.の導入

Edge で使われる エバーグリーンなる環境のためのライブラリ集です。これが無いとPowerToys のインストールの途中で止まります。(インターネットからダウンロードしようとして)

でMSのライブラリなのでインストール可能なのですが、Evergreen Standalone Installerをダウンロードしてください。

https://developer.microsoft.com/en-us/microsoft-edge/webview2/

Evergreen Bootstrapper というのはオンラインダウンロードです。

PoerToysのインストール

これでPowerToysがあっさりインストールされます。PowerRename と FileLocksmith がサンドボックスで使いたくてインストールしました。

「性的欲望満たすためだった」SNSで知り合った少女と性行為 41歳男性教師懲戒免職 東京都(FNNプライムオンライン(フジテレビ系)) – Yahoo!ニュース

東京都教育委員会は、

大田区立洗足池小学校の男性教師(41)は、SNSで知り合った少女が18歳未満と知りながら、栃木県内のホテルで性行為におよび、青少年健全育成条例違反の罪で起訴された。

また、別の少女とのわいせつな行為をスマートフォンで動画撮影し、児童ポルノを製造した罪でも起訴されている。

と、小学生女児の尻を触った特別支援学校の20代男性教師をそれぞれ懲戒免職処分とした。通勤中の電車内で、座席に手の甲を上にして置き、その上に座った小学生女児の尻を触った

情報源: 「性的欲望満たすためだった」SNSで知り合った少女と性行為 41歳男性教師懲戒免職 東京都(FNNプライムオンライン(フジテレビ系)) – Yahoo!ニュース