|
すみません。
質問に仕方がまずのでしょうか?
具体的には、オープン時、
Private Sub Workbook_Open()
Sheets("請求書").Select
Call 入力
End Sub
Sub 入力()
Range("D3,E7,D10:E10,G13,J14,D17:G36,J17:J36").Select
End Sub
入力時、行>16 列=6で次のイベントを発生させたいのですが、Call 入力としているため、イベントが発生しません。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row > 16 Then
If Target.Column = 6 Then
'MsgBox ("OK")
For Each C In Worksheets("現場名").Range("C5:C304")
If C.Value = ActiveCell.Offset(0, -1).Value Then
現場名フォーム.Show
Exit Sub
End If
Next C
End If
End If
End Sub
次のマクロをどのように、組み合わせばイベントが発生するのでしょうか?
Private Sub Workbook_Open()
'ブックオープン時
Dim r As Range
With ActiveCell
If .Row > 16 Then
If .Column = 6 Then
Set r = .Cells
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
r.Select
End If
End If
End With
End Sub
|
|