|
▼Jaka さん:
>たびたびすみません。
>前回の丸文字との関連性が無いものとして、
>
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> If Target.Cells(1).Column = 1 And Target.Row <= 5 Then
> If Target.Cells(1).Value >= "1" And Target.Cells(1).Value <= "4" _
> Or Target.Cells(1) = "" Then
> MsgBox "OK"
> Else
> MsgBox "NG"
> Application.EnableEvents = False
> Application.Undo
> Application.EnableEvents = True
> End If
> End If
>End Sub
早速ありがとうございます。
良好に動作します。
もう3つ教えてください。
1.入力後OKの場合 MsgBox "OK"を出さずに次の入力にいく方法。
2.入力セルの変更設定の方法ですが
ご指導の
If Target.Cells(1).Column = 1 And Target.Row <= 5 Then
の意味は1列の1〜5行と思いますが
入力セルが飛び飛びの場合
A1〜5
D3〜8
F5〜6
などの場合どのように考えたら良いでしょうか。
3.Private Sub の意味は
このシートだけこのマクロが有効と考えてよいのでしょうか?
基礎的なことですいません。再度ご指導お願いいたします。
|
|