Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150403184248]]
- #score: 9211
- @digest: 71406cf527fc0ab2fc9a3b7d0f1f30b1
- @id: 67691
- @mdate: 2015-04-04T07:50:58Z
- @size: 2568
- @type: text/plain
- #keywords: 備: (4947), 立派 (4154), クニ (2346), enableevents (2094), 入() (2006), 派な (1985), テク (1948), 証不 (1537), 行挿 (1226), タシ (1147), ニッ (1103), application (1051), 貼付 (950), 意見 (919), 単一 (838), 不十 (832), target (813), entirerow (779), 一セ (778), 挿入 (751), 心配 (589), な書 (545), officetanaka (517), 準備 (505), 保護 (500), テン (466), トシ (435), address (421), windows8 (414), 記コ (411), 十分 (379), 書式 (353)
- 『値のみ貼付け』（かずたくそう）
複数で作業をする表があります。表が壊れないよう ネットで調べて、値のみ貼付けが出来るよう下記の コードを使用していますが、行の挿入が出来なくなって しまい困っています。下記コードを変更して行の挿入を 出来るようにしたいのですが、よろしくお願いします。 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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150403184248.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97017 documents and 608140 words.
訪問者：