視覚障害者きうっちの自立への道

視覚障害者きうっち(S52年生)が気の向くままに日々の生活をツラツラとつづるブログ

在勤生活1495日目

2018-11-13 20:32:03 | 在勤生活
 最近、何故か昔観てたアニメ【魔神英雄伝ワタル】繋がりで、
そのワタルの主題歌だった高橋由美子の曲を毎日のように聴いております(笑)。youtubeで。
正直、おせじにも上手い歌だとは思わないけど、な~んか惹かれてしまうというか。91年頃の曲だから、ちょうどバブリーな頃の香りがするんですわ(笑)。音色(おんしょく)とか。
でもワタルの曲だったら、やっぱり初代オープニングの【step】がいいなぁ…。

  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

在勤生活1494日目

2018-11-12 20:53:31 | 在勤生活
 今日は久しぶりに、週明けから残業をしました。…おかげで現在、ホームヘルパーさんがたらふく作ってくれた晩ご飯をたんまり食べたおかげもあって超眠い(苦笑)。
もしかしたら、急に寒くなってきたせいもあって今日から本格的に入れ始めた部屋暖房のせいもあるのかもしれない。…まぁ、ようするに現在進行形でとにかく眠いのである(笑)。
…なので今日の記事はこれにて終了orz。今日の活動時間もこれにて終了、というか就寝……zzzz…。

  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

在勤生活1493日目

2018-11-09 19:53:40 | 在勤生活
 EXCELで「自分が直面している状況を解決してくれる関数」が見当たらない時、最近のわたしは既存の関数を色々組み合わせて問題解決をしようとするよりも
どうもVBAで「そういう関数」を作ってしまおうとするような思考回路になってしまって(苦笑)。ただ、VBAで作ったオリジナル関数は基本的に「その関数を作成したファイルの中」だけでしか使えないから
実際にオリジナルの関数を作って、ワークシート上のセルに埋め込んで使うことはそうはないのですが。
もっとも、同じような場面にマクロ作っている時出くわしたら、もう迷いなくオリジナルの関数(=ファンクションプロシージャ)を作る方向に流れていくんですけどね~(^^)v。

  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

在勤生活1492日目

2018-11-08 18:15:45 | 在勤生活
 このブログにも、何度も何度も書いてきてますけど、わたしは基本的に暑がりで、しかも超がつく汗っかき(^^;;。
だけど昨日は夕方、かなり厚木をして出かけたつもりだったんだけど、全然暑くなかったし汗をかくこともなかった。むしろその格好でちょうど良かったぐらい。
…いよいよ「そういう季節」になってきたんですね。冬到来!というところですか。昨日も昼間はかなり暖かかったらしいんだけど、さすがに夕方も6時を過ぎると冷えてくるよなぁ。この時期だと陽は完全に落ちてしまっているし。

  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

在勤生活1491日目

2018-11-07 20:37:59 | 在勤生活
 EXCEL・VBAの話。VBAの命令にClearContentsメソッドというものがあります。
この命令、一言でいってしまえば右クリックのコマンドリストの中にある「数式と値のクリア」にあたります。
例えばセルa1をクリアする、なんて時は↓①のように書くんですけど、
実はこのClearContentsメソッド、わたしも今日初めて気づいたんですけど(^^;、結合セルに対して実行しようとするとマクロがエラーになるんですよね。
例えばセルa1からd1が結合されている場合、↓②のように書くとエラーになるので、それを回避するために↓③のように書きます。
…と、マニュアル通りに書くとそれが会費方法なんですけど、でも実務では↓④のように書く方が普通ですよね、と言われ自分の頭のカタさに愕然としたというか(笑)orz。
↓④はようするに結合セルの中にブランクを代入する = セルの中を空にする、という意味でして。
ま~こんなのテクニックでもなんでもなく、ちょっとよく考えればすぐ思いつくことだよなぁ、と。結果的に、セルの中に入っている値が空になればいいのだから。
というわけで、今日はもうすぐ41歳になる自分自身の頭のカタさに非常に残念な思いをした1日でございました(>_<)。




Range("a1").ClearContents


Range("a1:d1").ClearContents


Range("a1:d1").MergeArea.ClearContents


Range("a1:d1").Value = ""

  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする