>WikiSysop в 09:24, 6 вересня 2011

2011-09-06T09:24:30Z

Нова сторінка

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

для примера, код, взятый с этого форума (автора не записал к сожалению), который назначает клавишам ctrl+shift+v действие "вставить как значение"

я его вставил в модуль в личной книге макросов и теперь при работе с любой книгой эксель у меня доступна эта фича :)
<pre>
Sub макрос1()
' сочетание клавиш: Ctrl+Shift+V

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
</pre>

а вот еще комплект

<pre>
' Автозапуск
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
</pre>

Excel - Історія редагувань

>WikiSysop в 09:24, 6 вересня 2011