|
すいません。質問なのですが
Sheet1に
A B C D
1 年 えと
2 月 誕生石
3 日 メッセージ えとと誕生石←フォームボタン
Sheet2に
A B C
申 ガーネット 熱愛
酉 アメジスト 誠実
戌 アクアマリン 聡明
亥 ダイヤモンド 清浄無垢
子 エメラルド 幸運
丑 パール 健康
寅 ルビー 情熱
卯 ペリドット 幸福
辰 サファイア 慈愛
巳 オパール 歓喜
午 トパーズ 希望
未 トルコ石 成功
マクロは
Option Explicit
Sub ボタン1_Click()
Dim Eto(11) As String
Dim n As Integer
For n = 0 To 11 Step 1
Eto(n) = Sheet2.Cells(n + 1, 1).Value
Next n
n = Range("B1").Value Mod 12
Range("D1").Value = Eto(n)
End Sub
それで今のところSheet1のセルB1に年数をいれて実行するとSheet1のセルD1にSheet2のセルA1からA12に対応する干支がSheet1のセルD1に表示されるまでできたのですが、
今度はSheet1のセルB2,3に数字を入力するとSheet2のB1からB12に対応する誕生石
がSheet1のD2に表示され、Sheet2のC1からC12に対応するメッセージがSheet1のD3に表示されるのですが、干支、誕生石、メッセージを表示させるマクロを作成したいのですが教えてください。お願いします。
|
|