Вставить только значения и Вставить с транспонированием

Данный код добавляет в контекстное меню ячейки два новых действия:

1. Вставить только значения;
2. Вставить значения с транспонированием.

Нижеуказанный макрос лучше всего поместить в "личную книгу макросов" (PERSONAL)

В модуль "ЭтаКнига" файла PERSONAL вставляем:

Private Sub Workbook_Open()
  MyComBars
End sub

Также создаем новый модуль (в книге PERSONAL), в который помещаем следующий код:

Option Private Module
 
Sub MyComBars()
     Application.CommandBars("cell").Reset    'возвращаем стандартный ComBars
    With Application.CommandBars("cell").Controls.Add(Type:=1, Before:=5)
         .OnAction = "PasteValues"    ' назначаем кнопке макрос
        .Caption = "Вставить значения"
     End With
 
     With Application.CommandBars("cell").Controls.Add(Type:=1, Before:=6)
         .OnAction = "PasteTranspose"    ' назначаем кнопке макрос
        .Caption = "Вставить с транспонированием"
     End With
End Sub
 
Sub PasteValues()
On Error Resume Next
     Selection.PasteSpecial Paste:=xlPasteValues
End Sub
 
Sub PasteTranspose()
On Error Resume Next
     Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True
End Sub

by LightZ

Вложения:

MyComBars.xls

39 КБ

23705 просмотров

Отправить комментарий

Ваше имя:

E-mail:

Содержание этого поля является приватным и не предназначено к показу.

Комментарий: *

Уведомлять меня о новых комментариях

CAPTCHA

Подтвердите, пожалуйста, что вы - человек:

  ____                ____     __              ___  
 |  _ \   _ __ ___   / ___|   / /_    _ __    ( _ ) 
 | | | | | '_ ` _ \  \___ \  | '_ \  | '_ \   / _ \ 
 | |_| | | | | | | |  ___) | | (_) | | | | | | (_) |
 |____/  |_| |_| |_| |____/   \___/  |_| |_|  \___/

Введите код, указанный выше: *

Введите код, изображенный в стиле ASCII-арт.

Вставить только значения и Вставить с транспонированием

Комментарии

Отправить комментарий

НАДСТРОЙКИ ДЛЯ EXCEL