команда для переноса текста из буфера обмена в ячейку - Страница 2

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/команда для переноса текста из буфера обмена в ячейку - Страница 2 - Мир MS Excel

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

команда для переноса текста из буфера обмена в ячейку (Формулы/Formulas)

команда для переноса текста из буфера обмена в ячейку

krosav4ig

Дата: Воскресенье, 30.11.2014, 18:48 | Сообщение № 21

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 996 ±

Замечаний: 0% ±

Excel 2007,2010,2013

ну и от меня 5 копеек
[vba]

Код

Private Declare Function ICFA Lib "user32" Alias "IsClipboardFormatAvailable" (ByVal uFormat As Long) As Long
Sub qwe()
        If ICFA(1) Or ICFA(7) Or ICFA(13) Then
            With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
                .GetFromClipboard
                ActiveCell = ActiveCell & " " & .GetText
            End With
        End If
End Sub

[/vba]и
[vba]

Код

Sub rty()
Application.SendKeys ("{F2} ^v{ENTER}")
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 01.12.2014, 10:16

Ответить

команда для переноса текста из буфера обмена в ячейку (Формулы/Formulas)

Страница 2 из 2
«
1
2