ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / экспоненциальный формат
4 сообщений из 4, страница 1 из 1
экспоненциальный формат
    #36798881
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Здравствуйте.
В примере код
Код: plaintext
1.
2.
3.
Private Sub CommandButton1_Click()
    TextBox2 = Val(TextBox3.Value) - Cells(i +  451 ,  18 ).Value
    Range("S1") = Val(TextBox2.Value) + Cells(i +  451 ,  18 ).Value
End Sub
TextBox2 отображается формат экспоненциальный, хотя должно отобразится отрицательное значение ячейки Cells(i + 451, 18) , почему, или так должно быть?
...
Рейтинг: 0 / 0
18.08.2010, 21:17
| Ответить | Цитировать | Написать  
экспоненциальный формат
    #36799443
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
У вас Офис 2003 или ниже? Вам не нравится значение в S1 или в TextBox?

В ячейке R451 после деления у вас после запятой 16 нулей - естественно, отображение переводится в экспоненциальную форму. Если хотите получить просто 0 - используйте ROUND(), используйте в настройках Экзеля "Вычисления"-"Отображение как на экране"...
http://support.microsoft.com/kb/78113

И еще - Range("S1").Value = или [S1] = , TextBox2.Value =
...
Рейтинг: 0 / 0
19.08.2010, 10:33
| Ответить | Цитировать | Написать  
экспоненциальный формат
    #36801132
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Что бы в TextBox2 отобразилось фактическое числовое значение, а не экспоненциальный формат.
У меня Excel 2007.
...
Рейтинг: 0 / 0
19.08.2010, 18:24
| Ответить | Цитировать | Написать  
экспоненциальный формат
    #36801604
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    TextBox2.Value = Format(Val(TextBox3.Value) - Cells(i +  451 ,  18 ).Value, "#0." + String( 30 , "#"))
...
...
Рейтинг: 0 / 0
20.08.2010, 02:28
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / экспоненциальный формат
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=153&tid=2177779]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 249ms
total:  400ms
созд. / загр.: 400ms
x
x
Закрыть


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