Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> формат ячейки должен быть только числовым! как сделать! 
V
    Опции темы
Ved
Дата 5.10.2007, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1
хочу сделать (ложь или истина) ну там если допустим водится целое число то истина, если чтота другое то ложь!
Не знаю как код написать всмысле как екселю обьяснить что ввелось число и что ввелось не число!
есть какаято функция на проверку ячейки на формат ввода чтоли!
Думаю понятно объяснил!

Код

if Range("B1")  цыфра then true
не цыфра  false



примерно так тока не знаю как обозвать цыфру!
 smile 


--------------------
Я не волшебник, я только учусь!  smile 
PM MAIL   Вверх
Genyaa
Дата 5.10.2007, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Усердный
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 2
Всего: 11
См. Меню-Данные-Проверка.
--------------------
Всякое решение плодит новые проблемы.
PM WWW   Вверх
kapbepucm
Дата 8.10.2007, 08:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Код
Public Function IsNumber1(a As Range)
On Error GoTo ErrLabel
Dim DV As Double
  DV = CDbl(a)
  IsNumber1 = True
Exit Function
ErrLabel:
    IsNumber1 = False
  If Err.Number <> 13 Then
    MsgBox "Unknown error!", vbCritical
  End If
End Function



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
RockClimber
Дата 8.10.2007, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15
Не очень понятно, что проверять - введено именно целое число или просто любое число? Во втором случае есть функция IsNumber.
Код

If IsNumber(Range("A1")) then
...




--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
Ved
Дата 11.10.2007, 07:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1
RockClimber, 
Всё спасибо просто не знал какую функцию искать !
Помог !
Тему решенной считаю лови ПЛЮС


--------------------
Я не волшебник, я только учусь!  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0502 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.