Excelで作った表をHTMLに変換するプログラムを作ってみました。
HPに表を埋め込んだりしたいときにご利用ください。
①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照
②アドインファイルをダウンロード
③「Excelアドイン」ボタンを押します
④「参照」ボタンから起動する場所に、ダウンロードしたファイルをコピーします
⑤「ファイルの参照」画面で、コピーしたファイルを選択した状態で「OK」を押します
⑥有効なアドインに追加されるので、そのまま「OK」を押します
⑦「ファイル」タブから「オプション」を選択します
⑧「クイック アクセス ツールバー」にてコマンドの選択を「マクロ」として「TableToHTML」をダブルクリックします
Excelでシート数の多い資料を作成したとき、目次シートを用意して各シートへのハイパーリンクを作成することがあると思います。
シート数が多いと１つずつハイパーリンクを作成するのも大変なため、一括で全シートへのハイパーリンクを作成できるようにしてみました。
①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照
②「Alt + F11」でVBEを開きます。
③「挿入」から「標準モジュール」を選択します。
④以下のコードをコピー＆ペーストします。
Sub toc()
For i = 1 To Sheets.Count
Cells(Selection(1).Row + i - 1, Selection(1).Column).Value = "=HYPERLINK(""#'" & Worksheets(i).Name & "'!A1"",""" & Worksheets(i).Name & """)"
Next i
End Sub
⑤ファイルの種類で「Excelアドイン(*.xlam)」を選択して保存します。
⑥「Excelアドイン」ボタンから、作成したアドイン(Toc)を有効にします。
⑦「ファイル」を押します。
⑧「オプション」を押します。
⑨「クイックアクセスツールバー」に今回作成した「Table」を追加します。
⑩「クイックアクセスツールバー」のボタンから、テーブルを自動作成できるようになりました。
通常、シフト表は横軸に日付、縦軸にスタッフ名を記載したマトリクスにすることが多いです。
１ヵ月の期間などでシフトを把握するのにマトリクスは有効ですが、今日出勤のスタッフを確認したい場合はマトリクスは不向きです。
今回は、Excel関数のみで今日出勤のスタッフを抽出できるようにしてみました。
①TODAY関数で本日日付を取得
②以下の関数で、今日のシフト毎のスタッフを表示
IFERROR(TEXTJOIN(“、”,TRUE,FILTER($B$4:$B$15,INDIRECT(ADDRESS(4, MATCH($C$17,$3:$3)) & “:” & ADDRESS(15, MATCH($C$17,$3:$3)))=$B18)), “なし”)
以下、各関数の解説
１． MATCH(検査値, 検査範囲)で検査値を5/3、検査範囲を3行目とし、5/3のある列(5)を取得
２．ADDRESS(行番号, 列番号) で行番号には表の範囲である「4」と「15」を指定し、セルの座標「$E$4」「$E$15」をそれぞれ取得
３．INDIRECT(参照文字列) で、参照文字列にはADDRESSで取得した「$E$4」「$E$15」と「:」を連結した文字列「$E$4:$E$15」を指定
４．FILTERで「$E$4:$E$15」の中で「$B18(早番)」に該当する行と一致する「$B$4:$B$15」内の値「久保、前田、三宅」を取得
５．TEXTJOINで「久保」「前田」「三宅」を「、」で区切り連結
６．IFERRORで該当データがない場合(早番がいない場合)は「なし」と表示
