|    | 
     ▼kanabun さん: 
 
レスありがとうございました。本当に助かりました。 
別の方法が、あるのかもと自分自身でも調べており諦めておりました。 
 
>7列目入力後に 14列目がアクティブに 
>なりますが、同時に 10列目と12列目が選択状態になって 
>いますので、一応 注目させることはできます。 
 
上記の様に確認できる為、また目につきますので問題ありません。 
 
もう1つ追加でお伺いしたいのですが、宜しいでしょうか? 
 
kanabunさんのアドバイスの元 
 
下記のようにB34が5だった場合も追加で入力したのですが・・・・ 
起動しないのです。 
 
If Sh.Range("B34").Value = 5 Then 
 Target.Offset(0, 7).Select 
 Target.Range("D1,F1,K1").Select 
 Target.Range("K1").Activate 
Else 
 Target.Offset(0, 10 - 7).Select 
End If 
End Select 
End Sub 
 
 
If Sh.Range("B34").Value = 4 and Sh.Range("B34").Value = 5 Then 
でないと駄目なのでしょうか?? 
記述の仕方が間違っているのでしょうか? 
宜しくお願い致します。 
 | 
     
    
   |