ADODBを使ってExcelをデータベースのように扱うのは、SQL文を書くだけで集計出るのでとても便利ですね。 そんなデータベースで集計の指示を出すSQL文で今回始めて Excel VBAでデータベースの結合処理を行ってみました。 やろうとしたこと 今回ミスったことを…
動的配列を宣言する時はどうしていますか？ Dim Var() as variant Redim Var(1 to 3) 上記のように変数名の後に（）をつけて宣言し、 Redimで要素数を指定してから使用するのではないでしょうか。 しかし今回長年見慣れたこの方法とは違う宣言方法に出会いま…
Excel VBAにおいて改行というと vbCrLf や vbLf が紹介されている。 これらの定数はどんな違いがあるのだろうか？ 改行に関わる定数 定数 値（文字コード） 内容 vbCrLf Chr(13) + Chr(10) キャリッジ リターンとライン フィードの組み合わせ vbCr Chr(13) …
皆さんオートフィルタ使ってますか？ ピボットテーブルを使わない人でもオートフィルタはわかりやすいのか使ってますよね。 皆さんオートフィルタを設定するときどうやってますか？ 「上のメニューから選ぶんだろ？」 その通りなんですが、今回のネタはその…
テーブル機能。便利ですよね。 テーブルを設定すると色々とExcelが気を使ってくれるようになるのですが、その細かい気の使いようにちょっと困った自体に遭遇しました。 その現象と対処法をご紹介 数式の自動入力 このようなテーブルに税込みの金額を算出する…
データの抽出や分析に必須の機能オートフィルタ。 20年近く使ってきて今更ですが個人的にビックリの機能を先日発見してしまったのでご紹介。 オートフィルタに条件を追加する方法は？ 例によってなんちゃって個人情報のデータである。 現時点では都道府県が…
テーブル機能便利ですよね。 Excel2007以降での最高の追加機能だと思います。 しかし先日このような場面に出くわした。 ※データは例のごとくなんちゃって個人情報より テーブルの列名参照は名前定義みたいなもので絶対参照だと思いこんでいたので、このよう…
いつも勉強させていただいているinfomentさんのblogで以下のような記事を公開されていました。 infoment.hatenablog.com ADODBにまさに上記のような機能があったはずと思いだして自分なりに作ってみた。 早速コード Sub ページ分割() '参照設定でMicrosoft A…
前回はsumifs関数でのOR条件の指定方法を紹介した。 www.excellovers.com 今回はみんな大好きsumproduct関数をsumifsの代替で使用する際のOR条件の指定方法を紹介します。 ※大好きだよね？ OR条件公式 前回と同じ事例に対して３つの方法を作ってみた。 まず…
条件付きのSUM関数といえば SUMIFS関数だが、この関数はAND条件、つまり指定した条件を全て満たすものを合算する関数です。 ではOR条件、指定した条件の一部でも満たすものを合算することは出来ないのでしょうか？ SUM関数＆SUMIFS関数 通常の使用方法ではSU…
以上。 目標達成 よく言われるblog記事を数ヶ月の間に100個公開しましょうという教えですが、 当blogはこの記事で100記事に到達いたしました。 もちろん数ヶ月という短期間ではなく開設から３年弱かかっていますが、当初少なくともこのぐらいまでは頑張りた…
先日このような記事を公開した。 www.excellovers.com その際にちょっと気になったことがあった。 Excelに商（割算の答え）を算出する QUOTIENTという関数があるのだが、この関数の返り値がちょっと疑問符がついてしまった。 Quotient関数 QUOTIENT (分子,分…
先日 ー４ ÷ ３を計算する機会があった。 この場合の余りはいくらだと思いますか？ Excelとは直接には関係ないが、恐らく配列数式内の場合分けでこれから先、遭遇することがありそうなので調べてみた。 余りは？ 自分の感覚ではこの場合の余りは ー４ ÷ ３ =…
前回はSQLiteで単一のテーブルで管理していたデータを、データベースの正規化を行い複数のテーブルに分割してみた。 www.excellovers.com 今回は実際に単一のテーブルを複数のテーブルに分割するコードを紹介したいと思います。 例のごとく早速コード Option…
フォロワーさんがこのようなものにチャレンジしているのを見かけた。 koroko.hatenablog.com 自分はあまりこういう演出系の処理をしたことがないのでチャレンジしてみた。 コード 例のごとく早速コード Option Explicit Sub マンゴー抽選() Dim MangoNum As …
ここ最近twitterで #エクセルクイズというタグで出題されている問題に色々とチャレンジしてきました。 その中で配列数式を使用することも多かったのですが、自分の思いもよらない使い方をされているのを見かけて勉強になりました。 今回はその集大成として文…
前回はExcelとは異なるデータベースの独自要素を盛り込みつつSQLiteデータベース・テーブルを作成した。 www.excellovers.com 今回はデータベースの独自要素、「正規化」を考慮してデータベースを分割することにチャレンジしてみます。 正規化前のテーブル構…
Excelには「表示形式」という機能があります。 どういうものかというと このようにセルの値の見た目を変更するための機能です。 この表示形式の機能を利用するとセルの値が、プラスの場合・マイナスの場合・ゼロの場合で書式を変更することが出来ます。 正・…
先日Twitterでこのようお題が出されていました。 フィルターを設定した表について、表示されている行のみに通し番号を振ってください。・フィルターの条件を変更すると番号も変わります。・式はA2セルに入力し、下方にコピーしてください。#エクセルクイズ p…
前回はExcelとは異なるデータベースの独自要素を見てみた。 www.excellovers.com 今回からはその点を踏まえつつ実際にSQLiteデータベースの作成をしてみたいと思います。 ExcelでSQLiteデータベースを操作 上記を実現するためにExcel for SQLite使用する。 …
ADODBを利用してCSVファイルを操作する方法を検証した。 www.excellovers.com 今回からはそのCSVを取り込むためのSQLiteデータベースの設計・作成をしてみようと思います。 データベースならではの要素 今でもSQLiteデータベースを使用していますが、感覚的…
前回でSQLiteへCSVファイルを取り込む方法をADODBで行うことを決定した。 www.excellovers.com 今回からADODBを利用したCSV取り込みの方法を紹介します。 会計ソフトの代わりに家計簿ソフト 今回のコードは会社で使用している会計ソフトから出力したCSVファ…
前回で使用するデータベースをSQLiteにすることを決定した。 www.excellovers.com 今回からCSVファイルの取り込み方法について試行錯誤していきたいと思う。 現状の取り込み方法 ・Querytables.addでCSVをExcelに取り込む ・取り込んだデータをSQLのInsert分…
前回華々しくビッグデータの大海原に漕ぎ出したわけですが、大海原を乗り越えるための船がまだ決まっていません。このままではあえなく溺れ死んでしまいます。 ビッグデータを乗り超えるための船 データベースです まずはこれを決めることから始めたいと思い…
私は職場で経理を担当していて、月次の資料を作る際に ・会計ソフトから仕訳データをCSVで出力 ・出力したデータをExcel VBAでSQLiteにインサート ・Excel VBAからSQLを使用してSQLiteから集計後のデータを出力してExcelへ転記後、関数を使用してフォーマッ…
先日、会社で作ったVBAの機能に我ながらテンションが上ったので取り敢えずご紹介だけ。 完成品 このようなデータを このように集計している表があるとします。 カツの売上が先月より良いけどなんでだろうと思ったとする。 そこで５月のカツのセル（C3）をダ…
先日作成したこちらの筆算の学習ツール。 www.excellovers.com 足し算・引き算・掛け算までは出来ていたのですが、勢いに任せて割り算対応もしてみました。 その過程でクライアント（嫁）から次々と要望が出てきましたが、何とか全て対応いたしました。 その…
以前に100枡計算ツールを息子のために作ったのだが、学校で筆算を習うようになったので筆算のツールを作って欲しいとせがまれてしまった。 子供のリクエストとあらば答えねばなるまい！ 完成品 完成品はこちらです。 足し算の動きはこんな感じです 引き算 掛…
前回・前々回でExcelからコメントを一覧にして抽出して別ブックに退避して削除、退避したコメントの復元までを一応完成させた。 www.excellovers.com www.excellovers.com しかし実際に使ってみたりblogへのコメントを頂いて「コメントの退避」の内容を少し…
前回はコメントを全て別ブックに退避させてから、全て削除するところまでを実現させました。 今回は退避させたコメントを元のブックに復元させるところまでを検証してみます。 コード Sub CommentInport() Dim FilePath As Variant Dim myWB As Workbook Set…
