Копировать и вставлять значения только в лист Excel - PullRequest
Новая
       33

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

0 голосов
/ 03 октября 2019

Мне нужно только вставить значения в ячейку. поэтому я манипулирую клавишей Ctrl + V для запуска следующего макроса.

Существует три возможности копирования текста.

  1. Копирование из Интернета
  2. копирование изв листе Excel
  3. вырезано из листа Excel

Проблема со следующим макросом - работает только одно условие (копия на листе). что я должен изменить, чтобы получить необходимые результаты?

Обновлено: 

Sub PasteSP()
Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard

    Select Case Application.CutCopyMode
        Case Is = xlCopy

        Selection.Cells.PasteSpecial xlPasteValues

        Case Is = xlCut

        Selection.Cells.Paste ''Now problem lies here

        Case Is = False

            Selection.Value = DataObj.GetText(1)

    End Select

End Sub
...