投稿者: 溶接板金CAD自動化研修所

キッチン20kg  IHコンロ8kg。ちっちゃなキッチンがあるが結構軽いかも。

今度買う冷蔵庫58kg 入れて100kgにはならないが。

冷蔵庫を買おうかどうかと。

 「住宅の場合、一般的に床の耐荷重は100kg/平方メートル程度」らしい。工務店の人いわく。

でも、

冷蔵庫の230L容量だと8割り程度入れるとして150kgになるのかな。

58kg (冷蔵庫の重量) + 150kg (内容物の重量) = 約200kg

ん。結構あるな。入れすぎ注意だな。

もっと小さい冷蔵庫だな。ほぼ、使わんような気もするし。

完成しない。
そのときは進歩したと思う。
また、時間が経つ。ま、辞めている。
やめることはOK。
またできる？。そこで向かい風が吹いているような感じって何だろう？
・データが壊れないか？
・エラーの位置がわからない
・エラーの意味がわからない
・他のアプリを動かすような難しいことをしている
・やろうとしていることが困難なのか不安
・できるのかできないのか不安
・複雑になると責任が

由無し事を書かないと残らない。話したり何かしてると3分後には思い出せない。

そんな時は、ヒラメいた時の行動。内容を繰り返すと思い出す。思い出せない時はホンマにどうでもええこと。

トラップとは罠のこと。
「トラップ を 仕掛ける」とは、「罠を仕掛ける」。
On Errorでエラーになった時の処理を 仕掛ける。ということ。
「AppActivate “無題 – メモ帳”」は、新規にメモ帳が開いているかどうかでエラーになる。AppActivateが関数ならエラートラップは使わない。
r=AppActivate(“無題 – メモ帳”)で、大抵は戻り値rの値をチェックして繰り返せばいい。Do LoopでUntil r=Trueでいい。
あいにく、AppActivateステートメントは、関数じゃない。だからエラートラップを使う。以下は、新規メモ帳（タイトルが無題 – メモ帳）が起動しないと無限ループ。

Option Explicit

Sub ボタン1_Click()
    On Error GoTo myErr 'トラップを掛ける
    AppActivate "無題 - メモ帳" '-は半角、前後に半角空白
    SendKeys "%{F4}", True 'これはエラーになることない
    Exit Sub
myErr:
    Resume 'エラー処理をもう一度
End Sub

もし、複数の新規メモ帳があったら１つだけ閉じる。全部閉じるならDoLoopでAppActivateからSendKeysまでを囲み、Resumeを削除する。つまり新規のメモ帳が見つからないとエラーになってmyErrに飛んで終わる。

関数じゃないためとか、対象の引数や要素番号があるかチェックする機能が無い場合はOn Error。使えます。

調査はいいこと。

バイナリエディター。30年前に日本語メッセージを変更したことがあった。ただ、文字数、位置を変えたらだめ。

今、どんなことが書いてあるか見るならメモ帳かな。ただし、保存しない！。バイナリファイルをテキストエディターで保存すると改変されて使えん、実行できなくなる。テキストエディターは、データを何とか文字コードに解釈して表示するため。

生のデータを見るのはバイナリエディター、ビューアの方がええ。文字だけなら、テキスト。

ファイルは二種類ある。