Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставить данные с любой из ячеек в одну определённую
 
#1
15.06.2021 03:04:17
Имеется задачка, в которой есть список с данными - две строки в ячейке.
Имеется самая верхняя ячейка, в которую надо по нажатии на определённую ячейку выводить данные нажатой ячейки, но без данных в скобках. Если можно, то хорошо бы каждую из двух строчек разделить на две переменные, чтобы между ними можно было свой текст вставить.
Заранее благодарен.
 
 
 
#2
15.06.2021 07:21:40
Ruskat, не понял немного, в модуль листа с данными, работает при двойном нажатии
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E2:E18")) Is Nothing Then
Dim arr, i As Long, tt As String
arr = Split(Target, Chr(10))
For i = LBound(arr) To UBound(arr)
    If tt = "" Then
        tt = Left(arr(i), InStr(arr(i), "(") - 1)
        
    Else
        tt = tt & vbCrLf & Left(arr(i), InStr(arr(i), "(") - 1)
    End If
Next i
Range("F1") = tt
Cancel = True
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
15.06.2021 21:55:59
Mershik, Благодарю. В общем - то.
Как еще для ячейки "F1" задать .WrapText = False - чтобы не переносился текст, как это берётся из содержащих ячеек?
Сделал так
Код
            With Range("F1")
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = True
            End With
И как текст до vbCrLf и после vbCrLf разделить на отдельные переменные, чтобы между ними можно было вписать свой текст?
Например: Выведены Данные 05 и Данные 06 .

Так же  о двойном нажатии: Как реализовать по одинарному нажатии?
Изменено: Ruskat - 15.06.2021 22:10:56
 
 
 
#4
15.06.2021 22:09:58
В общем-то, удачи  
Не бойтесь совершенства. Вам его не достичь.
 
 
 
Страницы: 1
Наверх