|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.02.2015, 23:52 | #11 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
не понимаю что прикреплено.
извините удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
22.02.2015, 23:58 | #12 |
Пользователь
Регистрация: 11.09.2012
Сообщений: 44
|
IgorGO, большое спасибо за помощь.
Вашу строку у меня получилось обработать вот так Function Shag(ByVal ins As String) Dim s As String Dim k As Integer s = Right(ins, Len(ins) - 1) k = InStr(s, ",") Shag = Left(s, k - 1) End Function NomeraIzbr1 = StringOf(kk) Zpt = CountRepeat(NomeraIzbr1, ",") ReDim NomeraIzbr(Zpt) s = "" For nn = 1 To Zpt - 1 NomeraIzbr(nn) = Shag(NomeraIzbr1) ktmp = InStr(NomeraIzbr1, NomeraIzbr(nn)) NomeraIzbr1 = Right(NomeraIzbr1, Len(NomeraIzbr1) - ktmp) s = s + " " + NomeraIzbr(nn) Next nn MsgBox ("s=" & s) End If Наверно по деревенски, но почти работает! ) не включает последнее число массива, из-за нехватки запятой в конце, ну с этим я завтра на свежую голову разберусь. еще раз спасибо! |
23.02.2015, 00:14 | #13 |
Пользователь
Регистрация: 11.09.2012
Сообщений: 44
|
ах да...программа просто предназначена для автокада, а не для экселя, но может быть так у вас получится посмотреть? я экспортировал в .bas
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Функция, возвращающая слово из строки | Dagestan228 | Visual C++ | 3 | 16.11.2013 16:43 |
Функция, возвращающая массив | KORT | Общие вопросы Delphi | 10 | 04.02.2013 12:41 |
Функция, возвращающая массив (С++) | Alendorff | Помощь студентам | 14 | 09.03.2012 17:23 |
Пользовательская функция,возвращающая массив | savraska | Microsoft Office Excel | 2 | 20.04.2010 03:12 |
Функция возвращающая массив | babaj | Общие вопросы Delphi | 8 | 04.07.2009 17:40 |