|
こんにちは。かみちゃん です。
>まだメッセージのところができなくて最終的な結果は
>年 1987 えと 卯
>月 3 誕生石 アクアマリン
>日 7 メッセージ 聡明
>とさせたいのですがどうすればよいでしょうか。
私の疑問には、お答えいただけないのでしょうか?
日(B3セル)を入力したら、どのようにして、「メッセージ」を表示したいのか?
入力した数値と配列の添え字の関係がさっぱりわかりません。
そこを説明していただけないと、よいアドバイスはできないと思います。
あと、以下のコードは、For〜Nextの入れ子にしていますが、無駄処理と思います。
>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
For n = 0 To 11 Step 1
Eto(n) = Sheet2.Cells(n + 1, 1).Value
Isi(n) = Sheet2.Cells(n + 1, 2).Value
Next n
でいいのでは?
|
|