|
イマイチよく意味が分からないんですが「J6以降のセルに1〜10までの数値を
入力すると、値によって条件分岐してパターンシートの特定のセルの値に
置き換えたい」ということなのかな ?
それなら以下のようなセル入力イベントを、勤務表シートのシートモジュールに
入れてみて下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long, Num As Long
LR = Range("A65536").End(xlUp).Row
If Intersect(Target, Range("J6:AN" & LR)) Is _
Nothing Then Exit Sub
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
If .Value < 1 Or .Value > 10 Then Exit Sub
Num = Int(.Value) + 6
Application.EnableEvents = False
.Value = Sheets("パターン").Cells(Num, 12).Value
End With
Application.EnableEvents = True
End Sub
|
|