ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите, excel обрезает данные
15 сообщений из 15, страница 1 из 1
Помогите, excel обрезает данные
    #36612716
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
Хелп! Плиз!
вот кусок кода

Код: plaintext
  ThisWorkbook.Sheets("name").Cells(rownum, "i").Value = ran.Cells(i, "i").Value

значение ran.Cells(i, "i").Value = 13775,9518
после выполнения данного кода
ThisWorkbook.Sheets("name").Cells(rownum, "i").Value = 13775,95

последние две цифры обрезал в никуда. Кто знает почему и как с этим бороться?
...
Рейтинг: 0 / 0
05.05.2010, 12:58
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36612749
CyberBob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CyberBob
Гость
Самое простое, Кликните правой кнопкой в нужную ячейку, потом Format cells->Numbers->Decimal places 4
...
Рейтинг: 0 / 0
05.05.2010, 13:06
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36612772
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
Не помогло. он овсе равно обрезает. округляет я бы даже сказал до сотых :(
...
Рейтинг: 0 / 0
05.05.2010, 13:13
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36612785
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
а потом добавляет в конец два нуля.
перед выполнением кода в дебагере отображает что у
ran.Cells(i, "i").Value
type = Variant/Currency
а у ThisWorkbook.Sheets("name").Cells(rownum, "i").Value
type = Variant/Empty
если конечно это поможет
...
Рейтинг: 0 / 0
05.05.2010, 13:16
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36612855
CyberBob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CyberBob
Гость
Выложите ваш файл (если не секретные данные), посмотрим :)
...
Рейтинг: 0 / 0
05.05.2010, 13:34
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36612932
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
файл выложил но это часть проекта который полностью выкладывать не могу :(
ошибка возникает при выполнении функции fullspec.WriteDevInfo
...
Рейтинг: 0 / 0
05.05.2010, 13:59
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36613408
CyberBob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CyberBob
Гость
Это может происходит из за того что програмно данные обрезаются до сотых и когда увеличиваем разряды после запятой, выходят нули. Для денежных данных большая точность не нужна.
...
Рейтинг: 0 / 0
05.05.2010, 16:45
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36613572
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
CyberBobЭто может происходит из за того что програмно данные обрезаются до сотых и когда увеличиваем разряды после запятой, выходят нули. Для денежных данных большая точность не нужна.

а почему они обрезаются? вот в чем вопрос. я их не обрезаю мне это совсем не надо :(
...
Рейтинг: 0 / 0
05.05.2010, 17:38
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36613600
CyberBob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CyberBob
Гость
Вы конечно это неделайте. Просто код макроса так делает, может больше двух разрядов после запятой не требуются. Можно дебагером найти участок кода где это деляется и исправыть, но игра не стойт свеч.
...
Рейтинг: 0 / 0
05.05.2010, 17:47
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36613627
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
дебаггером я и так нашел место где это происходит - value одной ячейки присваивается другой. только вот почему он обрезает в этом месте неизвестно мне
...
Рейтинг: 0 / 0
05.05.2010, 17:56
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36614763
CyberBob
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CyberBob
Гость
Тогда как проседура называется и сторка которую вы нашли (там команда Trim может делать "обрезаные")
...
Рейтинг: 0 / 0
06.05.2010, 11:06
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36614785
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Как ни странно, не обрезает так:
Код: plaintext
1.
ThisWorkbook.Sheets( 1 ).Cells( 1 ,  1 ) = Cells( 10 ,  1 )

т.е. должно сработать
Код: plaintext
ThisWorkbook.Sheets("name").Cells(rownum, "i") = ran.Cells(i, "i")
...
Рейтинг: 0 / 0
06.05.2010, 11:18
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36614795
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Или ещё получилось через переменную:
Код: plaintext
1.
2.
3.
4.
5.
Sub test()
Dim temp As Double
temp = Cells( 10 ,  1 ).Value
ThisWorkbook.Sheets( 1 ).Cells( 1 ,  1 ).Value = temp
End Sub
...
Рейтинг: 0 / 0
06.05.2010, 11:22
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36632513
kiran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiran
Гость
спасибо, буду пробовать
...
Рейтинг: 0 / 0
17.05.2010, 16:35
| Ответить | Цитировать | Написать  
Помогите, excel обрезает данные
    #36632730
mari_karo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mari_karo
Гость
Попробуйте ещё использовать не value, а value2.

Код: plaintext
  ThisWorkbook.Sheets("name").Cells(rownum, "i").Value2 = ran.Cells(i, "i").Value2
...
Рейтинг: 0 / 0
17.05.2010, 18:06
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите, excel обрезает данные
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36612716&tid=2178122]:
 0ms
get settings:
 4ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 159ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 204ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]