Excel小僧：ワークシートからデータを読み込む

ワークシートの横1列に並んだn個のセルに格納されたデータを配列変数に格納するVBAのサブプロシージャを作ってみました。


【図1】ワークシート（例）
・一番左のセル(T1)には、データの個数が格納されている。個数を数えるため「=COUNTA(U1:AB1)」の数式が設定されている。
・2個目(U1)からn個目(AB1)のセルに読み込むデータが入力されている。
・一番左のセル(T1)からn個目(AB1)のセルのセル範囲(Range)に名前(例：_namae)が設定されている。

読み込むデータのセル範囲の名前(例：_namae)と、データを格納するVariant型変数を与えたら、Variant型変数にデータの1次元配列を格納して戻すサブプロシージャを作ります。

サブプロシージャのコードはこちら。。。

タグ：Excel VBA

Access小僧：CapsLock, NumLock, IMEモードを設定(2)

Accessのフォームのテキストボックスがフォーカス取得したら、
・CapsLock:OFF
・NumLock:ON
・IMEモード：半角英数、または、全角ひらがな
に設定するVBAで、別のリストボックスで何が選択されているかで、テキストボックスのIMEモードを切り替えられるようにしてみました。

【前回の記事】
Access小僧：CapsLock, NumLock, IMEモードを設定

VBAのコードはこちら。。。

タグ：VBA access

Access小僧：CapsLock, NumLock, IMEモードを設定

Accessのフォームのテキストボックスがフォーカス取得したら、
・CapsLock:OFF
・NumLock:ON
・IMEモード：半角英数、または、全角ひらがな
に設定するVBAを作ってみました。

VBAのコードはこちら。。。

タグ：VBA access

Access小僧：デフォルト値を入力

更新をサボっていました。

医療費控除の医療費明細を作るAccessファイルがあって、医療費の入力を行うフォームで氏名を変更したら、病院、治療内容、交通費の値を、その人が良く行く病院の値（デフォルト値）に変更するマクロがあるのですが、そのマクロの変更です。

【変更内容】
病院、治療内容、交通費の値、全てがデフォルト値だったら、病院、治療内容、交通費の値を変更せずにマクロを終了する。

変更後のマクロはこちら

タグ：access VBA

知られていない

このブログは知られていない様だw

Excel小僧：「令和４年」を自動更新

"今年"セルに西暦年(例:2022)が入力されていて、値が更新されたら、別のセルに「令和４年」（４は全角）と表示させる方法です。

最初、表示形式を

myString1 = Chr(34) & "令和" & Chr(34) & "@" & Chr(34) & "年"
Range(myRangeName2(i)).NumberFormatLocal = myString1

として、値「４」を代入したのですが、循環参照が発生して「令和令和４年年」となってしまう問題が発生しました。

そこで、表示形式を「@」とし、値「令和４年」を代入する様に変更しました。

以下、"今年"セルが変更されたら起動されるVBAマクロです。

タグ：Excel VBA 表示形式 @

PowerShell小僧：ファイル一覧をフォルダごとに並べ替える

Get-ChildItemで取得したファイル一覧をフォルダ（ディレクトリ）ごとに並べ、さらに、ファイル名で並べ替える。

Get-ChildItem -Recurse -File `
| Sort-Object -property @{ Expression = 'Directory'; Ascending = $true } , `
@{ Expression = 'Name' ; Ascending = $true }

タグ：powershell

PowerShell小僧：PowerShellのWindowを最前面に移動する

Read-Hostコマンドレットなど、入力が必要となる場面でPowerShellのWindowを最前面に移動するには、どうするのか調べていたら、

Powershellでのアクティブウィンドウ切り替え
https://teratail.com/questions/329291

にあったコードを一部変更することで実現出来ました。

以下、そのコードです。

タグ：最前面に移動する window powershell

PowerShell小僧：階層構造のフォルダに配置されているファイル(2)

１．階層構造のフォルダの子フォルダにあるファイルを、親フォルダに移動する。
２．子フォルダを削除する。

というスクリプトを改造しました。

改造前：
https://cheese999.blog.ss-blog.jp/2022-08-04

改造後のコードは以下のとおり。

タグ：powershell

PowerShell小僧：階層構造のフォルダに配置されているファイル

１．階層構造のフォルダの子フォルダにあるファイルを、親フォルダに移動する。
２．子フォルダを削除する。

というスクリプトを作りました。

タグ：powershell