2025/03/25
【Excel】スクロールバーを活用して行の色付け

【Excel】スクロールバーを活用して行の色付け

以下のように、スクロールバーを操作するだけで、表の行の色付け位置を変更することができる仕組みの実現方法について解説していきます。


1. 条件付き書式で特定の行を色付け

今回は、以下の表に対して行の色付けを行います。

まずは、色付けの対象となる行の行番号を表の上のセルに入力します。
※セルに入力した値は最終的にスクロールバーで見えなくなります。

こちらでは、セルB2に「5」と入力しています。

次に、表の範囲の先ほど指定した行番号の行を自動で色付けする設定を『条件付き書式』にて行います。

まずは、表の要素全体を選択し、[ホーム]タブの中の[条件付き書式]から[新しいルール]を選択します。

表示された条件付き書式の設定画面で、[ルールの種類]を[数式を指定して、書式設定するセルを決定]にし、以下の条件式を入力します。

=ROW()=$B$2
// 対象のセルの行番号とセルB2の値が同じ場合
// 「B2」は「$B$2」と絶対参照にする

次に、[書式]から好みの書式を設定します。
こちらでは、[塗りつぶし]タブから黄色を指定しています。

上記の手順で確定することによって、以下のように指定した行が自動で色付けされます。

ExcelVBAレベル確認

2. スクロールバーを使って色付けする行を変更

続いて、スクロールバーを作成します。

まずは、[開発]タブの中の[挿入]の[フォームコントロール]から[スクロールバー]を選択し、表の上に作成します。
※Altキーを押しながら作成すると、セルの幅に自動で調整されます。

次に、作成したスクロールバー上で右クリックし、[コントロールの書式設定]を選択します。

表示された書式設定の画面で必要な設定を行います。
こちらでは、以下のように設定しています。

現在値:5
最小値:4(表が4行目から用意されているため)
最大値:23(表が23行目まで用意されているため)
変化の増分:1(スクロールバーの縁を押した時に動かす量)
スクロールバー シャフトの増分:5(スクロールバーの中の隙間を押した時に動かす量)
リンクするセル:B2(行番号を入力したセルのアドレス)

以上の設定で完成です。
以下のように、スクロールバーを操作するだけで、表の行の色付け位置を変更することができます。

2025/03/22
【業務】便利なタスク管理表

【業務】便利なタスク管理表

#テーブル #FILTER #データの入力規則 #シートモジュール #Worksheet_SelectionChange #If

YouTubeで開く

タスク一覧表に入力したタスクを、自動でステータスごとの表に表示する仕組みになります。
また、表示されたタスクの中で好みのタスクを選択することで、タスク一覧表の対象のタスクのセルに、瞬時に遷移する仕組みも実装しています。

00:00 挨拶
00:24 完成イメージ
01:09 準備
01:50 作成(タスク管理表をテーブル化)
02:46 作成(ドロップダウンリスト)
03:42 作成(ウィンドウ枠の固定)
04:23 作成(Noの自動採番)
05:49 作成(タスクの抽出)
08:32 作成(該当タスクに遷移)
15:10 完成
16:10 プログラムの全体
17:57 プレゼントについて

▼準備ファイル▼

2025/03/21
【Excel】6桁の年月を簡単に入力

【Excel】6桁の年月を簡単に入力

「202501、202502…」のように6桁の年月を並べたい時に、通常のドラッグ操作ではうまくいかないことがあります。

ということで、こちらでは6桁の年月を簡単に入力する方法について解説していきます。


数式の入力

まずは、入力したい先頭の6桁の年月を数式で求めていきます。
その際に、ROW関数DATE関数TEXT関数を活用します。
それぞれの関数の使い方は、以下になります。

=ROW(参照)
// 参照したセルの行番号を返す
=DATE(年, 月, 日)
// 指定した年月日から該当する日付を返す
// 指定した月や日が存在しない数値の場合は桁上げ桁下げした日付を返す
=TEXT(値, 表示形式)
// 指定した値に対し、指定した表示形式を適用した文字列を返す

まずはROW関数とDATE関数を組み合わせて、先頭の年月の1日を求めていきます。
※1日でなくても、全ての年月に存在する日付なら問題ございません。

日付に関しては、下の行へコピーすることで、1月、2月と翌月の日付にする必要があるため、月はROW関数でセルの行番号を活用して求めます。
例えば、2025年1月から入力したい場合は、以下のような数式になります。

=DATE(2025,ROW(A1),1)

次は、この数式にTEXT関数を組み合わせて年月のみを表示させます。
年月のみを6桁で表示する表示形式は「yyyymm」になるため、以下のような数式になります。

=TEXT(DATE(2025,ROW(A1),1),"yyyymm")

以上の手順で、年月のみを表示することができます。

ただ、この状態のままですと、表示された6桁の年月は文字列として扱われます。
数値として扱いたい場合は、更にVALUE関数で囲むことで数値に変換できます。
VALUE関数で囲んだ数式は以下になります。

=VALUE(TEXT(DATE(2025,ROW(A1),1),"yyyymm"))

VALUE関数で囲んだ結果、以下のような変な日付が表示される場合は、表示形式を「標準」に戻すとよいです。


数式のコピー

先頭の年月を求める数式の入力ができましたら、後は必要な行までドラッグしてコピーするだけです。

これだけで、6桁の年月を必要な数分入力することができます。


まとめ

この方法を使えば、6桁の年月を簡単に連続で入力できます。

1. 以下の数式を入力する
※数値として扱いたい場合はVALUE関数で囲む

=TEXT(DATE(年, ROW(A1), 1), "yyyymm")
// 年:開始の年を指定
// A1:開始の月と同じ行番号のセルを指定

2. 必要な行までドラッグしてコピーする

横向きに入力したい場合は、ROW関数ではなくCOLUMN関数を活用します。
COLUMN関数の使い方は、以下になります。

=COLUMN(参照)
// 参照したセルの列番号を返す

実際にCOLUMN関数を活用すると、以下のような数式になります。

=VALUE(TEXT(DATE(2025,COLUMN(A1),1),"yyyymm"))
2025/03/18
【Excel】シートの追加と削除を一瞬で行うショートカット

【Excel】シートの追加と削除を一瞬で行うショートカット

作業中に簡単なメモや計算をするために、一時的にシートを追加することがあります。
しかし、不要になったシートを削除する際に、シートタブの上で右クリックして削除するのは少し面倒です。

そこで今回は、シートの追加と削除を一瞬で行うショートカットを紹介します。

ExcelVBAレベル確認

シートの追加

シートを追加するには、以下のショートカットを使用します。

「Shift + F11」もしくは「Alt + Shift + F1」
他にも、「Alt → H → I → S」「Alt → I → W」でも追加できます。

「Alt → H → I → S」は以下のように[ホーム]タブから順にキーで指定しています。

「Alt → I → W」は古いバージョンのショートカットですが、最新のバージョンでも使うことができます。
※Altの後にIを押すと、「Officeのアクセスキー」の画面が表示されます。


シートの削除

不要になったシートを削除するには、以下のショートカットを使います。

「Alt → H → D → S」もしくは「Alt → E → L」

「Alt → H → D → S」は以下のように[ホーム]タブから順にキーで指定しています。

「Alt → E → L」は古いバージョンのショートカットですが、最新のバージョンでも使うことができます。
※Altの後にEを押すと、「Officeのアクセスキー」の画面が表示されます。

シートに情報が含まれている場合は、上記のショートカットを入力した後に、以下のような画面が表示されます。
その際は、Enterを押すことで「削除」が選択され、シートを削除することができます。

複数シートを選択している状態で上記のショートカットを入力することで、複数シートを同時に削除することもできます。

2025/03/15
【番外-050】「複数行1データ」を「1行1データ」の表に変換

【番外-050】「複数行1データ」を「1行1データ」の表に変換

#TOROW #WRAPROWS #INDEX #ROW

YouTubeで開く

「複数行で1データとしている表」を「1行1データの表」に変換する方法について解説しています。

00:00 挨拶
00:29 準備
00:52 方法1
02:42 方法2
06:46 プレゼントについて

▼準備ファイル▼

2025/03/14
【ExcelVBA】不要なシートの見出しの色を自動変更

【ExcelVBA】不要なシートの見出しの色を自動変更

使わなくなったシートの管理方法として、シート名の先頭に「_」を加えて、シート見出しの色をグレーにすることがあります。

毎月のように、この作業を行う場合、地味に面倒ですよね。

そこで今回は、シート名の先頭に_を加えるだけで、自動でシート見出しの色をグレーにする仕組みの実現方法について解説していきます。
※こちらで開発したファイルは記事の最後にて配布しています。


1. 開発準備

今回は、シート名の先頭に「_」を加えてから、他のシートに切り替えた時に、自動で対象のシート見出しの色をグレーにする仕組みを実現します。

そのような、シートが切り替わったタイミングに処理を自動で実行するには、「ブックモジュール」の「イベントプロシージャ」を活用します。
「ブックモジュール」は、[開発]タブから[Visual Basic]を選択し、[プロジェクトエクスプローラー]から[ThisWorkbook]をダブルクリックすることで表示することができます。

「Option Explicit」は、VBEの設定内容次第では表示されません。「Option Explicit」についての解説はこちらでは省略します。

次に、シートが切り替わったタイミングに処理が自動で実行される特殊なプロシージャ(イベントプロシージャ)を用意する必要があります。
そのためには、ブックモジュールの左上のリストから「Workbook」を選択します。

「Workbook」を選択すると、自動で「Workbook_Open」というプロシージャが表示されます。
このプロシージャは、ワークブック(ファイル)を立ち上げた時に処理が実行されるイベントプロシージャになります。

ただ、今回使用するイベントプロシージャは、シートが切り替わったタイミングに処理が実行されるものになります。
そのため、右上のリストから「SheetDeactivate」を選択します。

表示された「Workbook_SheetDeactivate」というプロシージャを活用します。
「Workbook_Open」というプロシージャに関しては削除して問題ないです。

ExcelVBAレベル確認

2. コードの記述

以下のコードを記述します。

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    
    If Left(Sh.Name, 1) = "_" Then
        Sh.Tab.Color = RGB(180, 180, 180)
    End If
    
End Sub

では、コードについて解説していきます。

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    
    '省略
    
End Sub

「Workbook_SheetDeactivate」というプロシージャの引数の「Sh」に、アクティブでなくなったシートの情報が渡されます。

    If Left(Sh.Name, 1) = "_" Then
        Sh.Tab.Color = RGB(180, 180, 180)
    End If

対象のシート(Sh)の名前の先頭に「_」がある場合に、対象シートの見出しの色(Sh.Tab.Color)をグレー(RGB(180, 180, 180))にしています。


3. 完成

以上の内容で実現できます。
シート名の先頭に「_」を加えて他のシートを選択するだけで、シート見出しの色が自動でグレーになります。

▼サンプルファイル▼

2025/03/11
【Excel】入力した数値を0埋め4桁にする

【Excel】入力した数値を0埋め4桁にする

管理している番号を「0001」「0023」などのように0埋めの4桁表記にしたい場合、直接0を入力すると、勝手に先頭の0が消えてしまいます。

先頭の0を残すために、表示形式を「文字列」にして対応することもありますが、毎回0から入力するというのも手間になります。

そこで、簡単に0埋めの4桁に統一する方法を紹介します。

ExcelVBAレベル確認

設定手順

1.対象のセル範囲を選択する

以下のように対象のセル範囲を選択します。

2.「セルの書式設定」を開く

選択した範囲の上で右クリックし、[セルの書式設定]を選択します。

3.表示形式を設定する

[表示形式]タブを選択し、[ユーザー定義]を選択します。
表示された[種類]のテキストボックスの中に「0000」と入力します。
※今回は0埋め4桁なので「0」を4つ並べていますが、必要に応じて桁数は調整してください。

4.設定を確定する

[OK]を選択することで設定が完了します。


設定完了

以上の設定を行うだけで、今後は数値を入力すると同時に0埋めの4桁表記になります。

ただ、この設定は見た目を0埋め4桁にしているだけなので、実際の値には先頭の0は含まれません。

2025/03/08
【業務】万年ガントチャート(自動色付け+タスク名表示)

【業務】万年ガントチャート(自動色付け+タスク名表示)

#ガントチャート #Format #If #For #WorksheetFunction

YouTubeで開く

タスク名と期間を指定するだけで、自動でガントチャートを作成する機能の開発方法について解説しています。
一度開発することで、今後も継続的に活用することができます。

00:00 挨拶
00:23 完成イメージ
01:13 準備
01:42 作成(日付の表示切替)
07:18 作成(曜日の表示)
10:09 作成(セルの色付け)
16:46 作成(先頭にタスク名を表示)
19:23 作成(更新ボタン)
20:13 完成
21:53 プログラムの全体
26:11 プレゼントについて

▼準備ファイル▼

2025/03/07
【ExcelVBA】選択データの全項目を一括表示

【ExcelVBA】選択データの全項目を一括表示

以下のように、項目数の多い表の場合、対象データの内容を確認するのが大変だったりします。

そこで今回は、「対象データのいずれかのセルを選択してボタンを押すことで、全項目の値をメッセージボックスで表示することができる機能」の開発方法について解説していきます。

※こちらで開発したファイルは、記事の最後にて配布しています。


1. 開発準備

まず初めに、[開発]タブを選択し、[マクロ]を選択します。

表示された以下の画面にて、開発する機能の名前を入力し、[作成]を選択します。
こちらでは、「一覧表示」と入力しています。

次に表示される以下の画面の「Sub ○○」から「End Sub」の間にコードを記述します。


2. コードの記述

以下のコードを記述します。

Sub 一覧表示()
    
    Dim r As Long
    r = ActiveCell.Row
    
    Dim c As Long, msgStr As String
    For c = 1 To 18
        msgStr = msgStr & _
            Cells(1, c).Value & ":" & _
            Cells(r, c).Text & vbCrLf
    Next c
    
    MsgBox msgStr
    
End Sub

では、コードについて解説していきます。

    Dim r As Long
    r = ActiveCell.Row

こちらで、選択されているセル(アクティブになっているセル)の行番号を取得して、変数rに代入しています。

    Dim c As Long, msgStr As String
    For c = 1 To 18
        msgStr = msgStr & _
            Cells(1, c).Value & ":" & _
            Cells(r, c).Text & vbCrLf
    Next c

表の先頭列(A列:1列目)から表の最終列(R列:18列目)までを1列ずつ繰り返し、変数msgStrに、「対象列の項目名:1行目のc列目」と「:」、「対象列の対象データ:r行目のc列目」、「改行コード」を加えています。
項目名は「.Value」に対し、データの値は「.Text」を使用しています。
通常、セルの値の取得は「.Value」で問題ないのですが、データの値に関しては表示形式が設定された見た目のままの文字列を取得するために「.Text」を使用しています。

【注意】

「.Text」はセルに表示されたままのテキストを取得します。
そのため、日付や金額のセルなどで列幅が狭く「####」と表示されている場合は、「####」のままで取得されてしまいます。

    MsgBox msgStr

最後に、繰り返し処理で作成した文字列(変数msgStr)をメッセージボックスで表示しています。

ExcelVBAレベル確認

3. ボタンの作成

コードが完成しましたら、実行用のボタンを用意します。
ボタンは、[開発]タブの中の[挿入]から作成することができます。

ExcelVBAレベル確認

4. 完成

以上の手順で完成です。
表示したいデータのいずれかのセルを選択して、作成したボタンを押すだけで、全項目の値をメッセージボックスで表示することができます。

▼サンプルファイル▼

2025/03/04
【Excel】マクロ不要!セルの内容でメール送信!

【Excel】マクロ不要!セルの内容でメール送信!

特定のシート上の表の内容を元にメールの本文を作成している場合などで、数式を用いて、シート内にメールの送信内容を用意することがあります。
その場合、手動でメールソフトを立ち上げてから、その送信内容をコピー&ペーストして送信している方が多いと思いますが、繰り返し作業の場合は、結構大変になります。

そんな時に、今回紹介する方法を活用することで、クリック1つでメールソフトが立ち上がり、宛先・件名・本文が自動入力された状態で送信画面を開くことができるようになります。


1. 改行コードの入力

まずは準備として、本文の改行したい位置に、以下の特殊コードを入力します。

・行内改行(同じ段落内で改行する場合):%0A
・段落改行(新しい段落を作成する場合):%0D%0A

入力する位置は同じセル内でなくても、以下のように同じ行のセルであれば問題ございません。


2. mailtoスキームの作成

次に、以下の構成の文字列になるように数式でセルの値を繋げます。

mailto:宛先?subject=件名&body=本文

セルの値と固定の文字列を繋げる場合は、「&」を活用します。
具体的には、以下のような数式になります。

="mailto:"&C2&"?subject="&C3&"&body="&CONCAT(C5:G11)
// CONCAT関数で本文の範囲の文字列を一括で結合しています。

3. ハイパーリンクの作成

最後に、先ほど数式で作成したmailtoスキームをハイパーリンクにしていきます。
ハイパーリンクにする場合は、HYPERLINK関数を活用します。
この関数の使い方は、以下になります。

=HYPERLINK(リンク先, [別名])
// リンク先:ハイパーリンクにしたい文字列を指定(URLやmailtoスキームなど)
// [別名]:表示する文字列を指定(省略時はリンク先に指定した文字列が表示される)

実際に活用した数式の例は、以下になります。

=HYPERLINK("mailto:"&C2&"?subject="&C3&"&body="&CONCAT(C5:G11),"メール送信")

4. 完成

以上の手順でハイパーリンクの完成です。
今後は、作成したハイパーリンクをクリックするだけで、以下のように本文などが入力済みの送信画面を立ち上げることができます。


5. 補足

HYPERLINK関数の引数に設定する文字列の長さは255文字以内にする必要があります。
そのため、長文を指定したい場合などは、ExcelVBAで開発するなどと別の方法で実現する必要があります。

ExcelVBAで実現する場合は、以下の記事が参考になります。
>【業務】自動メール送信