Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Сочетания опций для настройки полей - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сочетания опций для настройки полей (Макросы/Sub)
Сочетания опций для настройки полей
neonar Дата: Вторник, 11.05.2021, 21:46 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, прошу вашей помощи.
Задача:

Есть 6 опций ОП1; ОП2; ОП3; ОП4; ОП5; ОП6
Каждая опция имеет тип булево (0 или 1). Названия опций местами не меняются
Нужно написать макрос, который выводит в столбец А все возможные (не повторяющиеся) сочетания значений опций:
в виде кодировки, например 010100 (строковый) - номер позиции в кодировке соответствует номеру опции:

ОП1; ОП2; ОП3; ОП4; ОП5; ОП6
0; 1; 0; 1; 0; 0;
1; 0; 1; 0; 1; 1;
0; 0; 0; 0; 0; 0;
и т.д.

Прикреплять файл смысла нет, думаю.
Буду благодарен за помощь.
 
Ответить
СообщениеДобрый день, прошу вашей помощи.
Задача:

Есть 6 опций ОП1; ОП2; ОП3; ОП4; ОП5; ОП6
Каждая опция имеет тип булево (0 или 1). Названия опций местами не меняются
Нужно написать макрос, который выводит в столбец А все возможные (не повторяющиеся) сочетания значений опций:
в виде кодировки, например 010100 (строковый) - номер позиции в кодировке соответствует номеру опции:

ОП1; ОП2; ОП3; ОП4; ОП5; ОП6
0; 1; 0; 1; 0; 0;
1; 0; 1; 0; 1; 1;
0; 0; 0; 0; 0; 0;
и т.д.

Прикреплять файл смысла нет, думаю.
Буду благодарен за помощь.
Автор - neonar
Дата добавления - 11.05.2021 в 21:46
Pelena Дата: Среда, 12.05.2021, 01:00 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Public Sub www()
    Dim a As Long
    For a = 0 To 63
        Cells(a + 1, 1).NumberFormat = "@"
        Cells(a + 1, 1) = Format(Application.Dec2Bin(a), "000000")
    Next a
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Public Sub www()
    Dim a As Long
    For a = 0 To 63
        Cells(a + 1, 1).NumberFormat = "@"
        Cells(a + 1, 1) = Format(Application.Dec2Bin(a), "000000")
    Next a
End Sub
[/vba]
Автор - Pelena
Дата добавления - 12.05.2021 в 01:00
neonar Дата: Среда, 12.05.2021, 13:21 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата Pelena, 12.05.2021 в 01:00, в сообщении № 2 ()
For a = 0 To 63

Спасибо большое! Подскажите а как вычислить количество сочетаний, по какой формуле (если мне потребуется изменить количество опций)?


Сообщение отредактировал neonar - Среда, 12.05.2021, 13:21
 
Ответить
Сообщение
Цитата Pelena, 12.05.2021 в 01:00, в сообщении № 2 ()
For a = 0 To 63

Спасибо большое! Подскажите а как вычислить количество сочетаний, по какой формуле (если мне потребуется изменить количество опций)?
Автор - neonar
Дата добавления - 12.05.2021 в 13:21
Апострофф Дата: Среда, 12.05.2021, 13:30 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
Цитата neonar, 12.05.2021 в 13:21, в сообщении № 3 ()
как вычислить количество сочетаний


[vba]
Код
2 ^ (количество опций) - 1
[/vba]

[vba]
Код
Cells(a + 1, 1) = Format(Application.Dec2Bin(a), string((количество опций),"0"))
[/vba]


Сообщение отредактировал Апострофф - Среда, 12.05.2021, 13:38
 
Ответить
Сообщение
Цитата neonar, 12.05.2021 в 13:21, в сообщении № 3 ()
как вычислить количество сочетаний


[vba]
Код
2 ^ (количество опций) - 1
[/vba]

[vba]
Код
Cells(a + 1, 1) = Format(Application.Dec2Bin(a), string((количество опций),"0"))
[/vba]
Автор - Апострофф
Дата добавления - 12.05.2021 в 13:30
neonar Дата: Среда, 12.05.2021, 14:59 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Благодарю!
 
Ответить
СообщениеБлагодарю!
Автор - neonar
Дата добавления - 12.05.2021 в 14:59
neonar Дата: Среда, 12.05.2021, 23:12 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Получилось.


Сообщение отредактировал neonar - Среда, 12.05.2021, 23:27
 
Ответить
СообщениеПолучилось.
Автор - neonar
Дата добавления - 12.05.2021 в 23:12
Апострофф Дата: Среда, 12.05.2021, 23:37 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
А я то как рад за Вас hands


Сообщение отредактировал Апострофф - Среда, 12.05.2021, 23:37
 
Ответить
СообщениеА я то как рад за Вас hands
Автор - Апострофф
Дата добавления - 12.05.2021 в 23:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сочетания опций для настройки полей (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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