Сравнение строк через сравнение элементов массивов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение строк через сравнение элементов массивов (Макросы/Sub)

acidnoise

Дата: Суббота, 22.03.2014, 17:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Друзья помогите пожалуйста реализовать логику.
кросс на планету

Пардон, cовсем не знаю синтаксис vba))) напишу как представляю.)))

1.Ячейки строки услуг загнать в массив:
Замена аккумулятор Nokia 3230
= Массив1 {a,b,c,d} количество элементов массива определяется количеством ячеек в строке, каждому элементу присваивается значение ячейки.
где :
а = "замена"
b="аккумулятор"
c="nokia"
d ="3230"

2.Загнать ячейки строки запчасть в массив:
доп. аккумулятор Nokia 3230
= Массив2 {a,b,c,d} количество элементов массива определяется количеством ячеек в строке, каждому элементу присваивается значение ячейки.
где :
а = "доп."
b="аккумулятор"
c="Nokia"
d ="3230"

3.Ячейки строки запчасть2 загнать ячейки в массив:
не аккумулятор Nokia 3125
= Массив3 {a,b,c,d} количество элементов массива определяется количеством ячеек в строке, каждому элементу присваивается значение ячейки.
где :
а = "не"
b="аккумулятор"
c="Nokia"
d ="3125"

4. И так со всеми строками в столбце запчасть.

5.Глобальные переменные

[vba]

Код

i=0
p=0
b=0 'количество элементов массива Массив2
m=0 'количество совпадений

[/vba]

6.Цикл

[vba]

Код

b = количество элементов массива Массив2
if Массив1(i) <> Массив2(p) 'где i и p порядковые номера элементов массивов
        then:
             p=p+1
                    Запустить цикл повторно
Else:
        if i <> количеству элементов массива Массив1
              then:
                   MассивСопадений(i)=Массив2(p)
                   i=i+1
                   m=m+1
                          if b>=3, m>=3
                     then:
                    проставляем цену в строке услуги и выводим значения элементов из массива MассивСопадений в ячейки правее. это слова совпадения. и обнуляем глобальные переменные
Код
                         i=0
                    p=0
                    m=0
                    b=0
                          Else:
                     Запустить цикл повторно
                          endif
     Else: Запустить цикл повторно только вместо Массив2 использовать Массив3, и так далее перебирать. Двумерным массивом наверное делается.
        endif
endif

[/vba]
Ещё раз извиняюсь за косноязычность))).

Буду рад, если найдутся люди готовые помочь реализовать такую затею.

Код

i=0
p=0
b=0 'количество элементов массива Массив2
m=0 'количество совпадений

[/vba]

6.Цикл

[vba]

Код

[/vba]
Ещё раз извиняюсь за косноязычность))).

Буду рад, если найдутся люди готовые помочь реализовать такую затею.acidnoise

К сообщению приложен файл: 6322840.xlsx (12.1 Kb)

Сообщение отредактировал acidnoise - Суббота, 22.03.2014, 17:09