furyutei

[PowerShell] 「超かぐや姫！おつかれさま本」の画像をダウンロードするスクリプト

「260815_超かぐや姫おつかれさま本」の画像をダウンロードするためのPowerShellスクリプト。

※V​​P​​​С​​F @CPK！@vpcf90 さんのツイート(ポスト)を参考に、ほぼChatGPTに丸投げして書いてもらったもの。

使い方

1. あらかじめ、*.ps1ファイルが実行できるようにPowerShellを管理者として実行した上で、

> Set-ExecutionPolicy RemoteSigned

furyutei

[Excel] 数式でアナログ時計を描くのは間違っているだろうか

こちらで出したエクセルクイズの回答例ではあるのですが、なにせ処理が重くて……もっとスマートな回答を引き続きお待ちしております。

アナログ時計の数式例

=LAMBDA(radius,[now],LET(
  ch_face,1,ch_frame,2,ch_num,3,
  ch_hour,4,ch_min,5,ch_sec,6,

furyutei

[Excel][VBA] VBA上でJScriptの配列(Array)を操作する試み

VBA上でMicrosoft HTML Object Library（HTMLDocument／CreateObject("htmlfile")）経由でJScriptの配列(Array)を使えればちょっと便利なんじゃ？ と思って試していたら、例によってはまってしまったので、備忘を兼ねて。

ソースコード

• JScript配列取得用ライブラリ（標準モジュール: Mod_JsArray）
• JScript配列の利用サンプル（標準モジュール: Mod_TestJsArray）

furyutei

[VBA] NaNや無限大を扱う

Double型で非数(NaN・Not a Number)・正の無限大(PositiveInfinity)・負の無限大(NegativeInfinity)を定義したり、値が該当するかを判定したりする。
使い所があるかどうかは不明……。

参考

• 元ネタ：ちゅん@KotorinChunChunさんのツイート(ポスト)
• ↑を再現しようと試みた自分のツイート(ポスト)ツリー
• VBAで正の無限大・負の無限大を取得する #VBA - Qiita
• Testing for NaN in VBA/VB6 - Stack Overflow

furyutei

[VBA] 配列の全次元の添字の下限を一括設定するプロシージャを試作

Arr(0 To 2, 2 To 5)
みたいな(動的)配列を
Arr(1 To 3, 1 To 4)
のように要素数は変えずに添字だけを全次元一括して変える試み。

なお、配列の添字下限は、1次元配列であれば、
ReDim Preserve Arr(Base To Base + UBound(Arr) - LBound(Arr))
のようにして変更できる。

furyutei

[PowerShell] FileSystemWatcherで特定のフォルダを監視するサンプル

元ネタ：まさおじさん@keitai_kaiのツイート(ポスト)

furyutei

[Excel][VBA] Application.OnTimeによる割り込みが可能なWaitプロシージャを試作

待ち時間中でも、画面更新、キー入力やマウス操作、Application.OnTimeによるプロシージャの実行などを阻害しないようなWaitプロシージャ(WaitEx)を試作。

Public Sub WaitEx(ByVal WaitMilliSeconds As Long)

パラメーター
---
[in] WaitMilliSeconds
 待ち時間（ミリ秒）。

furyutei

[VBA] UIAutomationを使ってOfficeのバージョンを取得

Officeのバージョン(エディション)詳細版｜UIAutomation｜ライブラリ｜踊るエクセルに対して以下のような改修を行ったもの。

• Word対応
• 表示言語を英語にしてある場合に対応
• 環境によってはバージョン情報ダイアログが閉じない場合がある不具合に対応
• [ファイル]タブを開いた状態で実行した場合にオートメーションエラーになる不具合に対応
• 定数の重複定義をコメントアウト（UIAutomationClientで定義済みの定数（UIAutomationClient.UIA_PatternIds））

furyutei

[VBA] 配列の次元数を取得する関数

ソースコード

• GetArrayDimension(): UBound()を利用した方法
• GetArrayDim(): Win32APIを利用した方法

※共に、引数に配列以外を指定した場合は-1、初期化されていない(要素数未指定の)動的配列を指定した場合は0を返す

ひとりごと

furyutei

[Excel][VBA] エクセルのバージョン取得を試みる(2016以降も対応)

元ネタ

• 踊るエクセル@ExcelVBAerさんのツイート

ソースコード

基本的に、簡易的な判定で構わなければ1を、やや厳密な判定（LICENSE NAMEの取得）やWord[^1]にも対応したければ3を使います（2はプロトタイプです）。
[^1] 頭の方にあるTARGET_APP_NAMEを"Excel"から"Word"に変更して使います。