Замена текста

[Lived08]

Доброго времени суток!

Подскажите как можно и можно ли сделать так чтоб в ячейке после ввода данных (пример : 2-2-2 или 2 2 2) в ней появлялось значение (пример : 2 начало 2 середина 2 конец, здесь начало,середина,конец константы) или хотя бы в другой ячейке

ЗЫ спасибо за помощь !

[EugeneS]

да, можно ...

[Lived08]

Сообщение от EugeneS

да, можно ...

а примерчик можно буду очень благодарен

[EugeneS]

уточните, пожалуйста, вводим в ячейку:
2 2 2 или 2-2-2
получаем
222
все верно?

[Lived08]

Сообщение от EugeneS

уточните, пожалуйста, вводим в ячейку:
2 2 2 или 2-2-2
получаем
222
все верно?

нет нужно получить из (2 2 2) к примеру (2 улица 2 дом 2 квартира) где улица,дом,квартира - это постоянные значения

[EugeneS]

Сообщение от Lived08

нет нужно получить из (2 2 2) к примеру (2 улица 2 дом 2 квартира) где улица,дом,квартира - это постоянные значения

какое решение Вам необходимо: формулами Эксель или макросами (для большого количества данных)

[Lived08]

Сообщение от EugeneS

какое решение Вам необходимо: формулами Эксель или макросами (для большого количества данных)

без разницы главное чтоб работали не откажусь от двух вариантов чтоб больше не беспокоить этим вопросом

[аналитика]

правой кнопкой по ярлыку листа - Исходный текст, туда вставишь это:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim i As Integer, s1 As Integer, s2 As Integer
   Dim n1 As String, n2 As String, n3 As String
   
   On Error Resume Next
   
   For i = 1 To Len(Target)
      If s1 > 0 And Mid(Target, i, 1) = " " Then s2 = i: Exit For
      If s1 = 0 And Mid(Target, i, 1) = " " Then s1 = i
   Next i

   n1 = Left(Target, s1 - 1)
   n2 = Mid(Target, s1 + 1, s2 - s1 - 1)
   n3 = Right(Target, Len(Target) - s2)
   
   If Err > 0 Then Exit Sub
   
   Application.EnableEvents = False
   Target = n1 & " улица, " & n2 & " дом, " & n3 & " квартира"
   Application.EnableEvents = True
End Sub

никаких проверок нет, рассчитано на эту конкретику
как-то кривенько выглядит, но так...

[EugeneS]

Сообщение от Lived08

без разницы главное чтоб работали не откажусь от двух вариантов чтоб больше не беспокоить этим вопросом

Код макроса:

Sub main()
Dim i As Long: i = 1: For Each x In Range([a1], Cells(ActiveSheet.UsedRange.Rows.Count, 1))
a = Split(x, " "): Cells(i, 2) = a(0) & " улица " & a(1) & " дом " & a(2) & " квартира ": i = i + 1
Next: End Sub

Данные для обработки располагаются в столбце "А". На сайте сейчас тех. неполадки, поэтому файл с макросом выложить не могу. Начнет работать - выложу

[аналитика]

строго Split, вылетело из головы
ай-яй-яй