Вставка в TextBox > вывод в яцейку (диапазон)

[Евгений Таб]

Коллеги добрый день!

Похожей задачи не встречал еще.
Прошу помощи!

Дано, диапазон данных, в буфере, скопирован.
Нужно все (!) это вставить в тесктбокс на форме(не могу понять как), нажать на кпопку на форме и записать это в ячейку (вероятно сначала присврить переменную) примерчик во вложении.

Спасибо!

[vefer]

А зачем такая сложная схема? Вам просто в одну ячейку все это поместить надо, или еще это куда то пойдет?

[Евгений Таб]

Просто в одну. Но через форму. И присвоить значение.

[Евгений Таб]

Помогите люди добрые

[pashulka]

Private Sub CommandButton1_Click() 'Из буфера обмена в TextBox
    TextBox1.MultiLine = True 'Можно изменить вручную
    TextBox1.Paste
End Sub

Private Sub CommandButton2_Click() 'Из TextBox в ячейку
    Dim iText$
    iText = Replace(TextBox1, Chr(9), Chr(32))
    iText = Replace(iText, vbCrLf, vbLf)
    Range("A1") = Left(iText, Len(iText) - 1)
End Sub

P.S. Не рекомендуется тестировать на несмежных диапазонах

[Евгений Таб]

Браво! полет нормальный)

[Евгений Таб]

Не могу что поменять, чтобы не через табуляцию сцеплялось, а через землю к примеру?

PHP код:

Private Sub CommandButton2_Click() 'Из TextBox в ячейку
    Dim iText$
    iText = Replace(TextBox1, Chr(9), Chr(32))
    iText = Replace(iText, vbCrLf, vbLf)
    Range("A1") = Left(iText, Len(iText) - 1)
End Sub 


[pashulka]

Если земля это _ то

Replace(TextBox1, Chr(9), Chr(95))

или

Replace(TextBox1, "    ", "_")