- ベストアンサー
エクセルで勤務期間表の作成について
- 会社の事務でエクセルで勤務期間表を作成していますが、VBA初心者で効率の良い入力方法を知りたい。
- 発令年月日と退職年月日を入力すると、在職期間中の特定の数値を入力するようにしたい。
- 質問画像を添付しており、具体的な方法を教えていただきたいです。
- thincl
- お礼率66% (75/113)
- Excel（エクセル）
- 回答数4
- ありがとう数2
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
何だかよく分かりませんが、シート上部の 4 行の行列を入れ替えて、シート下部に転載しようとしているのですか？そして、どういう規則で定まっている値なのか分かりませんが「特定の数値」というのを、該当期間内の日付の行に記入する？ 何だかよく分かりませんが、次式では、「15 ×列番号 1、2、…」という値を、「特定の数値」だということにしてみました。違うようであれば、そちらでテキトーに修正してください。 B8 =15*B$7*((count(offset($B$2:$D$2,B$7-1,0))=2)*($A8=median($A8,offset($B$2:$D$2,B$7-1,0)))+(count(offset($E$2:$G$2,B$7-1,0))=2)*($A8=median($A8,offset($E$2:$G$2,B$7-1,0)))+(count(offset($H$2:$J$2,B$7-1,0))=2)*($A8=median($A8,offset($H$2:$J$2,B$7-1,0)))+(count(offset($K$2:$M$2,B$7-1,0))=2)*($A8=median($A8,offset($K$2:$M$2,B$7-1,0)))) B8 セルをコピーし B8:E31 のセル範囲に貼り付け。ゼロが算出されるセルがありますが、セルの書式により非表示にするなど。 今後、「そもそもこういう複雑な表は作らない」ということから覚えていっていただきたいと思いますが、とりあえず何だかよく分からないので、今回は上式を載せておくだけにします。
その他の回答 (3)
- kagakusuki
- ベストアンサー率51% (2610/5101)
- bunjii
- ベストアンサー率43% (3589/8249)
- shirokuma2014
- ベストアンサー率25% (41/162)
エラー処理など全く入れていませんが、簡単に。 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あたりでできそうな気がします。
お礼
回答ありがとうございます。 やってみたのですが、自分の意図したのとはちょっと違っていました。
お礼
回答ありがとうございます。 文章で説明するのが下手で申し訳ありません。 もう一度説明しますと まず、A8（2000/4/1）からA372（2001/3/31）にかけて日付表を作っておきます。 次に、B2に採用年月日（2000/4/1）、D2に退職年月日（2000/4/9）を入力すると 日付表の在職期間中全てに15を入力させる。 休職の場合も考えて、採用年月日1・退職年月日1～採用年月日3・退職年月日3まで 作ろうと思っています。 No.1さんの回答をやってみたのですが、採用年月日にしか入力されませんでした。