サイトアイコン レンチンPOTATO雑記ブログ

Excelで営業日ごとに店舗と件数を入力する方法について

パソコン操作

平日営業日(月曜日から金曜日)に20分かけて75店舗のデータを毎日入力する作業を効率化するために、以下の方法を検討できます。これらの方法を使うことで、入力作業を楽にし、時間を節約できます。


1. テンプレートの作成

毎日同じ形式でデータを入力する場合、テンプレートを作成しておくと便利です。


2. 日付の自動入力

日付を手動で入力する手間を省くために、日付を自動化します。

  1. 列Aに「日付」を入力するセルを用意します。
  2. 最初のセル(例: A2)に =TODAY() と入力します。
  3. 次のセル(A3)に =IF(B3="", "", A2) と入力し、下方向にコピーします。
    • これで、店舗名が入力されると自動的に日付が反映されます。

3. 店舗名のドロップダウンリスト

75店舗の名前を毎回入力するのは大変なので、ドロップダウンリストを作成します。

  1. 別シートに75店舗のリストを作成します(例: シート名「店舗リスト」)。
  2. メインシートの店舗名を入力する列(例: 列B)を選択します。
  3. データタブ → データの入力規則リストを選択します。
  4. 「元の値」に =店舗リスト!A1:A75 と入力します。
    • これで、店舗名をドロップダウンから選択できるようになります。

4. 件数の入力支援

件数の入力も効率化するために、以下の方法を検討できます。

4.1. デフォルト値の設定

4.2. ショートカットキーの活用


5. マクロの活用

毎日の入力作業を自動化するために、VBAマクロを使うことができます。

5.1. マクロの例

以下のマクロは、日付と店舗名を自動で入力し、件数の列にフォーカスを当てます。

Sub AutoInput()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("メインシート") 'シート名を変更
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1

    '日付を入力
    ws.Cells(lastRow, 1).Value = Date

    '店舗名のドロップダウンリストを設定
    With ws.Cells(lastRow, 2).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=店舗リスト!A1:A75"
    End With

    '件数の列にフォーカスを移動
    ws.Cells(lastRow, 3).Select
End Sub

5.2. マクロの実行方法

  1. Alt + F11でVBAエディタを開きます。
  2. 挿入標準モジュールを選択し、上記のコードを貼り付けます。
  3. Alt + Qでエディタを閉じ、Excelに戻ります。
  4. 開発タブ → マクロを選択し、AutoInputマクロを実行します。

6. Power Queryを使った自動化

データが蓄積されてきた場合、Power Queryを使ってデータを自動的に整理できます。

  1. データをテーブル形式で管理します。
  2. データタブ → クエリを使って、データを自動的に取り込み、整理します。
  3. 毎日のデータを追加すると、自動的に集計や分析が行われます。

7. クラウドツールの活用

Excel以外のツールも検討できます。


8. 入力時間の短縮


9. データのバックアップ

毎日入力したデータを失わないように、定期的にバックアップを取ります。


これらの方法を組み合わせることで、毎日の入力作業を大幅に効率化できます。特に、マクロやドロップダウンリストを活用すると、入力時間が大幅に短縮されるでしょう。

モバイルバージョンを終了