崖の上のジョージ

なんとかやってます。。続きはXで。。

あ～

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


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

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

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

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

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

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

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

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

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

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

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

変更後のマクロはこちら

？

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

https://www.youtube.com/watch?v=b8-tXG8KrWs

広告、消えて！