マガジンのカバー画像

Excel・VBA

20
本
運営しているクリエイター
出戻りガツオ🐟
出戻りガツオ🐟

出戻りガツオ🐟

Excel 事務にはデータに一列ごとに空白列を入れたいときがある

Excel 事務にはデータに一列ごとに空白列を入れたいときがある

経理や労務の人でデータのチェックやるときってひたすら空白列いれてVlookup関数埋めていくってこと度々ありませんか？
私はしょっちゅうです。ショートカットキーを使って「Ctrl + +」連打するのもうざい。うざい。とにかくうざいのでマクロを組みました。

選択した範囲で一列ごとに空白列を入れるちなみに列（Column）って縦長に伸びる範囲（↓）ね。そんなん当たり前やろって思うかもしれないけど行（

もっとみる
出戻りガツオ🐟

出戻りガツオ🐟

Excelで差し込み印刷

Excelで差し込み印刷

Excelで差し込み印刷するのって意外と簡単Wordの専売特許的な差し込み印刷ですが（outlookでも差し込みでメールできるらしい※妻曰く）ExcelでもVBA使えば気軽にできますよっていう話です。ものすごく簡単に書いちゃっているのですがクレームは受け付けません。

Sub MailMergeScript() Dim Ans As String: Ans = MsgBox("処理を行いますか

もっとみる
出戻りガツオ🐟

出戻りガツオ🐟

指定したフォルダのファイルパスを書き出す

指定したフォルダのファイルパスを書き出す

ダイアログボックスで選択したフォルダのファイルパスを一気に書き出すSub GetFilesofDirectory() Const filesDirectory = "\*.*" Dim strDirectory As String, strPathName As String Dim myArray As Variant, i As Integer, PasteRange As Ran

もっとみる
出戻りガツオ🐟

出戻りガツオ🐟

Excel 選択した.xlsxファイルを一つのファイルにまとめる

Excel 選択した.xlsxファイルを一つのファイルにまとめる

選択した「.xlsx」ファイルを一つのファイルにマージするコードです。Sub xlsxMergeScript() Dim OpenFiles As Variant '複数選択可能のダイアログボックスを開く OpenFiles = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx", MultiSelect:=True) I

もっとみる