初めて投稿させていただいております。

<自分のレベル>
マクロ(VBA)については初心者で、自分で操作をして、
自動生成されるプログラムを多少改変できる程度。

<excel version>
excel 2000

<教えていただきたい事>
カーソルのある行に行挿入するマクロを作ったですが、
このとき、8行目より前にカーソルがある場合に、
メッセージを表示して、そのマクロを停止したいのですが
どのようなプログラムを書けば良いでしょうか?

よろしくお願いします。

A 回答 (1件)

↓こんな感じでどうでしょうか?



Private Sub CommandButton1_Click()
If (Selection.Row < 8) Then
MsgBox ("8行目より前には挿入できません")
Else
Rows(Selection.Row).Insert Shift:=xlDown
End If
End Sub
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報