Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50635 / 76737

←次へ　｜　前へ→


	【30987】配列に関するマクロ

nikuo - 05/11/8(火) 17:38 -


	引用なし

	パスワード

すいません。質問なのですが
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に表示されるのですが、干支、誕生石、メッセージを表示させるマクロを作成したいのですが教えてください。お願いします。

0 hits

▼

【30987】配列に関するマクロ nikuo 05/11/8(火) 17:38

≪