[[20170317153250]]　『上限６０歳で各営業所の４月満での年齢表を作成し』（しゅう）　ページの最後に飛ぶ

『上限６０歳で各営業所の４月満での年齢表を作成したいです』（しゅう）

A列に１８～６０までの年齢を表示させて○店・□店・▽店それぞれの店長さんの名前が入った表を作成します。
毎年４月に年齢更新としたいためA列の数字が繰り下がるようにしたいです。（上段セル　-1）
ただし上限（セルA2）は60歳で固定としたいです。

良い方法はございますでしょうか?

A　　　　B　　　　　C　　　　D

　 ○店　□店　　▽店
60 　　　
59 　　　
58 丸さん　　
57 　　　　四角さん

	　		　三角さん
・
・
・

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

Sub test()

    Rows("2:2").Delete Shift:=xlUp
    Range("A2") = "60"

    Range("A2:A44").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=-1, Trend:=False

End Sub
（１１） 2017/03/17(金) 16:04

こんにちは

Sheet2に、
　 A　　　　B　　　　C　　　　D
1 店名　　店長　　生年月日　　=IF(MONTH(NOW())<4,DATEVALUE((YEAR(NOW())-1)&"/4/1"),DATEVALUE(YEAR(NOW())&"/4/1"))
2 ○店　　丸さん　1956/3/1 　　60
3 □店　　四角さん 1957/1/1　　59
4 ▽店　　三角さん 1960/8/1　　55

のように、店名と店長の生年月日データを入力しておきます。

表シートは、セルＢ2に
=IF($A2=VLOOKUP(B$1,Sheet2!$A:$D,4,0),VLOOKUP(B$1,Sheet2!$A:$D,2,0),"")
と入れて、下方、右方にフィルコピーします。

（ウッシ） 2017/03/17(金) 16:18

Sheet2のセルD2に、

=DATEDIF(C2,$D$1,"Y")

で、下方にフィルコピー

忘れてました。

（ウッシ） 2017/03/17(金) 16:22

（１１）さんありがとうございます。
小生、VBAをあまり理解しておりませんので・・・
後ほどゆっくり試みます。

（ウッシ）さんありがとうございます。
なるほど・・・数字のほうではなく、名前の方をいじるのですね。
でも、試しましたが６０以下の方は表示されないのでは??

間違っているかもですが・・・

（しゅう） 2017/03/17(金) 17:35

↑スミマセンでした。
表示されます。

同じ年齢の方が居る場合、全ての人を表示させたいのですがその方法もご教示願います。

（しゅう） 2017/03/21(火) 17:19

○店に（同じ店に）同年齢の方複数居る場合です。

（しゅう） 2017/03/21(火) 17:26

 ちょっと状況が呑み込めないのですけど、

 １．一つの店に「店長」って何人居るんですか？

 ２．追加の質問は、店長が２人居て、同じ年齢だったらどうするか、って言うお話ですね？

 　　それなら、質問当初の構想では、両者同時に上に移動するんですから、
 　　もう一人の方は、丸さんに便乗して、Sheet2の名前欄に「丸さん・助さん」と
 　　書き込んでおけばいいんじゃないでしょうか？(同じ生年月日じゃなくても支障ないと思いますが・・）

 ※別の年齢だったらどうなのか分かっていませんが、
 　取りあえず、店長が２人居るのかどうかを先に確認したいです。

（半平太） 2017/03/21(火) 20:11

コメント返信：

[ 一覧(最新更新順) ]

[[20170317153250]] 『上限６０歳で各営業所の４月満での年齢表を作成し』（しゅう） ページの最後に飛ぶ

[[20170317153250]]　『上限６０歳で各営業所の４月満での年齢表を作成し』（しゅう）　ページの最後に飛ぶ