[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『実行エラ−1004対処』(忘れな草)
以前、作って頂いたコ−ドです。 A列に日付を入れると、横のB列に入力したときの時間がでます。 間違えて時間を消してしまう事があります。 保護をかけてみたのですが 実行エラ−1004になってしまいます。 宜しくお願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A6:M1000")) Is Nothing Then Exit Sub Dim r As Range Application.EnableEvents = False For Each r In Intersect(Target, Range("A6:M1000")) If IsDate(r.Value) = True Then r.Offset(, 1).Value = Time If r.Value = "" Then r.Offset(, 1).ClearContents Next Application.EnableEvents = True End Sub
< 使用 Excel:Excel2010、使用 OS:Windows7 >
方法は2つ。
1.処理前に保護を外し処理後に保護をかける。 保護を外したり保護をかけるコードはマクロ記録で取得できます。
2.ブックのOpenイベントあたりで、該当のシートに対して UserInterfaceOnly付きの保護をかける。 (βとしては、こちらを推奨) この場合の保護をかけるコードは、通常の保護をかけるコードに、引数として UserInterfaceOnly:=True を 加えるだけです。
(β) 2015/11/27(金) 14:51
こちらで継続 [[20151127155004]] 『コメント覧がつかえないです。& β様へ』(忘れな草) (マナ) 2015/11/28(土) 18:47
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.