Надо макрос для Excel для перестановки букв - Microsoft Office Excel

dionisprf · 10.06.2009, 01:48

кто-нибудь может помочь ?

надо такой макрос чтобы при чтении слова из ячейки выводил в соседнем столбце все возможные варианты слов такой же длины из тех же букв, которые задействованы в исходном слове,
что-то типа этого

в исходной ячейке: Санек
Результаты в соседнем столбце
Санке
Сакне
Скане
Сенак
........
........

Кенас

doober · 10.06.2009, 02:08

Разбей на знаки и мешай их,всего будет 120 перестановок

EducatedFool · 10.06.2009, 06:04

В этой теме есть готовый макрос.

Использовать его можно так:

Код:

Sub Пример()
    ЗаполнитьЯчейкиСпискомЗначений "Санек", Worksheets.Add.Cells(2, 2)
    ЗаполнитьЯчейкиПерестановками "Санек", [e4]
End Sub

10.06.2009, 01:48	#1
dionisprf Новичок Джуниор Регистрация: 10.06.2009 Сообщений: 1	Надо макрос для Excel для перестановки букв кто-нибудь может помочь ? надо такой макрос чтобы при чтении слова из ячейки выводил в соседнем столбце все возможные варианты слов такой же длины из тех же букв, которые задействованы в исходном слове, что-то типа этого в исходной ячейке: Санек Результаты в соседнем столбце Санке Сакне Скане Сенак ........ ........ Кенас

10.06.2009, 02:08	#2
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Разбей на знаки и мешай их,всего будет 120 перестановок Анализ,обработка данных Недорого

10.06.2009, 06:04	#3
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	В этой теме есть готовый макрос. Использовать его можно так: Код: `Sub Пример() ЗаполнитьЯчейкиСпискомЗначений "Санек", Worksheets.Add.Cells(2, 2) ЗаполнитьЯчейкиПерестановками "Санек", [e4] End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Интересный макрос для создания писем в Outlook через Excel	Neo007	Microsoft Office Excel	17	19.04.2009 20:44
помогите, пожалуйсто, написать макрос для excel	bacalavr	Microsoft Office Excel	2	04.04.2008 11:39
Макрос в Excel для обработки группы файлов	ad_sum	Microsoft Office Excel	1	29.12.2007 16:56
Регистр для русских букв	Kulibim	Общие вопросы Delphi	2	28.10.2007 17:36