VBAを使用してExcelで管理表と一覧表を作成する手順を以下に示します。
1. Excelで新しいブックを作成します。
2. 「管理表」と「一覧表」という名前の2つのシートを作成します。
3. 「管理表」シートに氏名を入力するためのセルを用意します。例えば、セルA1に氏名を入力する場合、セルA1を選択します。
4. 「開発」タブから「マクロ」をクリックし、新しいマクロを作成します。
5. マクロ名を指定し、OKをクリックします。
6. マクロエディタが表示されるので、以下のコードを入力します。
“`vba
Sub 登録ボタンクリック()
Dim 名前 As String
Dim 月 As Integer
Dim 年 As Integer
‘ 入力された値を変数に代入する
名前 = Range(“A1”).Value
月 = Month(Date)
年 = Year(Date)
‘ 一覧表にデータを追加する
Sheets(“一覧表”).Activate
LastRow = Range(“A” & Rows.Count).End(xlUp).Row
Range(“A” & LastRow + 1).Value = 名前
Range(“B” & LastRow + 1).Value = 月
Range(“C” & LastRow + 1).Value = 年
‘ 管理表をクリアする
Sheets(“管理表”).Activate
Range(“A1”).Value = “”
‘ 完了メッセージを表示する
MsgBox “登録が完了しました！”
End Sub
“`
7. 登録ボタンを押すと、入力された氏名が一覧表に追加され、該当する月と年が表示されます。
8. 「管理表」シートに新しい氏名を入力し、再度登録ボタンを押すことでデータが追加されます。
このコードでは、現在の日付から月と年を取得して一覧表に追加しています。必要に応じて、氏名の入力方法やデータの追加場所を変更することができます。また、エラーハンドリングや入力のバリデーションを追加することもおすすめです。