Excel
Перейти до навігації
Перейти до пошуку
для примера, код, взятый с этого форума (автора не записал к сожалению), который назначает клавишам ctrl+shift+v действие "вставить как значение"
я его вставил в модуль в личной книге макросов и теперь при работе с любой книгой эксель у меня доступна эта фича :)
Sub макрос1() ' сочетание клавиш: Ctrl+Shift+V Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
а вот еще комплект
' Автозапуск
Sub Auto_Open()
Call SetOnKeys
End Sub
' Установка нового обработчика для Ctrl-Shift-V
Sub SetOnKeys()
Application.OnKey "^+{V}", "PasteValues"
End Sub
' Новый обработчик для Ctrl-Shift-V = копирование значений / преобразование в значения
Sub PasteValues()
With Application
If .CutCopyMode Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
Selection.Value = Selection.Value
End If
End With
End Sub