|
わたしがUpしたコードと、もともとはっしー さんがご提示になったコードを見比べて、
ご研究いただいて、Activate/Select しないように、コードを書き換える方が、後々よさそうです。
すぐには難しいかもしれませんが、上位オブジェクトをきちんと指定した方が、
誤動作の原因になりにくいと思います。
>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
↓
Select Case modef
Case 5
With Workbooks(bookmei).Worksheets("enquete").Range("a65536").End(xlUp).Offset(1)
.Value = .Row -1
.Offset(,1).Value = txtsentakutitle
End With
|
|