「可視セルのみに値貼り付け」ショートカットキーに追加
〜Creating shortcut for Pasting Value to Visible cell by VBA〜

「可視セルのみに値貼り付け」ショートカット(Ctrl+b)に追加

Sub 可視セルのみに値貼り付け() 
' 
' 可視セルのみに値貼り付け Macro 
' 
' Keyboard Shortcut: Ctrl+b 
' 
    '複数のセル範囲が選択されているかを判定する() 
  If Selection.Count = 1 Then 
    Selection.PasteSpecial Paste:=xlPasteValues
   
  Else 
    Selection.SpecialCells(xlCellTypeVisible).Select 
    Selection.PasteSpecial Paste:=xlPasteValues
  End If 
End Sub

マクロのオプションからショートカットキー(Ctrl + b)の登録を忘れずにお願いします。

《動作イメージ》

「可視セルのみに値貼り付け」ショートカットキーに追加するマクロ 詳細

任意のセルをコピーし、任意のセルに貼り付けるExcelショットカットキーの追加方法の紹介です。
これまで必要だった、貼り付け後のマウス操作を減らせます。

可視セルへの貼り付けのみ有効としています。
フィルターした後、非表示で隠れているセルへの貼り付けを回避できます。

使用方法。(一般的なショートカットと同様です)
コピーしたい範囲をコピーし、貼り付け先のセルを選択。
これから設定するショットカットキー(Ctrl+b)を入力。

STEP 1. VBAに新規の標準モジュールを挿入。

VBAに標準モジュールの追加

  1. VBAを起動。もしくは Alt + F11
  2. VBA Project (PERSONAL.XLSB)
    =>標準モジュールを右クリック
    =>挿入
    =>標準モジュールを選択 【Personalに登録することでどのExcelファイルでも起動可能に】

STEP 2. 新規標準モジュールに下のコードを貼り付け

新規標準モジュールに下記のコードを貼り付け、VBAを保存し閉じて下さい。

Sub 可視セルのみに値貼り付け() 
' 
' 可視セルのみに値貼り付け Macro 
' 
' Keyboard Shortcut: Ctrl+b 
' 
    '複数のセル範囲が選択されているかを判定する() 
  If Selection.Count = 1 Then 
    Selection.PasteSpecial Paste:=xlPasteValues
   
  Else 
    Selection.SpecialCells(xlCellTypeVisible).Select 
    Selection.PasteSpecial Paste:=xlPasteValues
  End If 
End Sub

保存して、VBAを閉じて下さい。

STEP 3. マクロ オプションからショートカットキーの登録

1) 開発タブのマクロから〔PERSONAL.XLSB!可視セルのみに値貼り付け〕を選択し、
  オプションをクリック。

2) ショートカットキーを登録。

以上でマクロの登録は完了です。貼り付けを使用する時に使ってみて下さい。

ショットカットキーの割り振りを変更したい。

サンプルでは貼り付けショートカットキー【Ctrl + v】の隣。【Ctrl + b】を割り振っていますが、
【Ctrl + b】は太文字のショートカットキーが元々割り振られています。
違うショートカットキーを割り振りたい場合は、Step. 3のショートカットキーの割振りを変更して下さい。
例)' Keyboard Shortcut: Ctrl+b =>' Keyboard Shortcut: Ctrl+Shift+V

マクロの解説

Selection.PasteSpecial Paste:=xlPasteValues
  「値」貼り付けの形式で、任意の選択した位置へ貼り付けを実行。

Selection.SpecialCells(xlCellTypeVisible).Select
  可視セルの範囲指定を実行。
貼り付けを行うセルを、可視セルのみと指定することで非表示セルに間違えて貼り付けを行うことを回避しています。

注意点
可視セルのみへの貼り付けは、コピー元セルが1つの場合のみ有効です。
複数セルをコピーしている場合は、そのまま値貼り付けされます。(要望があれば、回避したマクロを記載します。)

コメント

  1. THC gummies より:

    Having read this I believed it was very informative. I appreciate you spending
    some time and energy to put this content together.
    I once again find myself personally spending a lot of time both
    reading and posting comments. But so what, it was still worthwhile!

    Feel free to visit my blog THC gummies

タイトルとURLをコピーしました