|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.06.2009, 18:38 | #1 |
Пользователь
Регистрация: 23.10.2008
Сообщений: 23
|
Проверьте прогу!
Option Base 1
Function dasha111(diap) m = diap.Rows.Count n = diap.Columns.Count Dim out_diap() ReDim out_diap(m * n) For i = 1 To m For j = 1 To n If diap(i, j) <> "" Then For C = 1 To m * n out_diap(C) = diap(i, j) Next C End If Next j Next i dasha111 = out_diap End Function НУжно из выбранного даапозонна скопировать в одномерный массив все не пустые символы! Последний раз редактировалось SanSanblch; 22.06.2009 в 18:56. |
22.06.2009, 19:01 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
осмелюсь предположить что надо было так:
Function dasha111(diap) m = diap.Rows.Count n = diap.Columns.Count Dim out_diap() ReDim out_diap(m * n) For i = 1 To m For j = 1 To n For C = 1 To m * n If diap(i, j) <> "" Then out_diap(C) = diap(i, j) Next C End If Next j Next i dasha111 = out_diap End Function и еще: вам будут щаче отвечать, если в конце просьбы ставить не восклицательный знак, а слово "пожалуйста".
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
22.06.2009, 19:37 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Можно чуть попроще:
Код:
|
23.06.2009, 03:31 | #4 |
Пользователь
Регистрация: 23.10.2008
Сообщений: 23
|
Спасибо!!!!!
Всё учту =) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Спецы!! Проверьте прогу почему работает неправильно?? | SanSanblch | Общие вопросы Delphi | 2 | 05.12.2008 18:17 |
Проверьте | ReM | Общие вопросы Delphi | 1 | 12.11.2008 17:32 |
Проверьте прогу.Почему не работает? | drakon803 | Помощь студентам | 2 | 17.12.2007 07:21 |
Проверьте прогу.Почему не работает? | drakon803 | Помощь студентам | 4 | 16.12.2007 23:23 |