エクセルで勤務期間表の作成について

質問

• 会社の事務でエクセルで勤務期間表を作成していますが、VBA初心者で効率の良い入力方法を知りたい。
• 発令年月日と退職年月日を入力すると、在職期間中の特定の数値を入力するようにしたい。
• 質問画像を添付しており、具体的な方法を教えていただきたいです。

回答No.1

shirokuma2014

エラー処理など全く入れていませんが、簡単に。

1. 採用年月日・退職年月日の日付のセルを選択してから実行します。
2. A列に日付が見つかったら、入力欄が出てくるので数字を入れてOKを押すと、B列に表示されます。
3. あとはコピペして下さい。

コレ以上は勘弁してくださいｗ

Sub sample()

Dim a As Date, b As Range, c As String

a = ActiveCell.Value

Set b = ActiveSheet.Range("A:A").Find(a)
If Not b Is Nothing Then
c = Application.InputBox("数値を入力して下さい。")
If Not c = "False" And Not c = "" Then
b.Offset(0, 1).Value = c
End If
End If

End Sub

VBAだと表をちょっと変えるだけで動かなくなります。
つまり、表をきちんと整備した上で作らないといけません。
VBAを組む段階だと、採用年月日・退職年月日だけを入力するシート、日付の羅列されているシートの最低2つ、見やすさを考えるなら両方を表示できる出力シートの計3つを作ります。

今回の場合ですと、何をされたいのかよく見えませんが、関数を使ったほうが柔軟な気がします。
if,vlookup,match,offsetあたりでできそうな気がします。

お礼

回答ありがとうございます。
やってみたのですが、自分の意図したのとはちょっと違っていました。