Страницы: 1
RSS
Вставить в строку с проверкой данных без форматирования.
 
Привет всем.
Задача вставить из буфера обмена в одну строку только цифры и без форматирования.
пока что вот так:
Код
Sub Вставить()
On Error GoTo 3
Range("$C$3").Select
    ActiveSheet.PasteSpecial Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
Range("$C$3").Select
Exit Sub
3
MsgBox "Нет данных"
End Sub

Не получается:
1- проверить данные на "только цифры"
2- вставлять только в одну строку C3:S3
Изменено: Stalevar - 23.07.2020 15:08:09
 
Привет
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
Borrusale,
Спасибо.
Не много не то.
Нужно что бы скопировав вот эту строку с html таблицы:
.1060.3700.2400.0150.0150.0910.0590.0600.0240
каждая цифра была на своём месте: 0.1060 в первой ячейке; 0.3700 во второй ячейке, и так далее.
Изменено: Stalevar - 27.07.2020 10:08:39
 
Добрый день.

Stalevar, для информации https://ru.wikipedia.org/wiki/%D0%A6%D0%B8%D1%84%D1%80%D1%8B
Изменено: vokilook - 27.07.2020 14:29:13
 
vokilook,Здравствуйте.
Копирую строку выше, нажимаю кнопку Вставить.
Пишет нет данных.
"Задача вставить из буфера обмена в одну строку только цифры и без форматирования"
По ссылке сходил, почитал, спасибо.
Изменено: Stalevar - 27.07.2020 14:53:54
 
Цитата
Stalevar написал:
"Задача вставить из буфера обмена в одну строку только цифры и без форматирования"
Изменено: vokilook - 27.07.2020 16:53:58
 
Привет.
Цифра означает один из следующих графических знаков: 0 1 2 3 4 5 6 7 8 9
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
Спасибо.
Страницы: 1
Наверх