excel2000でのＶＢＡの記述の仕方

質問

セルＥ５に1月、2月、3月、4月、5月～12月という文字が
入るようになっています。

たとえば、Ｅ５に5月という文字が入ったら、セルのＥ６～
Ｅ３８のセルに入っているデータをコピーして
別シートのＲ１７～Ｒ３８の所にデータを貼り付けたい。

たとえば、Ｅ５に4月という文字が入ったら、セルのＥ６～
Ｅ３８のセルに入っているデータをコピーして
別シートのQ１７～Q３８の所にデータを貼り付けたい。という場合の

Ｅ５に6月の場合は、貼り付ける場所が、S１７～S３８
Ｅ５に7月の場合は、貼り付ける場所が、T１７～T３８
Ｅ５に8月の場合は、貼り付ける場所が、U１７～U３８
Ｅ５に9月の場合は、貼り付ける場所が、V１７～V３８
になります。
マクロの記述の仕方を教えてください。

回答No.1

Hageoyadi · ベストアンサー

Ｅ６～ Ｅ３８とＲ１７～Ｒ３８ではデータの数が違いますね。
何かの勘違いかと思われますが・・・最後の38行目はあってるという仮定でアドバイス差し上げますと・・・

VBAじゃなくても
R38=if(E5="5月",E38,"")
S38=if(E5="6月",E38,"")
・
・
・
・
で対処できますが、VBAじゃないと気に入りませんか？

補足

回答有難うございます。
計算式を入れるのが面倒ですので、
できたらＶＢＡで教えてください。

回答No.4

taisuke555

＞Ｅ５に5月という文字が入ったら

5月と入ったらすぐに（ボタンを押さないで）コピーしていいのか
ボタンを押した時に,5月と入っていたらなのか
ちょっと分からないのですが・・・

下記はボタンを押してから処理するようになっています。
（5月と入力されてすぐプログラムが動くようにする事もできますが、
間違えて入力した時にも、処理されますから、
ワンクッションいれた方が良いと思います。）

（１）元シート名、別シート名が分かりませんので、
　　　Sheet1、Sheet2にしてあります。
　　違う場合は、
　　Set ws1 = Worksheets("Sheet1")
　　Set ws2 = Worksheets("Sheet2")
　　の""内を変更してください。
（２）1月ならばA列、2月ならばB列、・・・11月ならばK列、12月ならばL列
　　にコピーします。
（３）いろいろな書き方ができますので、私の書き方が最善とはいえません。
　　　（もちろん、Copyメソッドを使った書き方もできます。）

********************この下から****************
Sub Test()
　　Dim ws1 As Worksheet 'コピー元
　　Dim ws2 As Worksheet 'コピー先
　　Dim mm　As Integer　 '月

　　Set ws1 = Worksheets("Sheet1")
　　Set ws2 = Worksheets("Sheet2")

　　'E5セルに、[月]の入力があれば、[月]をなくし、数字に変換する
　　mm = CInt(Replace(ws1.Range("E5"), "月", ""))

　　ws2.Range(ws2.Cells(6, mm), ws2.Cells(38, mm)).Value = ws1.Range("E6:E38").Value
　　'変数の開放　　
　　Set ws1 = Nothing
　　Set ws2 = Nothing
End Sub
********************この上まで****************

何か分からない事があれば、補足してください。

回答No.3

taisuke555

＞たとえば、Ｅ５に5月という文字が入ったら、セルのＥ６～
＞Ｅ３８のセルに入っているデータをコピーして
＞別シートのＲ１７～Ｒ３８の所にデータを貼り付けたい。

コピー元とコピー先のセル数が一致しないのですが、書き間違いですか？
それとも空白のセルを除く等の処理が必要なのですか？

補足

すいません下記違えていました・
たとえば、Ｅ５に5月という文字が入ったら、セルのＥ６～
＞Ｅ３８のセルに入っているデータをコピーして
＞別シートのＥ６～Ｅ３８の所にデータを貼り付けたい。
たとえば、Ｅ５に4月という文字が入ったら、セルのＥ６～
＞Ｅ３８のセルに入っているデータをコピーして
＞別シートのＦ６～Ｆ３８の所にデータを貼り付けたい。

よろしくお願いします。

回答No.2

imogasi

Ｅ５セルには５，６など数字だけ入れて、表示形式で５月
、６月・・・になるようにします。
ＶＢＥ画面でＦ５キーでモジュール１でやりましたが
Sub test01()
a = Array("", "", "", "", "", "s17", "t17", "u17", "")
Range("E6:e38").Copy
Range(a(Cells(5, "E"))).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
本当はシートにコマンドボタンを１つ貼りつけ、クリックイベントに変える方法が良いでしょうが、改造方法はわかりますよね。
上例では５，６，７月しかArray()に入れていませんが、残りの月も入れてください。
少数例でテスト済み。急いで手抜き済みません。
この方法はコピーと貼りつけ範囲に規則性がなくても改造して使えると思います。