事務作業効率化

Excel

簡単、軽量なWBS

マクロを使わず計算式を活用して、簡単で軽量なWBSを作成しましたので、UPしておきます。 WBS
Excel

CSVファイル読み込み(Excel)

CSVファイルを読み込むエクセルマクロのサンプルです。 マクロ Option Explicit Option Compare Text 'Result Dim itemListStr() As String Dim writeColPosIdxList() As Long Dim itemListStrIdx As Long 'Input Dim readFileItemListStr() As ...
Excel

フォルダ選択とデータ抽出

フォルダ選択とデータ抽出のサンプルです。 Excelフォーマット&マクロ Excelフォーマット folderSelect.xlsx マクロ Sub dataSelect() Application.StatusBar = "" Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Star...
Excel

Excelで指定した行までセル選択をする

Excelで計算式をコピーするのに、「Ctrl」+「d」をよく使っています。 例えばA1セルの計算式をA10セルまでコピーしたい場合、まず、A1セルを選択し、「Shift」を押しながら「↓」キーでA10まで選択した後、A1からA10まで選択された状態で、「Ctrl」+「d」を押して計算式をコピーしています。 10行ぐらいなら良いのですが、これが1000行となると行選択がつらい。。。 おすすめ こん...
Excel

Excelブックを開く(VBA)

ブックを開くマクロのサンプルです。 Sub OpenExcelBookSample() Dim buf As String, wb As Workbook Const Target As String = "C:\BookOpenTest.xlsx" ''ファイルの存在チェック buf = Dir(Target) If buf = "" Then MsgBox Target & vbCrLf & ...
Word

Word見出し一覧作成(VBA)

Wordの見出し一覧を作成するVBAマクロを備忘録として残しておきます。 テスト用Wordファイル screen-sample1.docx screen-sample2.docx screen-sample3.docx api-sample1.docx api-sample2.docx logic-sample1.docx logic-sample2.docx 見出し一覧作成Excelマクロ(VB...
Excel

Excelで重複セルをカウントする

Excelで重複セルをカウントする方法を備忘録として残しておきます。 以下のようにCOUNTIF関数を使用して重複カウントします。 B2のセルに =COUNTIF($A$2:A2,A2) を挿入し、下のセルにコピーします。
Excel

Excel 名前の定義を消す

この名前を使用しますか? シートコピーした時に、いちいち聞かれるうざいダイアログ、「この名前を使用しますか?」を消す方法 マクロの作成方法 「表示」メニュー、「マクロ」→「マクロの表示」 にて任意の名前のマクロを追加する。(ショートカットキーを使う場合は「Alt + F11」でVB Editor を開き「Alt + I + M」で Module 追加すればOK) 以下のコードをコピー&ペースト P...