| |
>年（B1セル）を西暦で入力したら、それを12で割ったときの余りを取得して、それ
>を配列の中から表示するのは、わかります。
>月（B2セル）を入力したら、その数字から1を引いた値を取得して、それを「誕生石」の配列の中から表示するということでいいのでしょうか？
>日（B3セル）を入力したら、どのようにして、「メッセージ」を表示したいのでしょうか？
あの今ここまでできたのですが、
Option Explicit
Sub ボタン1_Click()
Dim Eto(11), Isi(11) As String
Dim n, o As Integer
For n = 0 To 11 Step 1
For o = 0 To 11 Step 1
Eto(n) = Sheet2.Cells(n + 1, 1).Value
Isi(o) = Sheet2.Cells(o + 1, 2).Value
Next o
Next n
n = Range("B1").Value Mod 12
o = Range("B2").Value - 1
Range("D1").Value = Eto(n)
Range("D2").Value = Isi(o)
End Sub
結果は下のようになったのですが
年 1987 えと 卯
月 3 誕生石 アクアマリン
日 7 メッセージ
まだメッセージのところができなくて最終的な結果は
年 1987 えと 卯
月 3 誕生石 アクアマリン
日 7 メッセージ 聡明
とさせたいのですがどうすればよいでしょうか。
|
|
nikuo
- 05/11/8(火) 21:49 -
