docomo Home 5GルータとPS Network

　お部屋のWi-FiにdocomoのHome 5Gルータ（HR01）を使っている。引っ越しが多く、社寮に住むことがほとんどのため、任意に光回線を引けないためだ。 　このルータは2.4GHz/5GHzの2波あり、SSID A/SSID Bとなっている。まぁ通常の（2023年11月現在）Wi-Fiルータと同じだろう。デフォルトではSSID A：2.4GHz、SSID B：5GHzとなっている。 　メインをSSID Aで使用することを想定しているのか、デフォルト設定での設定画面

VBA 階層を指定してダイアログでファイルを開く

階層をしてダイアログでファイルを開く '最初に開くフォルダを指定 With CreateObject("WScript.Shell") .CurrentDirectory = ThisWorkbook.Path End With 'ファイルパスを取得 a = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx?") 'キャンセルの場合、終了 If

ARMORED CORE VI トロコン

購入から1ヶ月ちょい、3周目クリアし全ミッションSランク達成。無事にトロコンしました。以下の再生リストにほぼ全任務（序盤の簡単なものは数個有りませんが）Sランク取得動画を載せています。 PSのトロコンしたゲームはそんなに多くないですがACMoA以来のARMORED COREということで気張りました。 機体エンブレムは兎田ぺこら氏と野兎同盟をモチーフに、カラーリングはぺこらをイメージにしております。 惑星ルビコンも無事に兎化したということで次のゲーム「十三機兵防衛圏」を始めた

VBA 商品番号の件数を支社毎にカウント

Sheet1"集計" Sheet2"JA" コード Sub 商品番号､支社毎カウント()'Sheet1 集計'Sheet2 データ Dim ws1 As Worksheet Dim ws2 As Worksheet Dim i As Long Dim j As Long Dim k As Long Dim Scnt(3) As Long ' シートを指定 Set ws1 = ThisWorkbook.Sheets(

VBA 最終行取得と空白セルの削除

セルを取得するEndプロパティ A列の最終行（空欄まで）の取得 Cells(1, 1).End(xlDown) A列下から最終行の取得　　Rows.Count = 1048576 Cells(Rows.Count, 1).End(xlUp) Endプロパティ構文　End(Direction) Direction一覧 xlUp : ↑上へ xlDown : ↓下へ xlToLeft : ←左へ xlToRight : →右へ セルの行数を取得するRowプロパティ

TRPG(CoC7版)のシナリオ執筆中。書き終えたらいずれ何処かで公表したいな。

映像の配線における悩み

　最近、引っ越してしばらく放置していたゲーム機等の配線をやっている。 　PS4、Switch、Vita TV、メガドラミニ、メガドラミニ2、レトロフリーク、PC8001mini、X68000Zをキャプチャーボード（GC-550 Plus）を介してPCに流し、パススルーをTVと15.6inchモバイルモニターに映す。そしてゲームをしない時はTVとモバイルモニターはPCの3、4画面目として使うという構成にする計画だ。 　今まで使っていたキャプチャーボードとHDMIセレクターが

RolandのシンセJUNO-DS61 まぁ普通に弾くなら61鍵で十分。機能はまだまだ使いこなせてないけどやれる事の幅が広がった。

防具作り

バラクーダの群れ、南海の孤島にて

先日ダイビング行ってきました。人生で絶対縁がないと思ってたスキューバーダイビング。まさか自分がやってこんな景色を間近で見る日がくるとは思っても見ませんでしたね。人生何があるかわからないものです。 初投稿で今ハマってることを投稿しましたが、今後は自分が作ったもの、ハマっていることなんかを投稿していこうと思っています。