VisualBasic for Applicationsの略。 マイクロソフト社製の各Office製品に附属している、それぞれのアプリケーション（Excel、Accessなど）の操作に特化したVisualBasicの亜種。
FileSystemObject(以下FSOと表記します)において、 フォルダ内のサブフォルダ一覧を取得する方法を解説します。この処理はDir関数が苦手としているため、FSOに頼らざるを得ません。 そしてその先、「子フォルダ ⇒ 孫フォルダ…」と全階層を取得するには、 「再帰関数」と呼ばれる関数を作る必要があります。 なかなか難しいコードになってしまうのですが、 これさえマスターすればFSOを習得したといっていい処理です。 こいつがFileSystemObjectのラスボスですので、心してかかってください。 フォルダ内のすべてのサブフォルダを取得する ソースコード 実行結果 解説 フォルダ内の…
何の話？ Excelのユーザー定義関数を作成した 簡単な使い方の例 1番目の要素を抜き出す 2番目の要素を抜き出す 注意点 終わりに ワークシート上でテキストを分割したい。 ワークシート関数でやれないことはないけど何か直観的じゃない。 そう思ったのでちょい使い用のユーザー定義関数を作ったので備忘録がてら書き残しておきます。 何の話？ aaaa,bbbbbb,cccc ↑こういう文字列に対して「カンマで区切った2番目の要素を抜き出してくれ！」を実現したかった。 Excelつながりで言うとVBAのSplit関数的なことをワークシート上で直観的に(個人的感想です)やりたい。 Excelのユーザー定義…
FileSystemObjectでフォルダ内のファイル一覧を取得する方法について解説します。 この処理はFileSystemObject(以下FSO)を扱う上での基本となるコードで、 とてもきれいなForEach文で書くことができます。FSOを体系的に勉強したいという方は、まずはこの処理から学習していきましょう。 フォルダ内のファイル一覧を取得する ソースコード 実行結果 解説 フォルダ内の各ファイルを操作する フォルダ内のExcelファイルを処理する フォルダ内のファイル一覧を取得する フォルダ内のすべてのファイルを取得して、 その情報をシートに書き出すコードがこちらです。 ソースコード P…
Excel VBAでのシートのPDF保存はそう頻繁にやるものではないのでいざやろうとするとどうするんだったかなとなってしまいがちです。 そのようなこともあり、ここにPDF保存する方法の主なものを備忘録として書き残しておきたいと思います。 目次 １．特定の1枚のシートを１つのファイルに保存する方法 ２．すべてのシートを１つのファイルに保存する方法 ３．すべてのシートを別々のファイルに保存する方法 ４．指定した複数のシートを別々のファイルに保存する方法 １．特定の1枚のシートを１つのファイルに保存する方法 まずはじめに、特定の１枚のシートをPDF出力する方法です。 以下のコードにて、同じフォルダ内…
Dir関数を使って、サブフォルダの一覧を取得する方法を解説します。 はじめに Dir関数でサブフォルダの一覧を取得する いけそうでダメなコード 正しいコード 「.」「..」が出てきてしまう解説と対策 ファイル名も出てきてしまう解説と対策 FileSystemObjectの場合 はじめに この方法は非推奨な方法です。というのも、FileSystemObjectを使った方が圧倒的に簡単だからです。 このため「すべてのサブフォルダを処理」するコードには、 FileSystemObject(以下FSO)を使っているサンプルが多いです。この処理をきっかけにFSOを知った人も多いかもしれません。 この記事…
空のフォルダを一括で削除する方法を解説します。 フォルダ内の空のフォルダを一括削除する ソースコード 解説 関数化 下層フォルダ内のすべての空フォルダを削除する ソースコード 解説 細かい仕様 フォルダ内の空のフォルダを一括削除する ソースコード Sub フォルダ内の空フォルダを削除する() Dim FSO As New FileSystemObject Dim 親フォルダ As Folder Set 親フォルダ = FSO.GetFolder("C:\Users\○○\Desktop\テスト") Dim 子フォルダ As Folder For Each 子フォルダ In 親フォルダ.SubF…
ダウンロード 使い方 取引先マスタの新規登録/変更/削除方法 商品マスタの新規登録/変更/削除方法及び見積依頼書作成方法 購買発注の新規登録/変更/削除方法及び注文書作成方法 購買発注の着荷日及び完了日入力方法 購買発注情報の未完分データ/完成分データ/全データ表示方法 ダウンロード こちらからダウンロードできます。ご自由にお使い下さい。 drive.google.com 使い方 ツールの使い方について説明します。 取引先マスタの新規登録/変更/削除方法 （1）新規登録 ①<取引先>ボタンをクリックします。 ②取引先マスタ画面が開くので、以下の情報を入力し、<保存>ボタンをクリックします。・取…
2月11日(土) 20:00～ ↓こちらのイベントに登壇いたします！日本語変数の第一人者！和風スパゲティさんの登壇だぁ。2/11(土) 20時~これは見逃せない！#VBAの悩みはVBAerに聞け https://t.co/8rQBiL4luT pic.twitter.com/VVLyOwZIje— しゃあ@やっぱりVBAが好き (@VBA07529852) 2023年2月2日 ◇ Zoom開催 IDパスワードは上記画像より 途中参加・途中退場OK 無言OK 質問もOK チャットのみもOK カメラオフOK(というか全員OFF) 無料参加OK(投げ銭は任意) と、気軽に参加できる会ですので、 皆様…
フォルダが空かどうか判定する方法を解説します。 FileSystemObject(以下FSO)を使用します。 ソースコード 解説 おまけ：フォルダを削除する場合は簡単な記述が可能 ソースコード Sub フォルダが空なら削除する() Dim FSO As New FileSystemObject ' 判定したいフォルダをFolderオブジェクトに入れる Dim 指定フォルダ As Folder Set 指定フォルダ = FSO.GetFolder("C:\Users\wfsp\Desktop\テスト") ' フォルダか空か判定 If 指定フォルダ.Files.Count = 0 And _ 指定…
基本操作 Sub testMMDS() Dim mmds As MailMergeDataSource Set mmds = ActiveDocument.MailMerge.DataSource Debug.Print mmds.ConnectString Debug.Print mmds.QueryString Debug.Print mmds.TableName Debug.Print mmds.Name Dim i As Long For i = 1 To mmds.RecordCount mmds.ActiveRecord = i Debug.Print mmds.ActiveRec…
こんにちは、長期で米国株ETF、短期で日本株投資をしている城寝子(しろ ねこ)(@nyaw_loading_22)です(=^・・^=) このシリーズでは日本株のデイトレやスイングで利確/損切りした銘柄を紹介していく回です♪ 米国株ETF関連の記事も書いてます↓ nyaw-loading.hatenablog.com
ここの所、連日CATIA V5です。 さすがに、VBAエディタにも慣れてきましたが・・・やっぱり辛い。では本題。DrawのViewのサイズを取得し絶対座標で四角を描きます。 もちろん四角を描くのが目的ではなく、最終的にはビューの中心を 取得したいです。 'vba Option Explicit Sub CATMain() Dim dDoc As DrawingDocument Set dDoc = CATIA.ActiveDocument Dim sheet As DrawingSheet Set sheet = dDoc.sheets.ActiveSheet Dim view As Draw…
システム会社に勤めて15年間、ずっとシステムの操作や運用のサポートをしてきました。 しかし、突然。 開発部署へ異動となり、四苦八苦の毎日。 プログラム・・・なんか分かるわけない。 設計・・・なんか分かるわけない。 知識と経験値が違いすぎると、こんなにも意思の疎通ができないものかと感じる。 いろいろと親切に教えてくれているつもりかもしれないけれど、 まず、言葉が難しい 知っているのが当たり前という前提での説明 「聞く前に調べる癖をつけて下さい」と言われる。 基本的に脳みその構造が違う 「そもそも、その前提が知らない」と思うことがよくありました。 また、自分なりに調べた上で分からないので聞いてます…
ちょっと先を考えてのテストです。VBAでベクトルを扱いたいのですが、それっぽいクラスが 無いんですよね・・。 他の言語の場合、手っ取り早くやりたい場合は複素数を使って 計算させているようなのですが、生憎VBAには無いです。クラスを作るべきとは重々感じているのですが、ちょっとした 計算だけなので、こんな感じの値を2つ持った配列を、 二次元ベクトルとして代用します。（危険な事は知ってます・・・） array(Xの値,Yの値) で、それなりの関数を作りました。全て非破壊です。 'vba ベクトル2Dテスト Option Explicit Sub CATMain() 'ベクトル扱いして配列か確認 du…
皆さんこんにちは、30代サラリーマン投資家の「ぼっけいますお」です。 2022年は資格を取得することを目標にしました。
Wordのマクロの記録を使って図を保存する操作からコードを調べようとしたら、マクロの記録中に右クリックできなくて詰んだので、VBA以外の方法をメモ。 １．図を右クリックして「図として保存」。これを繰り返す。 ファイル数が少ない場合はこれでOK。ちからわざ。 ２．文書をHTML形式で保存。 挿入画像がフォルダにまとめて保存される。これ楽。 ただし保存後にWordがWebレイアウトになる。 画面右下のレイアウト変更設定から戻せる。印刷レイアウトにする。 ３．拡張子をzipにして（略）imageフォルダからコピー。 Excelファイルも同手順で可能。古いバージョンのファイルは構造が違う？ので出来ない…
Excel 2019で西暦表示の日付にスラッシュが表示されない事象があるそうす。 マイクロソフトのコミュニティに情報がありました。 質問の抜粋です。 Excel2019で日付を入力した後、西暦表示のため、数値の「短い日付形式」をクリックすると、表示が「2023 2 5」のようにスラッシュがない状態で表示されています。 以前はちゃんと「2023/2/5」のように表示されていた記憶があります。 それがエクセルだけの事かと思っていたら、アプリと機能やフォルダ内のファイルの日付も、スラッシュが表示されていないことに気づきました。 もう1台あるwindows10のパソコンの方は、スラッシュがちゃんと表示…
2022年もDX（デジタル・トランスフォーメーション）がアチコチで話題になっていましたね。 こんにちは！ 松田軽太です。 DXの大敵はなんといっても紙を主体としてアナログ業務といえるでしょう。 せっかくテレワーク環境が整っているにも関わらず、FAXや郵送される請求書は発注書を処理するためにわざわざ電車に乗って出勤を余儀なくされる経理課などの人たちはうんざりしたことと思います。 DXの敵は大昔に作られた基幹システム しかしDXの敵はアナログ業務だけではなく、コンピューターシステムにも存在します。 それは大昔に作られて、何十年も稼働し続けている基幹システムです。 コンピューターシステムであるなら、…
最近話題のChatGptを使ってみました。 そもそもChatGptが何かをChatGptに聞いてみました。 質問：chatgptってなに 回答： ChatGPTはOpenAIが開発した自然言語生成モデルです。ChatGPTはTransformerというアルゴリズムを採用し、人工知能によるテキスト生成を行います。このモデルは大量のテキストデータを学習し、その学習データを元に文章を生成することができます。 ChatGPTは、APIを通じてアプリケーションやサービスと統合することができます。これにより、顧客サポートチャットボットやFAQの自動生成など、多様な用途で活用することができます。また、Cha…
こちらの続きです。 全ての寸法に番号バルーンを付ける1 - C#ATIA 取りあえず試すことが出来る状態となりましたが、まだまだ・・・。 個人的な用途として、こんな感じの参照寸法にはバルーンを作りたく 無いです。えぇ作りたくないんです。寸法を参照寸法に変更したりするマクロがブログの中にあったはず なのですが見つからない・・・こんな感じの状態を作ってます。 寸法テキスト-関連テキストのメイン値の前後に丸カッコを 付けて表現しています。これが付いている状態のものは参照寸法として判断し、 バルーンを作らないようにします。 今後の除外するものが増える可能性もある為、除外する為の フィルターを用意し、簡…
販売管理や工程管理、スケジュール管理等、近年は本当に便利なツールがすぐに手に入ります。おまけに無料である程度まで使えるツールもたくさんあるので、システム会社からすると涙が出ます…… ハイスペックな機器も多く出回り、DXという流行ワードのもと、便利なクラウドツールが多く出回る中、長らく残り続けているアナログ機器があります。 FAXです。 受発注システムを導入して、FAXをなくせばいいのでは？未だにFAXが必要なの？とお思いになる方はいると思います。または、クラウドFAXツールを使えば良いのでは？お考えになる方もいると思います。 しかし、前者は導入したものの取引先の何割かは対応してくれない… 後者…
papasensei365.com
qiita.com
earningmoney.hatenablog.com
www.excelspeedup.com
www.officepro.jp
risa.hatenablog.com
forest.watch.impress.co.jp
atmarkit.itmedia.co.jp
nattou-curry-2.hatenadiary.org
