|
Asaki様、いつもお世話になっております。
ご教示いただいたコードでまったく問題ありません。
私の説明不足で恐縮ですが、例えば
Select Case modef
Case Is = 5
Workbooks(bookmei).Worksheets("enquete").Activate
Range("a65536").End(xlUp).Offset(1).Select
ActiveCell.Value = Selection.Row - 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtsentakutitle
ActiveCell.Offset(0, 1).Select
などのコードがあって(シートenrueteは非表示になっております)、いずれにせよシートをアクティブにすることからは避けられません(今の私の技術では)。
>Application.ScreenUpdating
あたりに解決のヒントが隠れていそうです。
ありがとうございます。
というか、表示、非表示に関係なく不具合が発生するようになってしまって、ちょっと収拾がつかなくなってきています。
あああああ(TT; )( ;TT)。なんなんだろう。
|
|