[[20041021165752]] 『値だけをコピーしたい時のショートカットキー』(yama) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『値だけをコピーしたい時のショートカットキー』(yama)

[ショートカットキーについて]

Ctrl+Cでコピーし、Ctrl+Vで貼り付けできるが、そのセルに罫線があるとCtrl+Vでは全て(罫線も)を貼り付けてしまうので、値だけをコピーしたい時、どんなショートカットキーを使ったら良いのですか?

[エクセルのバージョン]
Excel2000


 私はアドインで利用していますが、個人用マクロブックでも良いかと思います。
 Ctrl + m です。

 Private Sub Workbook_Open()
    Application.OnKey "^{m}", "PasteValues" 
 End Sub

 Private Sub PasteValues()
 On Error Resume Next
    Selection.PasteSpecial Paste:=xlValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 End Sub

  (INA)


 厳密にはショートカットキーではありませんが。
「表示」>「ツールバー」>「ユーザー設定」のコマンドタブ選択、
「分類」より「編集」選択、
「コマンド」より、「値の貼付」コマンドボタンをポイントし、
マウスでメニューツールバーへドラッグアンドドロップ。
 
コマンドボタンのままだとボタンをクリックしないといけないので、
「選択したボタンの編集」で「テキストのみ表示」にチェックして
「閉じる」。
 
ツールバー上に「値の貼り付け(P)」と表示できていれば、
Altキーを押しながらPキーで「形式を選択して貼付」の「値貼付」が出来ます。
(アクセラレーションキーの設定)
「選択したボタンの編集」で「名前」の「値の貼り付け(&P)」の
「P」を任意の半角英数に書き換えることでキーを変更できます。
ただし、既存のメニューキーと重複しないようにしてください。
(みやほりん)


わかりました!どうもありがとうございます。


Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False だとExcel から外のアプリに貼り付かないことがあるので下記のほうがいいかもしれません
    With New DataObject
        .SetText Selection.Value
        .PutInClipboard
    End With
(けんさんめーる)

 >  With New DataObject
 >        .SetText Selection.Value
 >        .PutInClipboard
 >    End With

 この場合は参照設定を忘れないようにしましょう。
 でないとエラーになります。

 参照設定:Micrsoft Forms **** Object Library '****はエクセルのバージョンによって違ってくる

 (カリーニン)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.