Генерация артикулов. 8 переменных - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Генерация артикулов. 8 переменных - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Генерация артикулов. 8 переменных (Формулы/Formulas)

Генерация артикулов. 8 переменных

Дата: Среда, 14.11.2018, 13:04 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

Доброго времени суток.
Подскажите как правильно сгенерировать в Exel артикула:
в артикуле 8 переменных. Необходимы артикула для всех модификаций.

материал(3 вида)| цвет (4 вида)| цвет канта (4 вида)| модель (500 видов)| подпятник (2 вида)| задняя перемычка (2 вида)| крепеж (2 вида)| подложка (2 вида)
1 1 1 0001 0 0 0 0
2 2 2 0002 1 1 1 1
3 3 3 0003
4 4 0004
0423
итд
Есть ли возможность сгенерировать артикула?

Заранее благодарю.

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

Ответить

Дата: Среда, 14.11.2018, 13:12 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Посмотрите Готовое решение

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 13:37 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

sboy, спасибо
Попробовал, но мне видимо это не со всем подходит, или не совсем понял как им пользовать
у меня переменных получается 8 штук, значения в них варьируются от 2-х до ~500
переменные должны стоять в постоянном порядке.

Ответить

Дата: Среда, 14.11.2018, 14:53 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Держите
[vba]

Код

Sub gen()
Sub gen()
Application.ScreenUpdating = False
    q = 1
        For w = 1 To 4
            For e = 1 To 4
                For r = 1 To 3
                    For t = 0 To 1
                        For y = 0 To 1
                            For u = 0 To 1
                    For i = 0 To 1
                    Cells(q + 1, 1).Resize(1, 8) = Array(r, w, e, q, t, y, u, i)
                    q = q + 1
                    If q = 501 Then Exit Sub
                    Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
Application.ScreenUpdating = True
End Sub

[/vba]
[p.s.]Знатокам! сначала собрал все в массив массивов типа arr(i)(j), но не смог выгрузить его на лист, пока ищу на просторах интернета, может кто направит в нужном направлении

К сообщению приложен файл: 3795574.xlsm (32.2 Kb)

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 14:59 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата sboy, 14.11.2018 в 14:53, в сообщении № 4 ()

собрал все в массив массивов типа arr(i)(j), но не смог выгрузить

А код? Как выгружал? Какая размерность у подмассивов?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 14.11.2018, 15:13 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

размерность подмассива 0 to 7
[vba]

Код

Cells(2, 1).Resize(500, 8).Value = arr

[/vba]

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 15:20 | Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата sboy, 14.11.2018 в 15:13, в сообщении № 6 ()

А код? Как выгружал?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 14.11.2018, 15:26 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

На лист? выше написал
в массив так
[vba]

Код

Dim arr(1 to 500)
arr(q) = Array(r, w, e, q, t, y, u, i)

[/vba]

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 15:44 | Сообщение № 9

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

sboy, очень круто, почти все что нужно.
Только в графе модель авто, столб D
значений 500-600 будет и к каждой необходимы все вариации, всех цветов , материалов и тд.

Ответить

Дата: Среда, 14.11.2018, 16:08 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата realsnow, 14.11.2018 в 15:44, в сообщении № 9 ()

значений 500-600 будет и к каждой необходимы все вариации, всех цветов , материалов и тд.

Вы имеете ввиду, что для каждой модели будет 768 комбинаций?

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 16:09 | Сообщение № 11

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

sboy, может есть возможность выгрузить все возможные варианты хотя бы для одной модели?

Ответить

Дата: Среда, 14.11.2018, 16:21 | Сообщение № 12

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

sboy, да Вы правы 768 комбинаций

Ответить

Дата: Среда, 14.11.2018, 16:29 | Сообщение № 13

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

В файле для 1 (500 моделей весят больше 2 Мб), запустите макрос будет для 500, хотя они повторяются (кроме номера модели)

К сообщению приложен файл: 3795575.xlsb (19.3 Kb)

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 16:39 | Сообщение № 14

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

sboy, Огромнейшее спасибо!!!! Очень выручили

Ответить

Дата: Среда, 14.11.2018, 17:25 | Сообщение № 15

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

[offtop]

Цитата _Boroda_, 14.11.2018 в 15:20, в сообщении № 7 ()

А код?

Мня, странный сегодня день
http://www.excelworld.ru/forum/2-39837-1#263818
http://www.excelworld.ru/forum/2-39835-1#263840
http://www.excelworld.ru/forum/2-39679-263815-16-1542193045
Такое ощущение, что я не по-русски пишу и должен обо всем догадываться
Ну ладно, значит судьба такая[/offtop]

Массив массивов так просто на лист не выгрузить. А почему Вы не хотите сделать восьмистолбцовый массив 1 to 500, 1 to 8?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 14.11.2018, 17:50 | Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата _Boroda_, 14.11.2018 в 17:25, в сообщении № 15 ()

Такое ощущение, что я не по-русски пишу и должен обо всем догадываться

да вроде по-русски

код как выгружал?, я и написал)

Цитата _Boroda_, 14.11.2018 в 17:25, в сообщении № 15 ()

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

первые 10 страниц Яндекса тоже не дали ответ

Цитата _Boroda_, 14.11.2018 в 17:25, в сообщении № 15 ()

1 to 500, 1 to 8?

чтобы вместо
[vba]

Код

arr(q, 1) = r
arr(q, 2) = w
arr(q, 3) = e
arr(q, 4) = q
arr(q, 5) = t
arr(q, 6) = y
arr(q, 7) = u
arr(q, 8)=i

' делать запись одной строкой
arr(q) = Array(r, w, e, q, t, y, u, i)

[/vba]

Яндекс: 410016850021169

Ответить

Дата: Среда, 14.11.2018, 18:32 | Сообщение № 17

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

sboy, а если [vba]

Код

o=1
For Each p In Array(r, w, e, x, t, y, u, i)
arr(q, o) = p
o = o + 1
Next

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 14.11.2018, 18:33

Ответить

Дата: Четверг, 15.11.2018, 09:37 | Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

krosav4ig, Это выход

Яндекс: 410016850021169

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Генерация артикулов. 8 переменных (Формулы/Formulas)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!