Скопировать выделенную часть ячейки!

[nikolai_P]

Добрый день!

Подскажите как скопировать ВЫДЕЛЕННУЮ ЧАСТЬ ячейки?

[SAS888]

Через буфер обмена. А кто выделяет часть ячейки?

[nikolai_P]

Алгоритм выглядит следующим образом.
Человек щелкает два раза по ячейки, выделяет нужный кусок текста, затем нажимает правой кнопкой, выбирает в контекстном меню "отправить" и далее макрос копирует выделенный диапазон в нужное место (к примеру на лист "Справочник" в последнюю пустую ячейку)

[SAS888]

А команду "отправить" в контекстном меню Вы сами назначили?
По этой команде копируйте в буфер обмена выделенный текст. Затем вставляйте куда нужно. Так, например, следующий код выведет в окно сообщений Excel данные, находящиеся в буфере обмена:

Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard
    MsgBox MyDataObj.GetText

Не забудьте предварительно подключить библиотеку "Microsoft Forms 2.0 object".

[EducatedFool]

Добавить пункт в контекстное меню можно так:

Sub ДобавлениеПунктаВМеню()
    CommandBars("Formula Bar").Reset
    Dim contr As CommandBarButton
    Set contr = CommandBars("Formula Bar").Controls.Add(1, , "test", 1, False)
    contr.Enabled = True: contr.Caption = "Отправить по почте": contr.FaceId = 24
    ' contr.OnAction = "test2"
End Sub

Вот только при работе с текстом внутри ячейки, насколько я помню, Excel блокирует обработку всех команд, поэтому, несмотря на то, что пункт в контекстное меню добавился, и он доступен, макрос, назначенный этой кнопке контекстного меню, не срботает...

[SAS888]

Excel блокирует обработку всех команд, поэтому, несмотря на то, что пункт в контекстное меню добавился, и он доступен, макрос, назначенный этой кнопке контекстного меню, не срботает...

Совершенно верно. Поэтому, нужно выделять требуемую часть данных ячейки, копировать в буфер обмена, затем выходить из режима редактирования ячейки и запускать Ваш макрос уже каким-то другим способом. При этом данные, находящиеся в буфере обмена будут доступны.

[nikolai_P]

Почему-то не смог найти у себя библиотеку "Microsoft Forms 2.0 object". У меня Офис 2007. Может она как-то по другому называться?

Буду признателен если скините действующий пример

[nikolai_P]

Уважаемые SAS888 и EducatedFool!
У меня было предчувствие, что я получу такой ответ, вот только невольно хочется спросить:
"Когда по выделенному тексту в ячейки кликаешь правой кнопкой появляется контекстное меню, в котором активны кнопки"вырезать", "копировать" ... Разве это не макросы?

[EducatedFool]

Когда по выделенному тексту в ячейки кликаешь правой кнопкой появляется контекстное меню, в котором активны кнопки"вырезать", "копировать" ... Разве это не макросы?

Это не макросы. Это встроенные функции Excel. А встроенные функции вызываются совершенно иначе..

Если Вы запускали макрос ДобавлениеПунктаВМеню, то могли видеть, что он создаёт такой же пункт меню, как и остальные.

Но на время редактирования ячейки макросы недоступны, поскольку Вы фактически работаете не с листом, а с нарисованным поверх него комбобоксом. А когда Excel создаёт подобные элементы поверх листа, он блокирует всю свою функциональность, кроме непосредственно обработчиков событий комбобокса.