マクロ例:セルの置き換えメッセージを止める |
複数のセルに一度にデータを書き込む処理するマクロを組んでいます。 OneRnage.cells(Row1,Col1).value = Data1 OneRnage.cells(Row2,Col1).value = Data2 ・ ・ ・ という具合に組むと、時間が長くかかりすぎます。 そこで、左側の列にその行全体のデータを書き込みした後、TextToColumns メソッドを使用して、右側の列へ展開するように変更しました。動作はうまくい きましたが、下のような確認メッセージが出てしまいます。 "コピーまたは移動先のセルの内容を置き換えますか?" なるべくユーザの手を煩わせたくないので、このメッセージを出さないで 済む方法はないでしょうか? |
Sub testTextToColumns() ActiveCell.Select Selection.Copy Application.DisplayAlerts = False ' メッセージの停止 ActiveSheet.Paste Selection.TextToColumns DataType:=xlDelimited, _ ConsecutiveDelimiter:=True, Space:=True Application.DisplayAlerts = True ' メッセージの停止解除 End Sub |