きなこSHOW

自作プログラム置き場です。

Excel VBA

ExcelブックのConnectionをすべて削除するVBAコード

Power Queryを自動操作するツールで、Connectionを初期化する際、エラーになったので回避策のメモ。すべての接続をエラーを起こさず削除できるサンプルコードを掲載。 Public Function FncDelteteConnectionsFromBook( _ ByVal objBook As Workbook, _ Optio…

Excelで営業日を計算する関数を紹介します

ExcelのWORKDAY関数やNETWORKDAYS関数は土日は自動計算してくれますが、会社独自の休日、年末年始や休業日などはあらかじめセルに日付を入力しておく必要がある。常に休日シートをメンテするのもちょっと現実的でない。休日セル無しでも営業日を計算してくれ…

Excel VBAで指定した範囲の値を配列に格納するサンプル

セル範囲に入力されたデータを配列に格納するテクニックをご存知でしょうか。扱い方が手軽な上に、処理も高速です。 そいつを汎用的に使える関数にしました。 コピーしてそのまま使えるサンプルプログラムを公開します。

Excel VBAで最終列を取得するサンプルを紹介します

お次は値が入力されている最終列、最大列といいますか、それを取得する関数を公開します。前回紹介した最終行関数は呼び出し例もなく不親切だったので、呼び出し方法もあわせて紹介いたします。

Excel VBAで最終行を取得するサンプルを紹介します

Excelで事務処理系の自動化ツールを作っていますが、データが入力されている最終行とか最終列を取得したい時ってけっこうあります。 毎回コード書くのも面倒なので、汎用的に使えるプロシージャを作って使いまわしています。やりたい事はほぼカバーできてい…

詰める

某サイトで「ExcelのWorksheetでコードが空の行を詰めたいんだけどどうしたらいいの」という質問を見つけました。 かわいそうに誰も回答してくれなくて、唯一のコメントは「VBA勉強すれば?」という冷たい内容だったのですが、ひまだしおもしろそうなので、…

自動作表、検索型 3行サンプル

先日、こんな仕事を頼まれた。 商品名と数量のベタな一覧から、複数シートからなる固定フォーマットに商品名が並んだ「発注書」の数量欄に転記する、と言うもの。 ↓こんなイメージ ベタな一覧の例 この「数量」を商品名で検索して、発注書の「数量」欄に転記…