エクセルマクロの質問

質問

いつもお世話になっております。
エクセルマクロの質問をさせていただきます。

A1に「1月」B1に「2月」と入っています。
A2、B2には数字が入っていて、要はその月に発生した数字、というような感じの表になっています。
ただ、A2,B2はある関数によって導き出された数字です。

一方でA5にも「1月」と入っているとします。
そして、その下に「データ確定」というボタンを作るとします。

このとき、「ボタンを押すと、A5とイコールの月のデータを確定させ、A5の月がひと月先に進む」というマクロを組みたいのですが、どうすれば良いのでしょうか。

上記でいえば、1月の数字が確定（コピーして値のみ貼り付けたのと同様）となり、A5は「2月」になります。

ちなみにA5の「月」は、例えばtoday関数のようなものは入れず、あくまで「ボタンを押すとひと月進む」という感じにしたいのです。

宜しくお願いいたします。

回答No.1

merlionXX · ベストアンサー

> A1に「1月」B1に「2月」と入っています。
> A5にも「1月」と入っているとします。

これは文字列でしょうか？
そうであれば、以下で出来ると思います。
A1:L1に1月～12月と入力されている前提です。

Sub test01()
Dim myStr As String, m As Integer
myStr = Range("A5").Value
m = Val(Left(myStr, Len(myStr) - 1))
Set myC = Range("A1:L1").Find(What:=myStr, LookAt:=xlWhole, MatchByte:=False).Offset(1)
myC.Copy
myC.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
If m < 12 Then
Range("A5").Value = m + 1 & "月"
Else
MsgBox "12月まで終了しています。"
End If
End Sub

お礼

うまく行きました！
12月の次はまた1月になるようにしたかったのですが、それは自分で検索して解決することができました。
ありがとうございました！！