![見出し画像](https://assets.st-note.com/production/uploads/images/96112187/rectangle_large_type_2_d2914e1406884e0aca3ce4b0ea1d5dd7.png?width=1200)
Excelのアクションを使って目次作成【改良版】
読了時間:5~6分
前回はPADのExcelのアクションを使って自動で目次を作成する方法を紹介しました。ただ、ここどうにかならないかなと思った箇所がいくつかあったので改良を加えたものを紹介します。
前回の記事を先に一読してもらうと理解が進みます。
(前回記事から抜粋)
改良箇所1
『※ファイルパスの取得方法
該当のファイルでshift+右クリックまたはshift+F10でメニューが表示されますので、そこでパスのコピーを選択すればパスを取得することができます。
入力ダイアログに入力する際、ファイルパスの両端に「"」(ダブルクォーテーション)が付いているので、それを削除してからOKボタンを押してください。』
→自動でダブルクォーテーションが削除される
改良箇所2
『フローはこれで終了なのであとはフィルハンドルでB6セルまでハイパーリンクを設定し、A列を非表示にすれば下図のように完成します。』
→自動でハイパーリンクの設定とA列を非表示にする
サンプル Excel内に目次を自動作成【改良版】
改良箇所1
まずは全体のフローです。
![](https://assets.st-note.com/img/1674261778848-TMv3sGMV2E.png?width=1200)
次に実行結果です。
入力ダイアログにファイルパスを入力した結果(両端にダブルクォーテーションあり)
![](https://assets.st-note.com/img/1674262010823-PDeRK28GWW.png)
ファイルパスからダブルクォーテーションを削除した結果
![](https://assets.st-note.com/img/1674262070461-3AfLto8bV4.png)
フローの詳細です。
入力ダイアログに入れたファイルパスから「テキストを置換する」アクションで両端にあるダブルクォーテーションを削除します。
このとき別途、変数の設定をする必要があるので先にそちらを紹介します。
入出力変数の設定
下図の赤線の箇所をダブルクリックします。
![](https://assets.st-note.com/img/1674262387250-jQJStVPAMj.png?width=1200)
すると編集画面が出てきますので下図のように設定します。
![](https://assets.st-note.com/img/1674262476642-zxhkjWFozD.png?width=1200)
ここで何を設定したのかというと「空白」を設定しています。
ここではダブルクォーテーションを削除=ダブルクォーテーションを空白に置換するということなので、この空白を入出力変数で作っています。
ここが機能することでExcelが開くようになります。
変更箇所2
まずは全体のフローです。
![](https://assets.st-note.com/img/1674262862545-sDfrzankCw.png?width=1200)
次に実行結果です。
![](https://assets.st-note.com/img/1674262933721-lADsSX2l3U.png)
前回はこの結果にするには手動でB2からB6までフィルハンドルでハイパーリンクを設定しA列を非表示にしていましたが、今回はここも自動化しました。
フローの詳細です。
B2に入力されたハイパーリンクをコピーする
目次の数だけハイパーリンクを貼りつける
コピーモードを解除する
1.B2に入力されたハイパーリンクをコピーする
ここではB2セルに入力されているハイパーリンクをコピーします。
B2セルなので先頭列は2、先頭行は2と入力します。
![](https://assets.st-note.com/img/1674263622168-8HAJSIJTCW.png?width=1200)
2.目次の数だけハイパーリンクを貼りつける
ここがこのフローの肝になるところです。
まず目次が入力されたA列の最下行の次の行を「Excel ワークシートから列における最初の空の行を取得する」アクションで取得します。A列なので列には1と入力します。
![](https://assets.st-note.com/img/1674263838540-uOeFvfotC1.png?width=1200)
これは何をしているのかというと下図のように最後の行に入力されている値や文字列のひとつ下の空白を取得しています。(下図では7行目)
![](https://assets.st-note.com/img/1674264433833-kmJcJJZojA.png)
次に「Loop」アクションを使ってハイパーリンクの貼りつけを繰り返します。下図がLoopアクション編集画面です。
(Looアクションの記事はこちらを参考ください。)
![](https://assets.st-note.com/img/1674264108239-dOVZ5xUpc7.png?width=1200)
開始値には2を入力、これは2行名からを意味します。
終了には「Excel ワークシートから列における最初の空の行を取得する」アクションで取得した%FirstFreeRowOnColumn%変数を入力し図のように「-1」を入力します。%FirstFreeRowOnColumn%変数で7を取得しています。ハイパーリンクの貼りつけをしたい行は6行目までなので「%FirstFreeRowOnColumn - 1%」で6にします。
1行ずつハイパーリンクを貼りつけるので増分は1です。
そして「Excel ワークシートにセルを貼り付ける」アクションでLoopアクションで設定した範囲にハイパーリンクの貼りつけを繰り返していきます。
![](https://assets.st-note.com/img/1674265366743-E3OhALZ3qD.png?width=1200)
貼りつけはB列なので列には2、行にはLoopアクションで取得した%LoopIndex%変数を入力。これによりB3、B4・・・と1行ずつハイパーリンクが設定されていきます。
次に「Excel ワークシートの列/行のサイズを変更する」アクションを使ってA列を非表示にします。下図が編集画面です。
![](https://assets.st-note.com/img/1674266725148-stxbhxuL31.png?width=1200)
サイズ変更のターゲットは列にして、列は1、幅は0にすることで非表示にすることができます。
最後に「キーの送信」アクションでコピーモードを解除します。下図の編集画面でEscapeを選択します。
![](https://assets.st-note.com/img/1674266882211-Ig4G0h1IYU.png?width=1200)
これでコピーモードを解除できます。(※Excelの画面を表示していない場合は機能しません)
以上でExcelのアクションを使って目次作成【改良版】の改良箇所の紹介を終わります。
※PADのヴァージョンによっては
・Excel ワークシートから列における最初の空の行を取得する
・Excel ワークシートの列/行のサイズを変更する
がない場合があるかもしれません。
「Excel ワークシートから列における最初の空の行を取得する」アクションがない場合は「Excel ワークシートから最初の空の列/行を取得する」で代用が可能です。ただし、その際は「Excelワークシートに書き込む」で目次と書き込むアクションを一番最後に移動させてください。
Loopアクションの終了欄には「%FirstFreeRow - 1%」と入力すれば代用が効きます。
「Excel ワークシートの列/行のサイズを変更する」アクションがない場合はお手数ですが手動で非表示にしてください。
今回もご覧くださいましてありがとうございます。
この記事が気に入ったらサポートをしてみませんか?