Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.02.2012, 14:53   #11
capture
Новичок
Джуниор
 
Регистрация: 01.02.2012
Сообщений: 8
По умолчанию

http://www.planetaexcel.ru/forum.php...m=8#post304013
на этом ресурсе также пытаемся решить текущую проблему
capture вне форума Ответить с цитированием
Старый 02.02.2012, 15:06   #12
capture
Новичок
Джуниор
 
Регистрация: 01.02.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
За кусок в пару строк с нулями и спецкодом для примера не посядят.
Хотя конечно если данные вообще нельзя пересылать - тогда да...
Мне дома не получилось смоделировать ситуацию - как не бился, нули оставались


P.S. Как это пусто? Не может быть - если в А1 что-то есть, то должно быть и в переменной.
Вот файл из которого я пытаюсь получить данные из колонки 5. Лишние данные удалены или заменены.
Проблема в том, что формат ячейки стоит "General", но на деле мы видим его как "Text". В "General" он преобразовывается при получении данных из ячейки. Собственно поэтому нули и пропадают..
Вложения
Тип файла: rar report.rar (6.4 Кб, 6 просмотров)
capture вне форума Ответить с цитированием
Старый 02.02.2012, 15:10   #13
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

Ну и где пусто?
Код:
Sub tt()
    Dim s$
    s = [e3]
    MsgBox s
End Sub
И даже так - в массиве текст с нулями, делайте с ним что хотите:
Код:
Sub ttt()
Dim a()
a = UsedRange.Value
End Sub
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 02.02.2012 в 15:16.
Hugo121 вне форума Ответить с цитированием
Старый 02.02.2012, 15:35   #14
capture
Новичок
Джуниор
 
Регистрация: 01.02.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Ну и где пусто?
Код:
Sub tt()
    Dim s$
    s = [e3]
    MsgBox s
End Sub
проверил, работает. а как такой же метод использовать в цикле, где вместо номера строки у меня "i"? ведь мне нужно именно в цикле данные вытягивать..

Последний раз редактировалось capture; 02.02.2012 в 15:50.
capture вне форума Ответить с цитированием
Старый 02.02.2012, 15:50   #15
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

s = cells(i, 5)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 02.02.2012, 15:51   #16
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

Что-то вроде так. На массиве быстро.
Код:
Sub tt()
    Dim a(), i&, s$
    a = UsedRange.Value
    For i = 1 To UBound(a)
        s = a(i, 5)
        MsgBox s
    Next
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 02.02.2012, 16:04   #17
capture
Новичок
Джуниор
 
Регистрация: 01.02.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Что-то вроде так. На массиве быстро.
Код:
Sub tt()
    Dim a(), i&, s$
    a = UsedRange.Value
    For i = 1 To UBound(a)
        s = a(i, 5)
        MsgBox s
    Next
End Sub
спасибо, проблема решена.
capture вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как из ячейки содержащей текст и число извлечь только число? АННА-ЕАО Microsoft Office Excel 35 02.12.2016 23:16
Как получить рандомное число C#? tolmik C# (си шарп) 7 07.04.2016 19:50
Как получить число из char* qip2005 Помощь студентам 2 02.03.2011 19:56
Число как текст преобразовать в число agregator Microsoft Office Excel 5 28.04.2010 06:08
Как получить текст из примечания? Людмилка Microsoft Office Excel 2 30.07.2008 08:36