Ощущается как +21

1 м/с северный.

Новая тема

Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.

Список тем

Ребят помогайте, мозг закипает)

Нужен совет (поиск решения проблемы. не для купли-продажи)

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

Воспользуйтесь поиском, чтобы найти новых друзей.

В социальных сетях

Turist1

13.10.2010

вобщем задача в Экселе Visual Basic сделать хню...оч срочно надо сегодня, завтра сдавать...

Собсна сама задача:
Преобразовать символьную строку в строку, в которой после каждого сим-вола стоят две звездочки

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Elesin

13.10.2010

В символьной строке количество символов постоянное? Если да, то можно формулой сделать, не включая мозг.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Turist1

13.10.2010

Нет, кол-во символов разное)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Elesin

13.10.2010

Тогда, если формулами, это нужно вложенное if использоватьб а спьяну это сложно.

И если решение должно быть на VB - то я точно не помогу - я его не знаю...

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Turist1

13.10.2010

так вот и хня в том что в VB нужно обязательно((

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Nikson

13.10.2010

типа вот так:

InString = "Исходная строка"
OutString = ""
For i = 1 To Len(InString) 'цикл от 1 до длины исходной строки
OutString = OutString & Mid(InString, i, 1) & "**" ' добавляем к строке символ и 2 звездочки
Next i

Если не нужно в конце добавлять звездочки, то:
InString= "Исходная строка"
OutString = ""
For i = 1 To Len(InString) - 1 'цикл от 1 до предпоследнего символа
OutString = OutString & Mid(InString, i, 1) & "**" ' добавляем к строке символ и 2 звездочки
Next i
OutString = OutString & Right(InString, 1) ' добавляем к строке последний символ

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум 3G мегафон перестала работать - Алексей Владимирович! 23.05.2025 в 15:43:54 16

Объявления на НН.РУ - Техника

Добавить объявление

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9 Отправка в регионы после оплаты. Продаются сразу обе. Цена за обе 2000 руб....
Цена: 1 000 руб.

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.