前月同日は、DATE(YEAR(B2),MONTH(B2)-1,DAY(B2))ではなく、EDATE(B2,-1)を使う～EXCELの関数技のお話

　EXCELの関数で、前月同日はどう表現するのか、最初にググって、試したのは、DATEとYEAR,MONTH,DAYを組み合わせたものだった。当日の日付がB2セルに設定されていると仮定する。前月同日は、=DATE(YEAR(B2),MONTH(B2)-1,DAY(B2))という関数で求めることができる。 　

　ところが、=DATE(YEAR(B2),MONTH(B2)-1,DAY(B2))だと、当日が月末（２９日～３１日）に差し掛かると前月同日が同じ日が存在しないため、マズいことが起こる。例えば、当日が２０２１年３月３１日であった場合、前月同日は２０２１年２月２８日となるべきだが、このDATE,YEAR,MONTH,DAYの組み合わせだと、２０２１年３月３日？になってしまうのだ。 　

　こんなときは、=EDATE(B2,-1)を使うと、具合が良くなるのだ。先の例でも、これなら、ちゃんと２０２１年２月２８日を求めることができるのだ。 

　前月同日の関数は、=DATE(YEAR(B2),MONTH(B2)-1,DAY(B2))ではなく、=EDATE(B2,-1)を使いましょう！（B2セルに当日の日付が設定されていると仮定） 

　そして、前年同日の関数は、 =DATE(YEAR(B2)-1,MONTH(B2),DAY(B2))ではなく、=EDATE(B2,-12)を使いましょう！

　ちなみに、ACCESSだとEDATE関数が使えず、DateAdd関数を使う。同月同日ならばDateAdd("m",-1,[日付])やDateAdd("m",-1,TODAY()-1)。前年同日ならばDateAdd("yyyy",-1,[日付])とかDateAdd("yyyy",-1,TODAY()-1)といった「さばき」になる。

　ここで、一息のコーナー。空豆を茹でると、栄養分が湯に流れ出るので、勿体ない。そこで、レンジで６００w、2分30秒から３分で鞘のついたまま、チン。ホクホクして、実においしい。

 

星を継ぐもの～３０年積読を経て

　最近、ジェームズ・Ｐ・ホーガンさんの「星を継ぐもの」を最後までやっと、読むことができた。 なにせ、この３０年、積読というか、読み始めると、すぐに睡魔に襲われ、何度となく、挫折していたのだった。 何故、今回は最後まで読めたのだろうか？よく、わからないのだが、最初の月面を歩く２人の男のシーンから前に 進むことができなかったのである。わくわくしなかった。 兎に角、そこをじっーと我慢できたのが勝因だろう。 さて、読み終えた感想は、面白い。凄く、面白い。もっと早く、耐えておけばよかったんだけどね。

　そして、続編の「ガニメデの優しい巨人」を読み、巨人たちの哀しみというか、切なさを感じた。さらに、その続編の「巨人たちの星」に挑む。

ubuntu20.04 +macbook pro(late2013)インストール物語

　ライブDVDでは、まず、wifiを認識してくれない。これが最初の壁だ。 原因はbroadcomのwlanドライバがプロプライエタリなためだ。

　ライブDVDを使うだけならば、対策としては、インストール途中にプロプライエタリなドライバーをロードするサービスを利用すればよい。 具体的には、インストール用のアイコンをクリックし、ディスクを選択する直前でプロプライエタリのソフトウェアのダウンロードをするかどうかきかれるので、ダウンロードを選択すればよい。

　その後、インストール先のディスクを選ぶところでインストールを中止すればよいのだ。 その後、設定アイコンをクリックし、wifiタブをみるとドライバがロードされ、アクセスポイントがずらりと並ぶ。 

　実は、この記事はusbへインストールしたubuntuかつ、macbook pro(late2013)で書いているだが、ここまでくるには、もう２つ、３つの壁を超えなくてはならなかった。

• uefiによるos起動（ググってUSBへgrubをインストールすればいい） 
• no rootによるkernel panicの回避（ググってinitramfsをつくればよい）
  
• keyboardの設定かつ IMEの設定 （ググってaptでアルミかつJISを設定し、・・・）

　結局のところ、ググればなんとかなって、今に至る。いろいろ夢中でやるのが楽しい。誰かに強制された訳ではなく、好きでやってるのだ。楽しすぎる。

 Mozcの調子が悪いときは、ibus-daemon -drxでリセットすればよい。

そして、gimpを入れて、macではwacomが切り捨て、未サポートとなったBanbooFun(CTH-461/S)というペンタブを使えるようになったのだった。とても長い道程だった。

その後、plankというパッケージを入れて、macぽっくしてみた。設定のIcon Zoomでdockをカーソルが移動するときにアイコンが大小にウェーブする動きもできた。

それから、ファンがまわらず、熱を持ってきたので、ググって、mbpfanを入れて、sudo nano /etc/mbpfan.confで、設定値を変更し、ファンがまわるようにしてみた。

先日、村上春樹さんの「ラオスにいったい何があるというんですか」という紀行文集を読んで、気になったワードをメモしておく。 

• 伊トスカナ地方のワインーコルティブオーノ(いつか飲みたい）
• 「来熊」（らいゆうと読む） 
• オレゴン州ポートランドのウィラメットバレーのピノ・ノワール（いつか飲みたい）

macbook pro(retina,late2013) ubuntu 20.04 live DVD wifi(wlan) trouble shooting

macbook pro(retina,late2013)でubuntu 20.04 liveDVDを動かしてみたらwifiを認識しなかった。
どーすればいいんじゃろとググって２日、諦めかけたときに以下の方法に辿り着いた。
ubuntuのLiveDVDに入っている制限付きモジュールでwifi(wlan)を使えるようにできるのだ。
その方法は、以下の通りだ。

cd /cdrom/pool/main/d/dkms/
sudo dpkg -i *.deb
sudo apt install gcc
cd /cdrom/pool/resricted/b/bcmwl/
sudo dpkg -i *.deb
sudo modprobe wl

村上春樹さんの小説を読んだら、とても面白かった。
そして、紀行文集やドキュメンタリーを読んだら
ひょっとしたら、こちらの方が抜群に面白いというか
もっとうまいのではないかと思った。とりわけ、イタリアやギリシャで暮らした話は見事だった。
人の話を聞くのが好きというのが実によくわかった。

dateserialとdataaddでexcel/access+vbaの日付を制す

DateSerial and DateAdd are usefull and perfect.

ThisMonth firstday : DateSerial(Year(Date()),Month(Date()),1)
Today a month ago : dateAdd("m", -1,Date())

辻村深月さんの「ツナグ」という小説はずっと前に読んていた。先日、ブルーレイレンタルで映画を観た。その中で原作にはない、「最上のわざ」(Life's Greatest Task)という詩が出てきた。「老いは神様からの賜物（ギフト）」。「最上のわざ」とは、まず、「To grow old with a cheerful heart,」（楽しい心で年をとること）。生きていること、そのことがギフトだし、老いてもまさに、楽しくありたいものだ。

access docmdコマンドではクエリのパラメタを設定できない。じゃ、どうすればいいんだ？

　accessのクエリをDocmdコマンドで自動化しようとしたのだが、そのクエリでは日付をパラメタで指定する必要があるにもかかわらず、Docmdコマンドではパラメタを設定できないことが判明した。それが仕様だ。どうしよう（仕様）もない、しよう（仕様）がないらしい。 やれやれ、

　何かいい手はないものかと、つらつらと考えた。要するに、日付のパラメタを止められればいいわけだ。幸い、ワタシの場合、前日、前々日、前月前日、前年前日の４パターンでクエリーを動かせば事足りる。それならば、日付別に４つクエリーを作れば、パラメタをやめることができる。クエリの日付の抽出条件にそれぞれの日付、つまり、前日にはDate()-1を、前々日にはDate()-2を,前月前日にはDateAdd("m", -1, Date())を、前年前日にはDateAdd("yyyy", -1, Date())をそれぞれ設定すればよいことを思いついてしまった。どうだろう。逆転とまではいかないが、いい感じでしょ。あきらめないこと、それが大事だ。 

　村上春樹さんの「走ることについて語るときに僕の語ること」では「考えるために書く」ことを述べている箇所がある。書かないと考えがまとまらない、深められないのだと。そういえば、Writing is thinkingもしくはThinking is writingみたいなことをスティーブン・キング氏（Stephen Edwin King）が言っていたとおもう。そういうタイトルの本を出していた。いや、On writingだった。

vba pivotitemクラスのvisibleプロパティを設定できません

　vbaで「pivotitemクラスのvisibleプロパティを設定できません。」というエラーが出た。 原因は、ピボットのフィルターに古いアイテムが残るためだ。 

　対処は、[ピボットテーブル オプション] ダイアログ ボックスの [データ] タブの [データ ソースから削除されたアイテムの保持] の [1 フィールドに保持するアイテム数] で [なし] を選択して、[OK] をクリックする。そして、ピボットを更新すればよい。 もしくは、以下のようなvbaを書く。

Dim pvotItem As PivotItem
    Worksheets("WorksheetNameA").PivotTables("pivottable1").PivotCache.MissingItemsLimit = xlMissingItemsNone
    Worksheets("WorksheetNameA").PivotTables("pivottable1").PivotCache.Refresh
    For Each pivotItem In WorkSheets("WorksheetNameA").PivotTables("pivottable1").PivotFields("fieldA").PivotItems
        If pvotItem like "key" then
            povotItem.visible = True
        else
            pvotItem.visible = False
        End If
    Next