日付時刻型フィールド(例 2026/08/28 00:00:00)ならば、>=DateValue([開始日]) And < DateValue([終了日])+1 と指定すれば良い。
betweenに拘るならば、between [開始日] and DateValue([終了日])+0.99999もある。しかし、>=と<+1が無難らしい。ちなみに1日は24時間、1時間は60分、1分は60秒なので、1日は 86,400秒。0.00001が0.86秒で、1-0.99999=0.00001という関係で、+0.99999は59秒あたりの時刻をピックアップできるわけだ。
マイクロソフトが保守終了したOffice2016へ2026/08/12にセキュリティ強化と称するWindows Updatesを提供し、Office2016では以下の現象が起きている。一方、Office2021以降では一切、起きない。これは単なる自分へのメモである。Office2016ユーザのワタシは、解決策を求めて、日々、多大な労力を費やしている。
日付でC列(3)をフィルターする場合、=(等しい)は表示形式の違いを吸収しないので、>=と<=1を使うのが良い。
autoFilter 3,">=2017/8/1",xlAnd,"<=2017/8/31
macbookpro11,3(Late2013)1にはUSBは２つしか挿せない。ひとつはDabian Linux live(non-free-firmware ありの trixieが必要だ)を挿す。そして、もう一つにはUSBマウスだ。broadcommの無線lanを動かすため幾つかのdebは、どうすれば良いのか？それは、DOS FATでフォーマットしたSDカードにDebian13のサイトから事前にロードしておくのが良い。
Debian13 Live(USB)を挿してoptionボタンを押しながら電源ボタンを押す。ジャーンと音楽が鳴ったら、EFI1でDebian13をブートする。 そして、eを押下し、bootのオプションとしてibt=offを指定し、ブートせよ。このパラメタの指定が必須です。これを指定しないと、sudo dmesg | grep wlで確認できるが、wlをロードした時にitb=offにせよというエラーが出て、wlのロードが失敗するのである。 以下が必要なパッケージだ。 cd /media/user/1*(mountでSDカードがマウントされたディレクトリを確認せよ)で、SDカードのディレクトリにいく。そして、必要なパッケージを順番にsudo dpkg -iでインストールせよ。
excelのPIVOT集計で計算の種類を累計にすると日付データがないところの累計が表示されない。それなら、表示されているところだけで済むようにすればいいじゃん。PIVOTの参照したい日付をVLOOKUP(参照した日付,PIVOTの日付列,1,TRUE)とすればOKだ。これで、集計したい日のデータがなくても、集計したい日を超えない日（近似値）の累計が取得できる。マイクロソフトのバグがあってもあきらめないことが肝心である。
excelのPIVOT集計で計算の種類を累計にすると日付データがないところの累計が表示されない。まず、計算の種類を累計とするのを止めて、計算なしに戻す。さらに、日付別の集計は止める。即ち、PIVOTの列からハズしておく。その代わりに集計したい日までの総計を表示する。これで、集計したい日のデータがなくても、集計したい日の以前のデータで総計が出るので、集計ができるようになる。ちなみに、PIVOTのオプションで「データがないアイテムを表示する」にすると、累計の表示が出てくることがあるが、例えば、２日連続で、データがないとデータが表示されない。これはマイクロソフトのバグかもしれないが、いずれにしても、PIVOTのオプションで「データがないアイテムを表示する」は、使えない。
項目が全く同じテーブルをマージし、新テーブルを作るワンラインクエリは、これだ。SQLビューにこのSQLをそのまま、貼り付けるだけでよい。データの重複を可とするため、UNION ALLで結合する。
select * into table3 from ( select * from table1 union all select * from table2 );
それは、EXCELは複数の行を削除するのが苦手であるということだ。特に、非連続、即ち連続していない複数行を大量に削除する場合は、とても時間がかかる。どうすればよいのか？簡単である。飛び飛びにならないように、事前にソートすれば良い。即ち、並び替えしておけば良いのだ。大量の行をEXCELで扱うときの大原則になる。 例えば、シートに営業部署があると仮定する。シートを営業部署ごとに別のEXCELファイルにしたいというのは、よくあるケースだ。 基本的なロジックは、シートをAutoFilterでフィルターし、フィルターした可視セルのみ、新ブックへコピーするのが良い。 可視セルを使わない場合、フィルターした以外の部署を削除するという荒技もある。その荒技を使う場合、大量の行を削除することになる。大量の分散した行を消すと時間がかかる。 そういうケースでは、事前に部署名でソートしておくのだ。分散が解消され、削除がスルっとあっという間に完了してしまう。
vbaでピボットに左上隅のフィルターフィールドの項目で日付によるフィルターをかけたところ、笑えるぐらいの遅さのため、断念した。左上隅のフィルターフィールドの項目をフィルターするには、ひとつひとつの項目を表示（項目.visible=True）するのか、非表示（false）とするのかの設定しなければならない。そして、このFalse或いはTrueを設定するのに恐ろしく時間がかかるためだ。一つやるのに時間がかかる。数秒かかる。数個の商品ぐらいならば、高速処理できるが、日付を複数、非表示にするといったケースでは全く使えない。本当に使えない。
Dim i As Long
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)
With pt.PivotFields("商品")
itemsToHide = Array("りんご", "そば", "ハンバーガー","ラーメン")
pf.ClearAllFilters
For i = LBound(itemsToHide) To UBound(itemsToHide)
pf.PivotItems(itemsToHide(i)).Visible = False 'ItemsToHideの項目のみ非表示にする。
Next i
End With
Set pt = Nothing
数多の試行錯誤で、辿り着いたのは、左上隅のフィルターでななく、タイムラインとPivotFilters.Add2による日付フィルターであった。こちらは、とても高速で処理してくれる。
Sub TestAddPivotFilter2()
AddPivotFilter2("2026/01/01","2026/01/31")
End Sub
Sub AddPivotFilter2(sDate As String,eDate As String)
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)
With pt.PivotFields("日付")
.ClearAllFilters
.PivotFilters.Add2 _
Type:=xlDateBetween, _
Value1:= sDate, Value2:= eDate
End With
End Sub
あとは、ピボットテーブルの分析タブで、タイムラインを作成すればOKだ。sDate,eDateを変えるだけで自在に高速フィルターをかけることができる。
実は、空白の日付があると、それをフィルターすることができない。じゃ、どうするというと、例えば、遠い未来の日付にすることで、フィルターすることが可能となる。
空白の日付は、よく発生する。リアルワールドでは実にしばしば、発生する。何かの完了日とすれば、その処理が完了していないことを意味する空白の日付が誕生するわけだ。マイクロソフトではこの空白の日付がそのままでは、フィルターすることができない。ので、未来の日付にしておくわけだ。
ピボットテーブルの更新がバックグラウンドで、勝手に行われている可能性がある。そこで、ピボットテーブルのプロパティを調べて、バックグラウンドで更新するというオプションにレ点（チェック）があったら、それをを外せば、勝手に更新されなくなるので、「更新が完了するまで待て」とは言われなくなるはずである。どうだろうか？
accessのテーブルの外部リンクを更新するにはリンクマネージャのポップアウト画面で、左下の「リンク先を更新するためのプロンプトを毎回表示する(A)のチェックボックスにチェック印を入れよ。
excel Cm+Bnという式でBn=空白の場合、式がerrorになる。SUM(Cm,Bn)にすればerrorにならず、Cmの値が取得できる。 これを使えば、グラフを作るケースで重宝する。
「このブックには、ほかのデータソースへのリンクが含まれています。」 でもどこで参照しているのか教えてくれない。 Cntl+Fキーで、ブック全体を［リンクの編集］ダイアログ ボックスの［リンク元］に書いてある文字列で検索しても該当のセルが出てこない。 先日、この怪奇現象に悩まされた。何時間も悩んでいたら、ふと、思い付いた。そうだこのセルには、リスト（いわゆるドロップダウンリストだ）を定義していたんだと。リストの定義で外部ファイルを参照していたのであった。 リストを定義した行を他のファイルからコピーすると、リスト（いわゆるドロップダウンリストだ）の定義もコピーされてしまい、そのリスト定義が外部ファイルの参照になるのだ。あーやれやれ。
excelのVLOOKUPをacccess,mysql,postgresqlでやるにはSELECT文で、テーブルAにはあるがテーブルBにはないものをwhere B.フィールド名=Nullみたいな条件で抽出してやればよい。
[vba画面]→[ツール]→[オプション]⇨[ドッキング]で、全てのウィンドウにチェックを入れるだけで良い。そして、表示された画面を自分好みの位置にする。
昨日、近くのスーパー万代に米を買いに行った。棚は空っぽ。買えなかった。今年は去年より米の姿がなくなるのが早かった。幸い、近くのスーパーたこ一で５Kgで6134円（税込）でゲットできたけど、気楽に買えない値段になっていた。近くの阪急オアシスも米の棚は空っぽだった。コスモスにはカルロース米が２つほど積んであった。日本は、関税交渉でトランプ大統領にあるだけ買うよと言えば良いのではと思う。後日、OASISを覗くと、４千円ぐらいの５kgの富山コシヒカリが沢山、あった。あるとこにはある。でも阪急にはなかったな。何が起きているんだろうか？そして、数日経った今日、阪急のお米屋を覗くと、米が並んでいた。米は姿を消していなかった。
チェック印（レ点）の文字は、EXCELのセルには書けるが、vbaのコードではとなり、記述できない。いわゆる、環境依存文字の一つのようだ。 では、どうすれば、その文字を判定できるのか？ 一つの方法としては、チェック印（レ点）の文字は、16進数のコード2714(UNICODE)を判定すれば良いのではないかと考えた。
If Hex(AscW(Range("A1").Value))=2714 then MsgBOX "GotIt"