こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのマクロ

セルA1に、a2からa90までの任意の文字を入力した後にマクロを実行します。
セルA1にa7と入力されている時はセルB1にa6と表示され、セルA1にa86と入力されている時はセルB1にa85と表示されるようなマクロを教えてもらいたいのですが。
B1は必ずA1の数字の部分が1つ少なくなるということです。
     

投稿日時 - 2003-03-07 22:48:01

QNo.492162

すぐに回答ほしいです

質問者が選んだベストアンサー

Sub ボタン1_Click()

Cells(1, 2) = Mid(Cells(1, 1), 1, 1) & Val((Mid(Cells(1, 1), 2, 2)) - 1)

End Sub

これで良いはずです。これはボタンを押したときの場合ですから、中の部分だけ
利用してみて下さい。

投稿日時 - 2003-03-07 23:02:18

お礼

回答ありがとうございました。

投稿日時 - 2003-03-08 06:35:32

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Sub test01()
d = Range("a1").CurrentRegion.Rows.Count
For i = 1 To d
n1 = Mid(Cells(i, 1), 2, Len(Cells(i, 1)) - 1)
n = Val(n1) - 1
Cells(i, 2) = "a" & Trim(Str(n))
Next i
End Sub

投稿日時 - 2003-03-07 23:14:34

お礼

回答ありがとうございました。

投稿日時 - 2003-03-08 06:35:45

あなたにオススメの質問