エクセルマクロ 「１０１」 ボタンをおして 「１０２」となるマクロ？

質問

エクセルです。
一つのセル（Ａ４）に「１０１」と書いてあります。それをVlookup関数で他のシートから一致する情報を取り出しています。次に同じセルに「１０２」とうつと、同じように一致する情報を取り出しています。

そこで、一回、一回、セルに１０２や１０３と打つのではなく、ボタンを押すと次の番号にうつるようなマクロを組みたいと思ってます。

ただ、１０１～１３０　次は、２０１～２３１みたいになってます。
一つのマクロでなくても良いので、よろしくお願いします。

最初は、
Range("A4").select　
セルＡ４を選択　だと思うのですが、この次から分かりません。

回答No.2

hige_082 · ベストアンサー

Private Sub CommandButton1_Click()
With Range("a4")
If Right(.Value, 2) < 30 Then
.Value = .Value + 1
Else
.Value = .Value + 71
End If
End With
End Sub

参考まで

お礼

ありがとうございます。ビックリしました。
できました。しかも、どんな値でもすぐに対応できますね。
助かりました。

回答No.1

watabe007

参考に
Sub Test()
　　With Range("A4")
　　　　Select Case .Value
　　　　　　Case 101 To 129, 201 To 230
　　　　　　　　.Value = .Value + 1
　　　　　　Case 130
　　　　　　　　.Value = 201
　　　　　　Case 231
　　　　　　　　.Value = 101
　　　　　　Case Else
　　　　　　　　.Value = 101
　　　　End Select
　　End With
End Sub

お礼

早速、疑問に答えてくださり、ありがとうございました。
できました。
しかも、ループしてもどるなんて（＾＾）
驚きです。