はじめに
どうも、y-tetsuです。暑い日が続きますが、皆様いかがお過ごしでしょうか。
筆者の方はというと、夏バテ気味で日々のタスクに追われておりますが、そんな中にも何かしら楽しみを見出そうと、精進しております。
ところで、普段のお仕事でのタスク管理、皆様はどのようにされておりますでしょうか？
市販のタスク管理ツールや、社内で代々受け継がれているツール、付箋に手書き、自らのメモリ(記憶)、など色々あるかと思います。皆さんそれぞれに置かれている状況や事情に応じて、なるべく最適なものを選ばれているのではないかと思います。
そんな筆者の環境はというと、割とエクセル文化が広く根付いていたりします。もちろんプロジェクトによってはRedmineだったりJiraだったりといった、プロジェクト管理ツールを使っている所もあります。ただ、あまり自分の周りには浸透していない現状に流されつつ…。
これらを少なからず使ってきた中で、筆者が感じたこととしては、ちょっとした自分のタスクを管理するだけだったら、もっと簡単にできたりしないかな、という思いでした。
例えば、代々受け継がれてきたエクセルツール。見た目が自分の好みと違う、入力項目がやたら多い、なんかミスるとマクロが動かなくなる、メンテしようにも中身がカオス、…みたいな悩みは尽きることがありません。
だったら、「自分好みのものを作ってみようかな」と思い立ってしまいました。
プロジェクト管理ツールほど大々的なもの(サーバーを立てたり、お金を使うようなもの)ではないけれど、単純に付箋アプリやメモ帳にタスクを残しておくよりはマシ、みたいな自分にとってちょうどいい感じの、簡単に使えるエクセルツールを目指してみることにしました。(結局これも、まわりまわってだれかの煩わしさにならないことを願いますが)
ついでにこのツールを作る過程も紹介することで、エクセルはこれからですっ！という方にとっての、何かの足しになれればいいなと思いました。
バキバキのエクセル上級者の方や、あるいはエクセル神話ちょっとニガテ…な方におかれましては、どうかお手柔らかにお見守り願います。
完成品
早速なんですが、最初に今回作ったタスク管理ツールの完成品をお見せします。
(見た目)
(使っている様子)
アピールポイントは以下です。
- 入力項目は必要最小限に
- シートの作りもなるべく簡単に
- ガントチャートが付いてます
- タスクのソート機能も付いてます
「どんなエクセルの機能をどのように使ったのか」や「作っていく過程」については、この後じっくりと説明していきます。
ですので、中身がブラックボックスでメンテできない！みたいな心配は、ほとんどないと思います。さらに、記事の説明をご理解いただけると、より自分好みのものに作り変えられるのではと思います。
ダウンロードは以下からできます。
それでは、話を進めていきいたいと思います。
七つ道具
まずは、今回のタスク管理ツールを作るために活用した、七つの道具(エクセルの機能)をご紹介します。これらの道具で何ができるのか、どんな時に使うと良いのか、をさらっとここで掴んでいただければと思います。
いずれも使いこなせれば、便利なものばかりだと思いますので、是非知っておいてください。使える道具が増えると、作る楽しみも増すのかなと思います。
①セルの書式設定
セルの書式設定を使うと、大きく以下を変更できます。
- フォントやフォントサイズ、文字の色
- セルの中の配置
- 塗りつぶしの色
- 罫線
- 表示形式
今回の活用方法としては
タイトルを目立つように設定したり
表を罫線で描いたり
セルの配置を中央寄せにしたり
表示形式で進捗や日付の見た目を整えたり
といった事に使いました。
セルの書式設定の基本的な説明は、以下のサイトが参考になりました。
②条件付き書式
条件付き書式を使うとセルの値に応じて、何かしら書式を変更することができます。
今回の活用方法としては
日付に応じてガントチャートの線(塗りつぶし)を引いたり
日付に応じて罫線を引いたり
進捗率をデータバーで表現したり
進捗率に応じて塗りつぶしの色を変えたり
といった事に使いました。
条件付き書式の基本的な説明は、以下のサイトが参考になりました。
③データの入力規則
データの入力規則を使うと、セルに入力できる値を制限できます。
今回の活用方法としては
プルダウンリストからプロジェクト名を選べるようにしたり
優先度を選べるようにしたり
といった事に使いました。
データの入力規則の基本的な説明は、以下のサイトが参考になりました。
④フィルター
フィルターを使うと、表の特定の条件のみ表示させることができるようになります。
特定の担当者のタスクのみを表示させたり
優先度の高いタスクのみを表示させたり
といった事に使いました。
フィルターの基本的な説明は、以下のサイトが参考になりました。
⑤数式・関数
セルの中に数式を入れることで様々な計算が行えます。また、数式の中であらかじめ用意された便利な関数を利用する事ができます。
今回の活用方法としては
TODAY関数で今日の日付をとってきたり
ガントチャートの日付を数式で計算して動的に切り替わるようにしたり
NETWORKDAYS関数で土日祝を除外した日数を計算したり
といった事に使いました。
数式・関数の基本的な説明は、以下のサイトが参考になりました。
⑥マクロ
マクロは、あらかじめVBAで書いておいたロジックにしたがって、一連の操作を一括で自動実行する際に使います。
今回の活用方法としては
無秩序に追加されたタスクをボタン一つでソートできるようにしたり
行が足りなくなった際にこれもボタン一つで追加できるようにしたり
といった事に使いました。
マクロの基本的な説明は、以下のサイトが参考になりました。
⑦ウィンドウ枠の固定・グループ化
ウィンドウ枠の固定とグループ化は別々の機能です。ですが、両方とも表示に関係するものということで、強引ですがひとくくりにさせていただきました。
今回の活用方法としては
ウィンドウ枠の固定で、スクロールバーを操作した際に、表の見出しや列は固定とし、ガントチャートは先々の予定をスクロールして確認できるようにしたり
グループ化で、ガントチャートをより広く見えるように、一部の列を非表示にして表をコンパクトにしたり
といった事に使いました。
ウィンドウ枠の固定・グループ化の基本的な説明は、以下のサイトが参考になりました。
以上で、エクセルのタスク管理ツールを作るための七つ道具の紹介は終わりです。
作成過程
ここからは、何もないゼロから始めて、冒頭の完成品にいたるまでの過程を、順を追って説明していきたいと思います。
結構長いのですが、お付き合いいただけると大変うれしく思います。
1. タスク管理の項目を決める
まずは、どのようなタスクの管理方法がちょうどいいか探っていきます。
究極的にシンプルな形は、単純なタスクの羅列になります。
タスクがあれば追加し、終われば消す運用になると思います。
これなら、付箋アプリでも十分なのでもう少し何か足さないと、やる意味がなさそうです。
では、ここに何か足すと良いものとして、タスクの状態と期限、それから優先度はどうでしょう。
処理しないといけないタスクが増えすぎると、期限や優先順位に応じてどうこなすかをやりくりする必要がでてきますよね。
状態も入れたことで、終わったタスクとそうでないタスクも区別できるようになりました。過去に消化したタスクの履歴も残せますね。
続いて、開始と終了の日付、担当者名を追加するのはいかがでしょうか。
タスクのやりくりに、開始と終了の日付を活用できると予定が立てやすくなりそうです。また、担当を入れたので自分以外の人にお願いした仕事も管理できるようになりました。
…と、こんな感じで実用性を吟味しつつ、最終的に採用した項目は、以下となりました。
| 項目名 | 用途 |
|---|---|
| No. | タスクの識別。「何番のタスク」と呼べば周りと共有しやすい。 |
| プロジェクト | タスクが関係するプロジェクト名。大項目の位置づけ。 |
| カテゴリ | タスクが属する分類。中項目の位置づけ。 |
| タスク | こなすべきタスクの内容。小項目の位置づけ。 |
| 担当 | タスクを実施すべき人の名前。個人管理用とはいえ誰かにタスクをお願いすることはある。 |
| 優先度 | タスクの優先度。タスクには絶対やらないといけないものや、後でもいいけどやっておいた方がいいものがある。 |
| 進捗 | タスクの進み具合。割合で表記する。タスクの状態も合わせて管理。 |
| 開始 | タスクを開始する日付。着手日。予定兼実績。 |
| 終了 | タスクを終了する日付。納期。予定兼実績。 |
| 日数 | タスク消化に必要な日数。土日祝は除く。 |
| 備考 | 何かあったときにメモを残すための欄。 |
タスクの分類だったり、日付の部分はもう少し充実させることもできそうですが、さっと使える事を優先し絞りました。
項目が少ないと入力は楽ですが、機能性が損なわれます。一方で、項目を増やすと機能性は増しますが、入力が面倒になります。両者はトレードオフの関係にあり、好みも分かれるところかなと思います。是非皆さんにとってのちょうどいいポイントを見つけてみて下さい。
以上で、タスク管理の土台は完成です。
2. タスク一覧を作る
ここでは、先ほどの項目を元に、タスクの一覧表を作っていきます。
前章の七つ道具を思い出しつつ読んでもらえればと思います。
フォントを統一
シートに書き込んでいく前に、全セルのフォントを一括で指定して統一しておきましょう。
筆者は普段使いで硬すぎないメイリオを使いました。
矢印のあたりを押して全選択し、フォントを指定します。
タイトルを書く
続いて、タイトルを書きます。少しフォントサイズを大きくして目立たせてみました。
表を描く
今度は罫線を使って表を書きます。
見出しの空行2行は、あとでガントチャートのカレンダーと位置を合わせるために入れています。
見出しは色を変えて見やすくしてみます。
書式を決める
こまごま、書式を調整します。以下の図のように設定しました。
設定用シートを作る
次の章でリスト入力の設定により、プルダウンから項目を選べるようにするため、ここではその前準備を行います。
新しいシートを作って、シート名を「設定」とします。そして、以下のような表を作ります。
| 列目 | 用途 |
|---|---|
| 見出し行 | タスク一覧表の見出し部分の行番号を記載します。1行目に記載が必要です。 |
| 開始行 | タスク一覧表の入力欄の開始行番号を記載します。1行目に記載が必要です。 |
| 開始列 | タスク一覧表の開始列の名前を記載します。1行目に記載が必要です。 |
| 終了列 | タスク一覧表の終了列の名前を記載します。1行目に記載が必要です。 |
| 並び替え優先項目 | タスクをソートする際の優先度を決めます。上にあるほど先に考慮されます。見出し名を指定します。 |
| プロジェクト | プロジェクト名をリストアップしておきます。 |
| カテゴリ | カテゴリ名をリストアップしておきます。 |
| 担当 | タスクを実施する人の名前。関係者をリストアップしておきます。 |
| 優先度 | タスクの優先度、特にこだわりがなければ、「高」「中」「低」の3段階としておきます。 |
| 祝日 | 祝日の登録用。日数算出の際に除外されます。 |
プルダウンリストからは最大で30個まで選べるよう、あらかじめ30行分の枠を用意しています。
実際の設定例は以下のようなイメージになります。
プロジェクトやカテゴリの列などで1行目を空けている部分は、空欄を選択できるようにするための措置です。
リスト入力を設定する
リスト入力を設定する項目は以下です。
- プロジェクト
- カテゴリ
- 担当
- 優先度
対応する設定欄を入力の対象にするのですが、ここで1つ工夫を入れたいと思います。
あらかじめ30個までの上限を設けましたが、この範囲内であれば、メンテ不要で設定したものが反映されるようにしたいと思います。
データの入力規則で、リスト入力の元の値に以下の数式を設定します。
=OFFSET(設定!$G$4,,,COUNTA(設定!$G$4:$G$33)+1)
COUNTA関数にて項目が空でないものの個数を取得して、それにさらに1を足しています。これは最初の空欄分を考慮するためです。
あとはOFFSET関数にて、最初の要素から先ほどの個数までの範囲をリスト入力の元の値にするという処理をしています。
日数の計算をする
日数の計算にはNETWORKDAYS関数を用いました。
=NETWORKDAYS(I7,J7,設定!$K$4:$K$33)
上記により、開始(I列)～終了(J列)の日数から土日と祝日を除外した営業日を計算しています。祝日は設定!$K$4:$K$33にて設定シートの値を読み込んで判断しています。
上図のように土日の2日間はカウントされておりません。
優先度と日数に条件付き書式を設定する
優先度は以下の書式設定を行いました。
| 値 | 書式 |
|---|---|
| 高 |  |
| 中 |
 ※書式変更なし |
| 低 |  |
日数は数式が入っていて、うっかり消さないようあえて見えるようにしておきます。ただ、色が標準のままだと、なんとなく不格好に見えるので、値が0のときに色を少し付けるようにしました。
進捗にデータバーを表示させる
条件付き書式のデータバーを使って進捗状況を把握しやすくします。
日付と進捗に応じて警告表示する
タスクの一覧も漫然と眺めていると、細かい部分は見落としやすいです。
そこで、タスクの進捗状況に応じた色分けを行う事で、ぱっと見で把握しやすくしておきます。
| タスクの状態 | 条件 | 書式 |
|---|---|---|
| 完了 | タスクの進捗が100% |  |
| 着手中 | タスク実施期間中で、進捗が入力されている |
 |
| 着手遅れ | タスク実施期間中で、進捗が未入力 |
 |
| 期限切れ | 終了期限が過ぎている |  |
上の方の条件に該当した書式が優先されるため、順番は以下とします。
色がピンクに近づくほど、注意してタスクの状況を確認すると良いです。
フィルター設定する
条件に応じてタスクの絞り込みをするため、フィルターを設定します。
以下のようにタスク表を選択し
フィルターを押してください。
これでフィルターの設定ができました。
ここまでで、タスクの一覧の作成は完了となります。
3. ガントチャートを作る
続いて、タスク一覧の右側にガントチャートを作ります。
ガントチャートがあれば、タスクの進行状況やタスクの重なり具合、期限までの猶予などがイメージしやすくなります。
ガントチャートの枠を作る
ガントチャートは90日分まで用意しておくこととします。そのための枠を以下のように作ります。
カレンダーを動的に表示する
カレンダーは90日の枠の範囲で、基準日を好きに変更すれば、いつの日付でも表示できるようにします。
カレンダーの上に、基準日と何日前から表示させるかの入力欄を作ります。
基本的に基準日にはTODAY関数を入れておき、何日前の欄を状況に応じて変更する運用を想定しています。一旦、本日より7日前から表示を開始する設定とします。
続いては、カレンダーの日付を先ほどの入力に応じて計算する数式を書きます。
(日)
1列目はN2-N3で"基準日"-"X日前から表示"で日付を計算します。
また月の表示形式は以下。
2列目以降は、単純に前列+1して1日ずつ足していきます。
(月)
月は開始列と、毎月1日のみ表示とします。
1列目はMONTH関数を使います。
2列目以降は、その月の1日の場合はMONTH関数とし、それ以外位は空文字("")としています。
(曜日)
曜日はTEXT関数とWEEKDAY関数を組み合わせて実現します。
まず、WEEKDAY関数により日付の情報から曜日を表す番号を求めます。
そして、TEXT関数により番号に応じた曜日の文字に変換して、最終結果としています。
引数のaaaは曜日を短縮形で表示するためのオプション指定です。
| 番号 | 曜日 | 短縮形 |
|---|---|---|
| 1 | 日曜日 | 日 |
| 2 | 月曜日 | 月 |
| 3 | 火曜日 | 火 |
| 4 | 水曜日 | 水 |
| 5 | 木曜日 | 木 |
| 6 | 金曜日 | 金 |
| 7 | 土曜日 | 土 |
月始めの列に罫線を引く
月始めに罫線を引いて見た目を整えます。
条件付き書式の設定は以下です。
土日の文字色を変える
土日の文字色も変えて見た目を整えます。
条件付き書式の設定は以下です。
休日の列の塗りつぶし色を暗めにする
休日も見た目で分かるように、列の塗りつぶしの色を変えるようにします。
条件付き書式の設定は以下です。
1つ目が土日用で、2つめが祝日用です。祝日用はCOUNTIF関数で日付が祝日に該当するかをチェックしています。
今日の列の塗りつぶし色を目立たせる
今日の日付がガントチャート上でどこにあるのかはとても大事なので、列の塗りつぶしで目立つ色を付けるようにします。
条件付き書式の設定は以下です。
開始から終了までの期間を塗りつぶす
ガントチャートの一番の見せ場は、やはり日程を表わす部分ですね。
開始から終了までの間を塗りつぶしの色を変えて表現するようにします。
条件付き書式の設定は以下です。
もうここまでくると、条件付き書式はさすがにおなかいっぱいですね…。(安心してください、もうでてきません)
ウィンドウ枠を固定して列をグループ化する
タスク一覧を表示しつつ、ガントチャートスクロールできるようにするため、ウィンドウ枠を固定します。
以下をセル選択して
ウィンドウ枠の固定を押します。
選択した位置を基準に、以下のピンク線の内側が可動し、それ以外は固定されます。
グループ化は、以下のようにグループ化したい列をまとめて選択して
グループ化を押します。
めでたくグループ化されました。
これにて、ガントチャートの作成も完了です。
最後に、マクロで少し使い勝手を良くしたいと思います。
4. マクロを活用する
今回使うマクロは全て、専用のボタンクリックで実行できるようにします。
マクロの実行は、ショートカットキーで実行する方法もありますが、今回は対応していません。興味のある方は以下を試してみて下さい。
タスクのソート機能を作る
新しいタスクを追加する際に、わざわざ狙った位置に手動で行を挿入して、追加するような手間は省きたいところです。
そこで、今回はタスクの項目毎にあらかじめ設定した優先度に応じて、マクロでソートするようにしたいと思います。
まずは以下に、タスクをソートするためのVBAコードを載せておきます。
Public Const SETTING_START_COL = 4 ' 設定シートの開始行番号
Public Const SETTING_HEADER_ROW = 2 ' 設定シートのタスク一覧の見出し行の列番号
Public Const SETTING_TASK_START_ROW = 3 ' 設定シートのタスク一覧の開始行の列番号
Public Const SETTING_TASK_START_COL = 4 ' 設定シートのタスク一覧の開始列の列番号
Public Const SETTING_TASK_END_COL = 5 ' 設定シートのタスク一覧の終了列の列番号
Public Const SETTING_TASK_PRIOR_COL = 6 ' 設定シートのタスク一覧の並び替え優先項目列の列番号
' タスク一覧をソートする
Sub タスクのソート()
Dim headerRow As Long
Dim startRow As Long
Dim endRow As Long
Dim startCol As String
Dim endCol As String
Dim initSelection As Range
Dim priorColNames() As String
Dim targetCol As String
Dim i As Long
' ソート実行前の準備
Application.ScreenUpdating = False ' スクリーンの更新を止める
Set initSelection = Selection ' 現在のセル選択位置を退避する
headerRow = Worksheets("設定").Cells(SETTING_START_COL, SETTING_HEADER_ROW).value ' 設定シートの見出し行番号を取得
startRow = Worksheets("設定").Cells(SETTING_START_COL, SETTING_TASK_START_ROW).value ' 設定シートの開始行番号を取得
startCol = Worksheets("設定").Cells(SETTING_START_COL, SETTING_TASK_START_COL).value ' 設定シートの開始列の取得を取得
endCol = Worksheets("設定").Cells(SETTING_START_COL, SETTING_TASK_END_COL).value ' 設定シートの終了列の取得を取得
Range(startCol & startRow).Select ' 開始セルの選択
endRow = Selection.End(xlDown).Row ' 最終行の取得
' データの並び替え優先度を設定する
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear ' ソートの設定を初期化
priorColNames = Split(GetPriorColNames(), ",")
For i = LBound(priorColNames) To UBound(priorColNames)
targetCol = FindColumn(headerRow, priorColNames(i))
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add _
Key:=Range(targetCol & startRow & ":" & targetCol & endRow), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
Next i
' データの並び替え
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(GetNextColumn(startCol) & startRow & ":" & endCol & endRow)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' No.の番号をオートフィルで設定しなおす
Range(startCol & startRow & ":" & startCol & startRow + 1).Select
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)), Type:=xlFillValues
' ソート実行後の後処理
initSelection.Select ' 初期のセル選択位置に戻す
Application.ScreenUpdating = True ' スクリーンの更新を再開する
End Sub
' ソートを優先する項目名の取得
Function GetPriorColNames() As String
Dim startRow As Long
Dim i As Integer
Dim value As String
i = SETTING_START_COL
Do While Worksheets("設定").Cells(i, SETTING_TASK_PRIOR_COL).value <> "" ' 設定シートの並び替え優先項目の開始行を取得
GetPriorColNames = GetPriorColNames & "," & Worksheets("設定").Cells(i, SETTING_TASK_PRIOR_COL).value
i = i + 1 ' 次の行に移動
Loop
' 先頭の","を消す
GetPriorColNames = Mid(GetPriorColNames, 2)
End Function
「設定」シートの並び替え優先度の項目に応じて、表全体をソートする流れになります。
前処理として
- セルの選択位置を退避
- スクリーンの更新を停止
を行い、処理の後で元に戻すことで、途中経過の操作を不意に意識しないで済むよう計らっております。
また、"No."の列は順番が入れ替わったままだと都合が悪いので、オートフィルし直して順番を正しています。
FindColumnやGetNextColumnのような、以下のようなサブ関数は、"列名"を取得するためのもので、ChatGPTにお願いして作ってもらいました。こういったこまごましたもの、想像以上に的確に提示してくれて、若干恐ろしくもありますね…。
' 指定文字列を引数の行番号を始点に検索し、見つかった行番号を返す
Function FindColumn(ByVal rowNum As Long, ByVal searchStr As String) As String
Dim i As Long
Dim lastColumn As Long
' 最終列の取得
lastColumn = Cells(rowNum, Columns.Count).End(xlToLeft).Column
' 指定文字列を探す
For i = 1 To lastColumn
If Cells(rowNum, i).value = searchStr Then
FindColumn = Split(Cells(rowNum, i).Address, "$")(1) ' 列番号の取得
Exit Function ' 対象の列が見つかった場合は関数を終了
End If
Next i
' 対象の列が見つからなかった場合はエラー終了
Err.Raise 9999, , "指定の文字列が見つかりませんでした"
End Function
' 次の列名を取得する
Function GetNextColumn(ByVal columnStr As String) As String
Dim currentColumun As Range
Dim nextColumun As Range
Set currentColumn = Range(columnStr & "1") ' 指定した列の1行目のセルを取得
Set nextColumn = currentColumn.Offset(0, 1) ' 指定した列の次の列のセル名を取得
GetNextColumn = Split(nextColumn.Address, "$")(1) ' 指定した次の列の列名を取得する
End Function
結局、本当の詳細までは説明しきれずブラックボックス化してしまってたら申し訳ありません。
このマクロを、以下の手順でボタンに割り付けると、クリックで実行できるようになります。
以下のメニューからボタンを配置します。
好きな場所に、図形を置くと
マクロ実行用のボタンを追加できます。
右クリックでボタンのテキストを編集するとボタンの文字を変更できます。
このボタンを右クリックして、以下のようにマクロを割り当てると
無事に、ボタン押下でマクロ実行が可能になります。
行の追加機能を作る
タスクが増えてくると、行を増やす時に書式が乱れたり、数式がコピーされなかったりして煩わしくなります。今回はその点もマクロで補います。
追加したボタンと、割り付けたマクロは以下になります。
(追加したボタン)
' 新しい行を一番下に追加する
Sub 行の追加()
Dim ws As Worksheet
Dim headerRow As Long
Dim startRow As Long
Dim endRow As Long
Dim startCol As String
Dim endCol As String
Dim networkdaysCol As String
Dim initSelection As Range
' 行追加前の準備
Application.ScreenUpdating = False ' スクリーンの更新を止める
Set initSelection = Selection ' 現在のセル選択位置を退避する
headerRow = Worksheets("設定").Cells(SETTING_START_COL, SETTING_HEADER_ROW).value ' 設定シートの見出し行番号を取得
startRow = Worksheets("設定").Cells(SETTING_START_COL, SETTING_TASK_START_ROW).value ' 設定シートの開始行番号を取得
startCol = Worksheets("設定").Cells(SETTING_START_COL, SETTING_TASK_START_COL).value ' 設定シートの開始列の取得を取得
Range(startCol & startRow).Select ' 開始セルの選択
endRow = Selection.End(xlDown).Row ' 最終行の取得
ActiveSheet.Outline.ShowLevels columnlevels:=2 ' グループ化された列を必ず表示させる
'新しい行の挿入
Set ws = ActiveSheet ' アクティブなシートを取得
ws.Rows(endRow + 1).Insert Shift:=xlDown ' 新しい行を挿入
ws.Rows(endRow).EntireRow.Copy ' 前の行をコピー
ws.Rows(endRow + 1).PasteSpecial Paste:=xlPasteFormats ' 前の行の書式を新しい行にコピー
' 「No.」の列は前の行に＋1する
Range(startCol & endRow + 1).value = Range(startCol & endRow).value + 1
' 「日数」の列は前の行の数式をコピーする
networkdaysCol = FindColumn(headerRow, "日数") ' 日数列の取得
Range(networkdaysCol & endRow).Copy ' 追加前の最終行をコピー
Range(networkdaysCol & endRow + 1).PasteSpecial Paste:=xlPasteFormulas ' 追加行に前行の数式をコピーする
' 行追加後の後処理
Application.CutCopyMode = False ' クリップボードをクリアする
initSelection.Select ' 初期のセル選択位置に戻す
Application.ScreenUpdating = True ' スクリーンの更新を再開する
End Sub
大きくは、新しい行を表の一番下に追加した後、以下を処理して実現しています。
- セルの書式を全てコピー
- 「No.」列を前行＋1する
- 「日数」列を前行の数式をコピーする
以上で、今回ご紹介したかったタスク管理ツールの作成過程の紹介は、すべて終わりです。
長い間、大変お疲れ様でした。
おわりに
退屈な日々のタスク管理も、自分らしくアレンジできれば、ちょっとは楽しくなったりしないかなと思ったり思わなかったり。
きっと世の中には、もっと自分に合ったより良いやり方がありそうなので、これからも追求していきたいです。
最後までお読みいただき、誠にありがとうございました！もし良かったら、「いいね」いただけますと大変励みになります！！
それでは皆さま、夏バテにはお気を付けて、お元気で～。
