[[20150403184248]]　『値のみ貼付け』（かずたくそう）　ページの最後に飛ぶ

『値のみ貼付け』（かずたくそう）

 複数で作業をする表があります。表が壊れないよう
ネットで調べて、値のみ貼付けが出来るよう下記の
コードを使用していますが、行の挿入が出来なくなって
しまい困っています。下記コードを変更して行の挿入を
出来るようにしたいのですが、よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Count = 1 Then Exit Sub
Application.EnableEvents = False
Application.Undo
ActiveCell.PasteSpecial xlPasteValues
Application.EnableEvents = True
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 >値のみ貼付けが出来るよう

 ということですが、単一セルでは普通に数式入力できますけれど、それは想定動作ですか？
 また、数式のオートフィルや、複数セルのコピーなどは問題ありませんか。

 それはさておき、マクロを使っての挿入や削除はどうでしょうか。

 Sub 行挿入()
    Application.EnableEvents = False
    Selection.EntireRow.Insert
    Application.EnableEvents = True
 End Sub

 のようにイベントを止めて処理すれば、可能だとは思います。

（Mook） 2015/04/03(金) 21:17

 失礼します。

 いろんな掲示板で、この手の工夫につき質問があがっています。
 「学校」でも、過去に何度かあったような記憶が。

 その際のテクニックはテクニックとして、そういったケースで、皆さんから寄せられる意見に

 「皆で操作するシートに、きれいで立派な書式を設定しておくから、壊しては困るという話になる。
　入力するシートは、なんの変哲もない、ふつうのデータシートにしておけば、たとえコピペでどんな書式になろうがなるまいが
　全く問題はないよね。で、人様に見せる立派な報告書に仕立て上げたいなら、このデータシートから
　書式がととのったテンプレートシートを使って作り上げればなんの心配もなくなるのでは？」

 という意見が、決して少なくなかったことを、参考までに。

（β） 2015/04/03(金) 21:44

（Mook）さん　ありがとうございました。
（β）さん　ありがとうございました。考えてみます。

検証不十分で問題あるかもしれませんが。

 準備：
http://officetanaka.net/excel/function/tips/tips61.htm

 1)全セル選択
 2)セル書式設定ー保護ーロックにチェック
 3)校閲タブー変更ー範囲の編集の許可で範囲追加
 4)シート保護で行挿入にチェック

 マクロ:
 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v

    On Error Resume Next
    If Target.EntireRow.Address = Target.Address Then
        If Application.CutCopyMode = False Then Exit Sub
    End If

    Application.EnableEvents = False
    v = Target.Value
    Application.Undo
    Target.Value = v
    Application.EnableEvents = True
 End Sub

（マナ） 2015/04/04(土) 16:50

コメント返信：

[ 一覧(最新更新順) ]

[[20150403184248]] 『値のみ貼付け』（かずたくそう） ページの最後に飛ぶ

[[20150403184248]]　『値のみ貼付け』（かずたくそう）　ページの最後に飛ぶ