Member
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
|

02.05.2018, 09:33
Цитата:
Сообщение от Сергей Иванов
Пример:
1 4 6 6 13 19(A1:F1) 19 13 6 4 1 6(H1:M1) ??????(O1:T1)=вместо вопросов должно быть 6 5 3 2 1 4
|
Именно эту задачу и решает мой код.
Если же взять файл, то
3,4,9,12,13,27
27,12,4, 3,9,13
6,4,2,1,3,5
возникает резонный вопрос, как может позиция первого элемента массива - 3 быть не 4, а 6
|
|
|
Member
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
|

02.05.2018, 09:57
Предположим в колонке А 100 линий заполненных номерами (3,6,21 и т.д..Значит им всем присвоен номер 1.Номерам в колонке В присвоен номер 2. И так до колонки F.
Номер 3 превратился в номер 1 номер 4 в 2 номер 9 в 3 номер 12 в 4 номер 13 в 5
и номер 27 в 6
Теперь посмотрим как они расположились в колонках H1:M1. Номер 27 стоит первым но ведь ему присвоен номер 6. Поэтому я и хочу увидеть это в колонке О1 и так с другими номерами. Номер 3 стоит в четвертой позиции в К1( номеру 3 присвоен номер или позиция 1 как хотите назовите это) поэтому в колонке R1 я и хочу увидеть номер или позицию 1. И так со всеми номерами во всех линиях
|
|
|
Member
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
|

02.05.2018, 10:03
Хотите получить результат из Вашего файла ? Тогда просто поменяйте массивы местами, разумеется, не на рабочем листе, а при обработке.
|
|
|
Member
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
|

02.05.2018, 10:19
Хочу но не знаю как это сделать
|
|
|
Member
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
|

02.05.2018, 10:38
Кто хочет, тот ищет возможности, кто не хочет - ищет причины (c) Сократ
Код:
Private Sub Test()
Dim a1, a2, a3, i&, r1&, c1&, c2&, t
a1 = [H1:M14].Value
a2 = [A1:F14].Value
ReDim a3(1 To UBound(a1), 1 To 6)
For r1 = 1 To UBound(a1)
For c1 = 1 To 6 'UBound(a2, 2)
t = a1(r1, c1)
For c2 = 1 To c1
If t = a1(r1, c2) Then i = i + 1
Next
a3(r1, c1) = mat_ch(t, a2, r1, i): i = 0
Next
Next
[V1:AA14].Value = a3
End Sub
Function mat_ch(t, a2, r1, i&)
Dim c1&, r2&
For c1 = 1 To 6 'UBound(a1, 2)
If a2(r1, c1) = t Then
r2 = r2 + 1
If r2 = i Then mat_ch = c1: Exit For
End If
Next
End Function
|
|
|
Member
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
|

02.05.2018, 10:59
Разве функция не должна быть перед End Sub?
Любите Вы себя причислять к великим. Мне это незачем
|
|
|
Member
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
|

02.05.2018, 11:08
Да, я привык общаться с умными людьми, и считаю, что голова дана человеку не только, чтобы в неё есть.
|
|
|
Member
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
|

02.05.2018, 11:22
Ну ну умный человечек. Простую задачку решаешь слишком долго
|
|
|
Member
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
|

02.05.2018, 11:32
Я её решил сразу, как получил от вас внятное об'яснение, дальше начался флуд, что якобы ничего не работает и т.д.
А делать за вас работу я не нанимался, просто я понял, что любые попытки помочь вам - обречены (ибо для вас помощь, это не подсказки, а готовое решение) поэтому, пользуйтесь готовым, а мне читать ваши вбросы .овна на вентилятор неинтересно, поэтому, для себя я эту тему закрываю.
|
|
|
Member
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
|

02.05.2018, 11:55
Цитата:
Сообщение от pashulka
Я её решил сразу, как получил от вас внятное об'яснение, дальше начался флуд, что якобы ничего не работает и т.д.
А делать за вас работу я не нанимался, просто я понял, что любые попытки помочь вам - обречены (ибо для вас помощь, это не подсказки, а готовое решение) поэтому, пользуйтесь готовым, а мне читать ваши вбросы .овна на вентилятор неинтересно, поэтому, для себя я эту тему закрываю.
|
Мальчишка. Я и просил готовое решение. Период. Единица за исполнение
|
|
|
Опции темы |
|
Опции просмотра |
Линейный вид
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
|