| |
初めて投稿させて頂きます。
何度も挑戦した結果、どうしても解決できない為教えて頂けたら嬉しいです。
初心者ですので、宜しくお願い致します。
下記のように、シートが４０個ある為Workbookにしてあります。
５列・６列目・７列目入力後、B34が4だった場合
１４列目にセルを飛ばしてあります。
今回、７列目入力後にセルを１０列目に飛ばし、Enter後１２列目に飛ばし
Enter後１４列目入力後１５列目入力としたいです。
１０列目・１２列目は確認の為にセルを選択させたいので、入力はしません。
追加で、B34が5だった場合の処理を下記に追加させたいのですが
If Sh.Range("B34").Value = 4 and Sh.Range("B34").Value = 5 Then
で宜しいのでしょうか？
B34が5だった場合の処理は、７列目入力後に１０列目移動しEnter後
１２列目に移動し、Enter後１７列目に移動したいのです。
記述の仕方が、分かりません。
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
Else
Target.Offset(0, 10 - 7).Select
End If
End Select
End Sub
宜しくお願いします。
|
|
ニガ子
- 10/10/17(日) 21:23 -
