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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.08.2009, 18:29   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию значение Label в ячейки в числовом формате

Здравствуйте.

Подскажите, как преобразовать значение Label в ячейки в числовой формат?
Код:
        .Range("U4") = Label_norm1.Caption
        .Range("V4") = Label_norm2.Caption
segail вне форума Ответить с цитированием
Старый 14.08.2009, 19:49   #2
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

А чему равно Caption? Если это число, то у меня следующий код для Caption=11 и так выводит в ячейку A1 11 в числовом формате:

Код:
Range("A1").Value = ActiveSheet.Label1.Caption
motorway вне форума Ответить с цитированием
Старый 14.08.2009, 20:40   #3
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Код:
.Range("U4") = Clng(Label_norm1.Caption)
.Range("V4") = Clng(Label_norm2.Caption)
В случае, если Label-ы не являются числом вывалится ошибка.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 14.08.2009, 20:43   #4
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Цитата:
А чему равно Caption?
В Label вносятся различные числовые значения. Определенного числа нет.
Пробовал таким кодом, выдает ошибку.
Код:
        .Range("U5").Value = ActiveSheet.Label_norm1.Caption
segail вне форума Ответить с цитированием
Старый 14.08.2009, 20:55   #5
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Цитата:
В случае, если Label-ы не являются числом вывалится ошибка.
Число десятичных значений после запятой в Label1 5 формат чисел всегда отрицательный -0,00000 в Label12 формат чисел всегда положительный 0,00000
segail вне форума Ответить с цитированием
Старый 14.08.2009, 20:57   #6
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Т.е не работает? Странно... Попробуйте так
Код:
.Range("U4") = Cdbl(Label_norm1.Caption)
.Range("V4") = Cdbl(Label_norm2.Caption)
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 14.08.2009, 21:01   #7
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Нет Вы меня не поняли то что я писал до этого так должно быть.
А у вас вносится только одно целое число.
segail вне форума Ответить с цитированием
Старый 14.08.2009, 21:02   #8
Aent
Форумчанин
 
Аватар для Aent
 
Регистрация: 17.07.2009
Сообщений: 519
По умолчанию

Код:
MyRange.Value =Val(Replace(label1.caption,",","."))
Aent вне форума Ответить с цитированием
Старый 14.08.2009, 21:19   #9
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

МУ
Код:
MyRange
наверно можно убрать у меня ячейки в коде группируются под лист



Так работает нормально.
Код:
.Range("U5").Value = Val(Replace(Label_norm1.Caption, ",", "."))
Спасибо

Последний раз редактировалось segail; 14.08.2009 в 21:34.
segail вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавить значение в зависимости от цвета ячейки fraise Microsoft Office Excel 11 19.02.2010 21:37
Изменить значение ячейки на залоченом листе zavhoz Microsoft Office Excel 3 31.03.2009 09:50
Значение ячейки по названию листа VadimSh Microsoft Office Excel 4 02.12.2008 15:29
Ссылка на лист в функции в зависимости от значение ячейки VadimSh Microsoft Office Excel 2 02.12.2008 10:28
Вставить значение ячейки в формулу jungo Microsoft Office Excel 2 12.08.2008 15:32