VBA

久しぶりにプログラム書いてますｄｅｒａｃｉｎｅです、こんばんわ。

最近はまっとうな営業職っぽい仕事ばっかだったのですが。
本日（昨日）後輩のＴさんから相談を受けたので、ＶＢＡを書いてみています。

久しぶりの部分で、少し手間取りながら。
まあ、通常の仕事よりも（苦笑）こういうのが大好きなので。

もう少し、やってからねることにします。

やっぱり面白いなぁ。

---

やることと
やりたいことが
違うこと
いつかはきっと
決壊するね

～秒毎に起動するマクロ

タイトル部分
昨日書いていた件ですが。
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がアクティブになっていないとエラーになります。

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

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

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

---

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

昨日のこととジム通い

昨日、後輩Ｔさんから相談事。

というのも、帰り仕度は整っているような状況で、以前私がＶＢＡを扱い始めたときに参考にしていた本（いらなくなったのであげました）とにらめっこをしていたので、どしたん？声をかけたら相談を受けました。

こんなことって出来るんですか？という質問で。具体的にはちょっとご勘弁を（たんに説明が下手なだけです。）
お客さんから、相談を受けたので・・・。とのこと。

まあ、そういう、お客さんからの要望を少しでもかなえようとするあたりが良いですね。
・・・いえ、まあ。やりすぎるのもよくないですが、かといってあまりに融通が利かないのもあれなので。

まあ、そういう子だからこそ、本をあげたりしてるんですが。

で、その中で。
結果的にはＶＢＡをほぼ使うことなくできるようにアドバイス。

あくまでも、お客さんにできる範囲の内容でということを主にして考えた結果です。

ただ、こういったことは本職でないなかで、。
私がなまじそんな本をあげたからそういう風にＶＢＡでやろうと考えてしまったのかなと、少し反省です。

すくなくとも、私はお客さんにあげたものは自分で作ったもので、出来不出来はさておき、簡単なツールレベルであれば何度か作っているのでなにかあっても対処できますが。

私のお客さんではありませんし、説明できないことで構成しては後々大変だろうから。
でも、何のかんのと自分に経験値が入っているんだと実感できてよかったです。

---

さて、それとは別に本日もジム通い。
先週は結構軽く流していたのですが、今日は割と本気。

自転車をこぐようなやつでは35分ほど漕いでました。
しっかし不思議です。
しんどくなればなるほど、こぐスピードが速くなっていく私・・・。
ランナーズハイのようなもの？

まあ、明日は筋肉痛ぐらいにはなってることでしょう。
以上。

---

そばにない
それでもいいさ
どこにでも
聞こえるように
詠い続ける