数秘術の９年サイクルの一覧表作ってみた - 大型肥満ダイエット日記と日常と

数秘術の三つの数字とかは出したりしてたんですけれども。

９年サイクルってのがちまちま毎年出すのが面倒だって思ったので

エクセルマクロで作ってみました。

ソースはこちらです。

だらだらーっと書いてあります。

Sub ボタン1_Click()

Dim birthday, byear As String
Dim str(8), i, j, tmp1, tmp2, tmp3 As Integer

birthday = Range("B1").Value

For i = 1 To 8

str(i) = Mid(birthday, i, 1)
Next

'一応年データを一掃してる
Range("A7:H57").Value = Clear

'過去数
tmp1 = Int(str(7)) + Int(str(8))

Do While tmp1 > 9 And (tmp1 <> 11 And tmp1 <> 22 And tmp1 <> 33)

tmp2 = Mid(tmp1, 1, 1)
tmp3 = Mid(tmp1, 2, 1)

tmp1 = tmp2 + tmp3

Loop

Range("B4").Value = tmp1

'運命数
tmp1 = Int(str(1)) + Int(str(2)) + Int(str(3)) + Int(str(4)) + Int(str(5)) + Int(str(6)) + Int(str(7)) + Int(str(8))

Do While tmp1 > 9 And (tmp1 <> 11 And tmp1 <> 22 And tmp1 <> 33)

tmp2 = Mid(tmp1, 1, 1)
tmp3 = Mid(tmp1, 2, 1)

tmp1 = tmp2 + tmp3

Loop

Range("D4").Value = tmp1

'未来数
tmp1 = Int(str(5)) + Int(str(6)) + Int(str(7)) + Int(str(8))

Do While tmp1 > 9 And (tmp1 <> 11 And tmp1 <> 22 And tmp1 <> 33)

tmp2 = Mid(tmp1, 1, 1)
tmp3 = Mid(tmp1, 2, 1)

tmp1 = tmp2 + tmp3

Loop

Range("F4").Value = tmp1

'9年サイクル(0歳から５０歳)
byear = str(1) + str(2) + str(3) + str(4)
j = 7

For i = 0 To 50

'運命数(１年ごと変わる)
tmp1 = Int(Mid(byear, 1, 1)) + Int(Mid(byear, 2, 1)) + Int(Mid(byear, 3, 1)) + Int(Mid(byear, 4, 1)) + Int(str(5)) + Int(str(6)) + Int(str(7)) + Int(str(8))

Do While tmp1 > 9 And (tmp1 <> 11 And tmp1 <> 22 And tmp1 <> 33)

tmp2 = Mid(tmp1, 1, 1)
tmp3 = Mid(tmp1, 2, 1)

tmp1 = tmp2 + tmp3

Loop

Range("C" & j).Value = tmp1
Range("A" & j).Value = byear
byear = Int(byear) + 1
Range("B" & j).Value = i
j = j + 1

'9年サイクル(５１歳から101歳)
' byear = str(1) + str(2) + str(3) + str(4)
j = 7

For i = 51 To 101

Range("G" & j).Value = tmp1
Range("E" & j).Value = byear
byear = Int(byear) + 1
Range("F" & j).Value = i
j = j + 1

End Sub

貼り付けて思った。タブきえちゃうのね。