|
▼ニガ子 さん:
レスないですね...
>今回、7列目入力後にセルを10列目に飛ばし、Enter後12列目に飛ばし
>Enter後14列目入力後15列目入力としたいです。
>10列目・12列目は確認の為にセルを選択させたいので、入力はしません。
確認するだけで、入力しないというのが難しくしているのでしょうね
要件通りではありませんが、
Case 7 のところを、
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Select Case Target.Column
Case 5, 6, 14
Target.Offset(0, 1).Select
Case 15
Target.Offset(0, 17 - 15).Select
Case 7
If Sh.Range("B34").Value = 4 Then
'Target.Offset(0, 7).Select
Target.Range("D1,F1,H1").Select
Target.Range("H1").Activate
Else
Target.Offset(0, 10 - 7).Select
End If
End Select
End Sub
としてみると、7列目入力後に 14列目がアクティブに
なりますが、同時に 10列目と12列目が選択状態になって
いますので、一応 注目させることはできます。
|
|