|
Select Caseのなかで次のような記述で処理は可能なのですが…
実行するとセルに移動して処理するため、非常に見苦しく感じます。
Select Case kubun
Case 1
Sheet1.Unprotect password:=""
Targetcell.Offset(0, 2).Select
Selection.Locked = False
Targetcell.Offset(0, 5).Select
Selection.Locked = False
Targetcell.Offset(0, 8).Select
SendKeys "{DEL}", True
Selection.Locked = True
Targetcell.Offset(0, 12).Select
SendKeys "{DEL}", True
Selection.Locked = True
Targetcell.Offset(0, 14).Select
SendKeys "{DEL}", True
Selection.Locked = False
Targetcell.Select
Sheet1.Protect password:=""
データの削除は Targetcell.Offset(0, 2).value = Null
で可能だと思うのですが…
セルの保護オン・オフについては セル選択してからSelection.Locked = True
で実行しないと、うまく動作せず前記のような記述になりました。
何か別の方法はないのでしょうか?お知恵を貸して下さい。
宜しくお願い致します。
|
|