Excel

Матеріал з Wiki.Zina
Перейти до навігації Перейти до пошуку

ctrl+shift+v - вставить как значение

[ред. | ред. код]

для примера, код, взятый с этого форума (автора не записал к сожалению), который назначает клавишам 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