～秒毎に起動するマクロ

タイトル部分
昨日書いていた件ですが。
Sub timer()
Call test
Application.OnTime Now + TimeValue("00:00:10"), "timer"
End Sub

で、１０秒ごとにTEST　クラスを実行するプログラムになります。

これがなかなかクリアできなかったのですが。
解決できました。

このプログラムを核としてやれば上司の依頼はクリア。

もっとも・・・どんどん営業からかけ離れたレベルになってるよな・・・。
まあ楽しいからいいけど・・・。

---

友の声
聞くたび前を
向けるもの
幸せなこと
噛みしめられる

ひらめき

上司に相談されていた、お客さんに対するプログラム・・・。

先週の金曜日に考え、少し私には重たいのかという判断で、上司にはやっぱりしんどいと伝えていたのですが。
本日帰りの電車でボーっとしていると、ふっとある考えがひらめく。

で、少しネットで検索してみると、厳しいと考えていた部分がなんとかクリアできそう！
ということが判明しました。

おそらく作業時間としては2時間～３時間程度あればサンプルくらいは作れるめどがついています。

なんというか、全然別のことを考えていたのに、急にひらめくというのは久しぶりの経験です。

先日はなんとなくの直感に頼ったプログラムがそれなりの動きを見せるし・・・。

不思議だ。

そういえば本日１９時３０分ころ。
うちの所長が私以外の社内に残っている人間にご飯なんかを配る、というか、私以外に声をかけて食べな、という。
別に、どうというつもりもないのですがね。
もしかしたら、私に対しても言ったつもりかもしれないですが、ね。

なんか所長とは合わないな、ってのと。
執着心が薄れていくのと。

今やってる取組の部分の結果が出てきたタイミングで、少し考えることとします。

そういう思いが強くなりつつある。

まあ、営業という仕事に対しての向いてないなぁって思う部分がね。

ただ、うちの会社はどうでもいい。
ただ、お客さんを大事にする、そういう部分だけはどうなっても間違えずきちんともっているように、改めて思い直す。

---

変わること
腹をくくって
前を向く
開き直りが
強くしていく

VBA・ＲＡＮＧＥエラー

ＶＢＡでＲＡＮＧＥを使うときは対象シートをアクティブに

昨日書いていたプログラムは奇跡的に問題ないのかも・・・。
ただし、一部改修が必要な部分があり。
少ししてました。

すると・・・。

タイトルのｒａｎｇｅメソッドを利用しようとしたところ・・・・・。
エラー・・・（--；）

ｒａｎｇｅの定義とかたぶん間違ってないよね・・・？
とか思いながら。

あまりにうまくいかないためにネットでエラーを検索してみました。
すると・・・
ｒａｎｇｅはていぎするときにアクティブシートにしてやる必要があるようです。
わかるか！

つまり、
シート2のセルA1からJ1のデータを消そうとした場合に
sheet2．ｒａｎｇｅ（cells(1,1）、cells（1,10）).clear
というのを書いてもｓｈｅｅｔ2がアクティブになっていないとエラーになります。

なまじ動く時と動かない時とがあるせいで混乱させられましたが。
なんとか解決。

ＶＢＡを知らない方へは完全においてけぼりな話題ですが。
今後の自身の備忘用で作ってＤＢ化しておこう。

折角こういうのまとめてるんだから！
なんて趣味と実益をかねようとしています

---

きりりきり
聞こえる音に
耳澄まし
どこかが壊れ
それでも進み

お仕事

お客さんのためにＶＢＡを記述。
まあ、保険的な意味合いのプログラムですが。

脳みそ働いてないような状態でよく出来たなと。
しかも、頭はこれでうまくいくんかな？
おお！できてる・・・。

理解しきっていないひらめきの状態でできていること自体が怖い・・・。

なんかバグありそうやわ・・・。

いや、理解しきっていないというわけではないんやけども。
これでいけるやろうと考えたら大したバグも出ずにできちゃったから不安・・・。

ええ、たいそうなことはしてませんがね。

さて、ねるか。

姪っ子が・・・

姪っ子が東京へ帰りました。
ＧＷを利用し、姉と姪が実家にいました（旦那がＧＷの時期が忙しいので、その時期を利用し実家に帰ってきていた）

３週間ほどの滞在でしたので、実家はすごく淋しくなってしまいました。
まあ、そういうのもあり姉の足をやってたのと花粉であまりＧＷは外に出ず。

主な原因は花粉ですが。
まあ、そんな状態ですね。

親友の父親の死を目の当たりにして。
また、愛猫の死を見て。

後どれだけ今が続くのか、少しセンチな感情が湧いてきています。
いつまでも今を続けることなんてできやしないのはだれしもわかってるはずなんだけど。

少しでも、平穏な時を過ごしていたいな。

---

筋トレ状況

タイトルの通り、花粉症が落ち着いてきたので筋トレを行おうと・・・。

腕立てを２０回やったところ・・・。

鼻水が（--；）

だめだ。

まあ、そういう状態の中でも久方ぶりに腕立て腹筋背筋を２０回ずつ。
まあ、久々なので軽めということで。

少しずつ負荷を増やしたいのですが・・・。
花粉症次第というのが泣かせどころです。

---

いつまでも
いつまでも

君の無邪気な
笑顔の灯が

消えないように
きらめくように

そう願っては
今を行く

明日迎える
苦しみも

昨日迎えた
喜びも

明日迎える
喜びも

昨日迎えた
苦しみも

ずっと噛みしめ
歩めるようにと・・・