カバラ聖数日を計算する方法

どなたかご存じでしたらご教授願います。
下記のようなエクセルの年月日（yyyy/mm/dd）が入っている状態で、
ギャンブルで使用される「カバラ整数」の「年の聖数」、「月の聖数」、「日の聖数」の３つを
エクセル式で求める方法が知りたいです。

【カバラ聖数計算】
　 年月日　　　年の聖数　　　月の聖数　　　日の聖数
　2012/5/27　　　　　5　　　　　　　　　1　　　　　　　　1
　2012/6/19　　　　　5　　　　　　　　11　　　　　　　　3
　2012/6/29　　　　　5　　　　　　　　11　　　　　　　22
　2012/12/13　　　　5　　　　　　　　　8　　　　　　　　3


【計算ルール】
　(1)”年の聖数”・・・ 西暦４桁を１つずつ分解して足し算する。　
　　　　　　　　　　　　　例）2+0+1+2 = 5
　(2)”月の聖数”・・・ (1)に月を１つずつ分解して足し算する。　　
　　　　　　　　　　　　　例１) 2+0+1+2+5 = 10 ⇒ 1+0 ⇒ 1
　　　　　　　　　　　　　例２）2+0+1+2+6 = 11
　　　　　　　　　　　　　例３）2+0+1+2+1+2 = 8
　(3)”日の聖数”・・・ (2)に日を１つずつ分解して足し算する。
　　　　　　　　　　　　　例１) 2+0+1+2+5+2+7 = 19 ⇒ 1 + 9 ⇒ 10 ⇒1+0 ⇒ 1
　　　　　　　　　　　　　例２）2+0+1+2+6+1+9 = 21 ⇒ 2 + 1 = 3
　　　　　　　　　　　　　例３）2+0+1+2+6+2+9 = 22
　　　　　　　　　　　　　例４）2+0+1+2+1+2+1+3 = 12 ⇒ 1+2 = 3
【注意事項】
　・基本的に(1)、(2)、(3)のそれぞれは計算結果が１桁になるまで加算するが、
　　計算結果が「１１」、「２２」になった場合はそこで計算をやめる。
　・使用するエクセルは２０１０です。

以上

No.3 ベストアンサー 回答者： mike_g 回答日時： 2012/06/23 22:15

添付図参照

なお、Ｇ、Ｈ列のデータは、[No.2]さんのアイデアをソックリ拝借させていただいています。
B2: =VLOOKUP(SUM(MID(TEXT($A2,"yyyy"),{1,2,3,4},1)*1),$G:$H,2,FALSE)
C2: =VLOOKUP(SUM(MID(TEXT($A2,"yyyymm"),{1,2,3,4,5,6},1)*1),$G:$H,2,FALSE)
D2: =VLOOKUP(SUM(MID(TEXT($A2,"yyyymmdd"),{1,2,3,4,5,6,7,8},1)*1),$G:$H,2,FALSE)

この回答へのお礼

回答ありがとうございます。
早速試したところ、
同じ結果になりました。

お礼日時：2012/06/23 22:42

No.2 回答者： keithin 回答日時： 2012/06/23 21:11

あれっ、書き間違いちゃいました。

訂正：
Ｇ１に
=ROW()
と記入し、Ｇ９９までコピー貼り付ける

次の数列をコピーし、Ｈ１からＨ９９に貼り付ける

1
2
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
2
3
22
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9

Ａ２に日付を記入し、
Ｂ２に
=INDEX(H:H,SUMPRODUCT(MID(TEXT(A1,"yyyymmdd"),ROW($A$1:$A$4),1)*1))
Ｃ２に
=INDEX(H:H,SUMPRODUCT(MID(TEXT(A1,"yyyymmdd"),ROW($A$1:$A$6),1)*1))
Ｄ２に
=INDEX(H:H,SUMPRODUCT(MID(TEXT(A1,"yyyymmdd"),ROW($A$1:$A$8),1)*1))
とそれぞれ計算する。


失礼しました。

＃参考
実際には、９９９９年まで考慮しても６０ぐらいまでの数列を準備するだけで構いません。

この回答への補足

いつもご教授ありがとうございます。
Ans２で頂いた回答を実際にエクセルの新しいシートに記載通りに入力したはずですが、
Ａ２に"2012/5/27"と入力すると、
Ｂ２には”１”
Ｃ２には”１１”
Ｄ２には”１１”がそれぞれ入ります。

ちなみに日付を"2012/6/19"にしても、Ｂ２、Ｃ２、Ｄ２の値に変化ありません。
また、Ａ１，Ｂ１，Ｃ１は何も入力はしていません。

補足日時：2012/06/23 22:15

No.1 回答者： keithin 回答日時： 2012/06/23 21:04

まぁ無理すれば出来なくはないですが、簡単に。

Ｈ１に
=ROW()
と記入し、Ｈ９９までコピー貼り付ける

次の数列をコピーし、Ｇ１からＧ９９に貼り付ける

1
2
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
2
3
22
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9
1
11
3
4
5
6
7
8
9

Ａ２に日付を記入し、
Ｂ２に
=INDEX(H:H,SUMPRODUCT(MID(TEXT(A1,"yyyymmdd"),ROW($A$1:$A$4),1)*1))
Ｃ２に
=INDEX(H:H,SUMPRODUCT(MID(TEXT(A1,"yyyymmdd"),ROW($A$1:$A$6),1)*1))
Ｄ２に
=INDEX(H:H,SUMPRODUCT(MID(TEXT(A1,"yyyymmdd"),ROW($A$1:$A$8),1)*1))
とそれぞれ計算する。