Добавка в ячейку слов - в определенном порядке, ориентируясь на другую ячейку

@Snegovik2 · Регистрация: 25.04.2018

Author24 — интернет-сервис помощи студентам

Добрый день, господа.
Помогите разобраться с непростым вопросом.

В ячейку "D9" записан текст:
текст(❶❷❸❹❺❻❼❽❾❿ ❶❶ ❶❷ ❶❸ ❶❹ ❶❺ ❶❻ )

В ячейку "F14" вписан текст:
"второй4+седьмой2+четвертый1+десятый1"

В диапазон G3:U3 вписаны слова "первый", "второй", "третий" и т.д. по возрастанию.
И под некоторыми ячейками этого диапазона - находится текст.

Как переместить текст из диапазона G4:U4 - в ячейку D9 - в том порядке, в каком стоят ключевые слова в ячейке F14 ?
То есть - сперва должен идти элемент текста под ячейкой с текстом "второй", затем элемент текста который находится по ячейкой с текстом "седьмой", затем текст под ячейкой "Четвертый", затем текст под ячейкой "десятый".

В результате должен получиться результат:
"текст(❶tyu5 try7❷5h❸fj!-4❹5463❺❻❼❽❾❿ ❶❶ ❶❷ ❶❸ ❶❹ ❶❺ ❶❻ )"

@tmash · 16.02.2019, 09:35

Привет!

В ячейке D9 между цифрами нет пробелов, а между числами есть - это тормозит поток решения ...

@Snegovik2 · 16.02.2019, 10:14 **[ТС]**

tmash, и что делать ?

@Alex77755 · 16.02.2019, 11:11

В ячейке D9 между цифрами нет пробелов

Там вообще цифр нет!

@Alex77755 · 16.02.2019, 11:17

"второй4+седьмой2+четвертый1+десятый1"

Какую функцию выполняют тут цифры? Вроде нигде не используются

@tmash · 16.02.2019, 11:18

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

что делать ?

Спасибо за вопрос - почувствовал себя Чернышевским :-)
Произвести объектную декомпозицию задачи и вопросы про объекты-артефакты подкладывать их в форум.

@Snegovik2 · 16.02.2019, 11:26 **[ТС]**

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

Какую функцию выполняют тут цифры?

Вот смотрите.
Этот текст "второй4+седьмой2+четвертый1+десятый1" - описывает порядок расположения слов.
Какое слово идет первым, какое слово должно идти вторым, какое третьим, а какое четвертым.
Цифры здесь остались от другого макроса - который выравнивает эти слова - по величине числа, стоящего рядом со словом.

Текст "второй4" - имеет число 4, которое здесь самое большое - и поэтому слово стоит первым.
А вот текст "седьмой2" - уже имеет число 2 - которое второе по величине - и поэтому слово идет вторым.

То есть эта строчка - "второй4+седьмой2+четвертый1+десятый1" - определяет порядок расположения слов.

@Alex77755 · 16.02.2019, 12:23

Visual Basic

Sub qwert()
    Dim sl: Set sl = CreateObject("Scripting.Dictionary")
    s = [g3..u4].Value
    For i = 1 To UBound(s, 2)
        t = s(2, i)
        If Len(t) > 0 Then
            sl(s(1, i)) = t
        End If
    Next i
    f = [f14]
    For i = 0 To 9
        f = Replace(f, i, "")
    Next i
    s = Split(f, "+")
    ss = [d9].Value
    
    i = 0
    k = 0
    Do
        i = i + 1
     
        If i >= Len(ss) Then Exit Do
        j = Mid(ss, i, 1)
        t = AscW(j)
        If t > 10100 Then
            tt = sl(s(k))
            ss = Left(ss, i) & tt & Mid(ss, i + 1)
        Debug.Print Len(ss), ss
            k = k + 1
            If k > UBound(s) Then Exit Do
        End If
    Loop
    [d22] = ss
End Sub

Добавлено через 2 минуты
на этом сайте какой-то глюк: я не могу просмотреть часть своего сообщения скрытого спойлером (+)

Добавлено через 53 секунды
Убрал тег спойлера

@Snegovik2 · 16.02.2019, 12:48 **[ТС]**

Alex77755, почему-то не работает для количества слов больше 10.
То есть для текста "второй4+седьмой2+четвертый1+десятый1+первый1+третий1+пятый1+шестой1+восьмой1+од инадцатый1+двенадцатый1"

Выдает результат:
текст(❶tyu5 try7❷5h❸fj!-4❹5463❺1❻1❼1❽1❾1❿1 ❶1❶ ❶❷ ❶❸ ❶❹ ❶❺ ❶❻ )

Хотя на 11 отметке должно быть
текст(❶tyu5 try7❷5h❸fj!-4❹5463❺1❻1❼1❽1❾1❿1 ❶❶1 ❶❷ ❶❸ ❶❹ ❶❺ ❶❻ )

@Alex77755 · 16.02.2019, 14:17

Хотя на 11 отметке должно быть

Это ещё почему?
Все значения вставляются после картинки с цифрой

@Alex77755 · 16.02.2019, 14:24

что бы не путаться скопировал значения

@Snegovik2 · 16.02.2019, 14:26 **[ТС]**

Alex77755, ну там же - видите - поскольку нет одиночного символа одиннадцати ❿, то такой одиночный символ - заменен двумя символами ❶❶ - как имитация "11".
Потому что по-другому не получается написать.

Можно как-то задать в вашем макросе условие - что если слов больше десяти, то нужно вставлять текст от десятого слова и выше - не после одного символа ❶, а после двух символов - навроде ❶❶ ?

@Alex77755 · 16.02.2019, 14:26

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

❶❶

Это не 11
Это просто 2 символа

@Snegovik2 · 16.02.2019, 14:26 **[ТС]**

Alex77755, ну там же - видите - поскольку нет одиночного символа одиннадцати ❿, то такой одиночный символ - заменен двумя символами ❶❶ - как имитация "11".
Потому что по-другому не получается написать.

Можно как-то задать в вашем макросе условие - что если слов больше десяти, то нужно вставлять текст от десятого слова и выше - не после одного символа ❶, а после двух символов - навроде ❶❶ ?

@Alex77755 · 16.02.2019, 14:28

Можно как-то задать в вашем макросе условие?

Можно! задавайте! Я не возражаю!

@Snegovik2 · 16.02.2019, 14:39 **[ТС]**

Alex77755, а как это сделать ?

@Alex77755 · 16.02.2019, 14:44

Условие задаётся оператором if

@Snegovik2 · 16.02.2019, 14:47 **[ТС]**

Alex77755, а в макросе его куда поставить ?

@Alex77755 · 16.02.2019, 14:55

в нужное место. Перед формированием (вставкой блока символов) строки

@Snegovik2 · 16.02.2019, 15:05 **[ТС]**

Alex77755, вот теперь - просто все именно так как нужно.
Огромное вам спасибо.

Вы действительно - выдающийся программист нашей эпохи !

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 14:26	13
	Сообщение от Snegovik2 ❶❶ Это не 11 Это просто 2 символа 0

@tmash 35 / 30 / 6 Регистрация: 21.08.2015 Сообщений: 121
	16.02.2019, 09:35	2
	Привет! В ячейке D9 между цифрами нет пробелов, а между числами есть - это тормозит поток решения ... 0

@Snegovik2 12 / 0 / 0 Регистрация: 25.04.2018 Сообщений: 62
	16.02.2019, 10:14 [ТС]	3
	tmash, и что делать ? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 11:11	4
	В ячейке D9 между цифрами нет пробелов Там вообще цифр нет! Изображения 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 11:17	5
	"второй4+седьмой2+четвертый1+десятый1" Какую функцию выполняют тут цифры? Вроде нигде не используются 0

@tmash 35 / 30 / 6 Регистрация: 21.08.2015 Сообщений: 121
	16.02.2019, 11:18	6
	Сообщение от Snegovik2 что делать ? Спасибо за вопрос - почувствовал себя Чернышевским :-) Произвести объектную декомпозицию задачи и вопросы про объекты-артефакты подкладывать их в форум. 0

@Snegovik2 12 / 0 / 0 Регистрация: 25.04.2018 Сообщений: 62
	16.02.2019, 11:26 [ТС]	7
	Сообщение от Alex77755 Какую функцию выполняют тут цифры? Вот смотрите. Этот текст "второй4+седьмой2+четвертый1+десятый1" - описывает порядок расположения слов. Какое слово идет первым, какое слово должно идти вторым, какое третьим, а какое четвертым. Цифры здесь остались от другого макроса - который выравнивает эти слова - по величине числа, стоящего рядом со словом. Текст "второй4" - имеет число 4, которое здесь самое большое - и поэтому слово стоит первым. А вот текст "седьмой2" - уже имеет число 2 - которое второе по величине - и поэтому слово идет вторым. То есть эта строчка - "второй4+седьмой2+четвертый1+десятый1" - определяет порядок расположения слов. 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 14:17	10
	Хотя на 11 отметке должно быть Это ещё почему? Все значения вставляются после картинки с цифрой Миниатюры 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 14:24	11
	что бы не путаться скопировал значения Миниатюры 0

@Snegovik2 12 / 0 / 0 Регистрация: 25.04.2018 Сообщений: 62
	16.02.2019, 14:26 [ТС]	12
	Alex77755, ну там же - видите - поскольку нет одиночного символа одиннадцати ❿, то такой одиночный символ - заменен двумя символами ❶❶ - как имитация "11". Потому что по-другому не получается написать. Можно как-то задать в вашем макросе условие - что если слов больше десяти, то нужно вставлять текст от десятого слова и выше - не после одного символа ❶, а после двух символов - навроде ❶❶ ? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 14:28	15
	Можно как-то задать в вашем макросе условие? Можно! задавайте! Я не возражаю! 0

	16.02.2019, 15:05

@Snegovik2 12 / 0 / 0 Регистрация: 25.04.2018 Сообщений: 62
	16.02.2019, 14:39 [ТС]	16
	Alex77755, а как это сделать ? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	16.02.2019, 14:44	17
	Условие задаётся оператором if 0

@Snegovik2 12 / 0 / 0 Регистрация: 25.04.2018 Сообщений: 62
	16.02.2019, 14:47 [ТС]	18
	Alex77755, а в макросе его куда поставить ? 0

@Snegovik2 12 / 0 / 0 Регистрация: 25.04.2018 Сообщений: 62
	16.02.2019, 15:05 [ТС]	20
	Alex77755, вот теперь - просто все именно так как нужно. Огромное вам спасибо. Вы действительно - выдающийся программист нашей эпохи ! 0

Добавка в ячейку слов - в определенном порядке, ориентируясь на другую ячейку

Решение