EXCEL2000 VBA 「入力、数式」の有るセルを選択出来ないようにする。実験

EXCEL2000 VBA 「入力、数式」の有るセルを選択出来ないようにする。実験

再生できない場合、ダウンロードは🎥こちら

背景色が黄色のセルは数式が設定されている。

 

'入力有るセル、数式の有るセルを選択したら移動する

'数式の場合は右に移動、入力が有れば下に移動

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo owari

If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select

If Target <> "" Then ActiveCell.Offset(1, 0).Select

owari:

End Sub

 

解除はシートイベントを無効にする。
関連記事　　http://telstar.blog.so-net.ne.jp/2011-09-06

 

タグ：Excel2000 VBA