|
りんさん またまた有り難う御座います
そして申しわけありません 結合が影響するとは思いませんでした…
確かにTargetcellとOffsetがらみのセルは全て結合セルでした。
まずはMergeAreaに修正した結果のご報告です
☆☆☆です無事に動きました〜♪
無事に動くのですがシートの保護でもう少し質問させて下さい。
まず .Parent.Unprotect Password:=""と
Sheet1.Unprotect Password:="" の違いが判りません
それと.Parent.Unprotect Password:=""を
Select Caseの前と外に設定すれば、複数あるCaseの内側に書くより
簡単と思い試しましたが、エラーの連続でパニックになりました。
またSelect Caseの内側と最後のEnd Selectの前も同じ結果で、
ますますパニック状態に…
たぶん.Parent.Unprotect Password:=""と
Sheet1.Unprotect Password:="" の違いが問題かと思い、
教えて頂いた.Parent.Unprotect Password:=""を使わず
Sheet1.Unprotect Password:=""を試すと、
Private Sub Workbook_Open()内の記述がエラーに…
ここで最悪の状態になりました。
このブックマクロでは Sheet1.Unprotect Password:=""が殆どで
各所に使用しております。
教えて頂いたコードのマクロは同じシートの
Private Sub Worksheet_Change(ByVal Target As Range)の中で動かしています。
流れをご説明しますと、ブックのPrivate Sub Workbook_Open()で
同じシートの別な単独セルに、
Sheet1.Unprotect Password:=""
の処理後に文字を自動で入力しています。
Sheet1.Protect Password:="" で終了しています
従って、Workbook_OpenでWorksheet_Changeイベントが発生するのですが
範囲を設定して、ターゲットセルでない場合は
教えて頂いたコードのマクロは動きません
またフォームのボタンでもtargetcellに1桁の数字を
下方向に自動で連続入力しています
この場合 Worksheet_Changeイベントのターゲットセル範囲であるため
教えて頂いたコードのマクロが動くことになります。
このようにいろいろな箇所でシートの保護と解除をしながらなので
パニック解消に苦労しました。
以上、結果のご報告です。
時間がありましたら、質問にご回答頂ければ幸いです。
PS 当方環境 WinXP EXCEL2000です。
|
|