Проверка значения Inputbox - Microsoft Office Excel - Страница 2

SAS888 · 29.04.2015, 03:27

Чтобы не было неоднозначности, вместо CLng используйте Fix

RAN. · 29.04.2015, 21:41

SAS888, разжевать можно?
О какой не однозначности речь?

IgorGO · 29.04.2015, 22:47

Код:

  Do
    s = InputBox("Укажите корректный номер квартала (число 1,2,3,4)", IIf(s <> "", "Повторяю!", ""), 1)
  Loop Until Len(s) = 1 And InStr("1234", s) > 0
  MsgBox "Ура!!!":  KW = Val(s)

SAS888 · 30.04.2015, 03:18

Цитата:

Сообщение от RAN.

О какой не однозначности речь?

Вот об этой:

Цитата:

Введите полтора и угадайте какой квартал получится...

Вы предлагаете брать только первый символ (что тоже годится), а я предлагаю отбрасывать дробную часть (что чуть проще).

29.04.2015, 03:27	#11
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Чтобы не было неоднозначности, вместо CLng используйте Fix Чем шире угол зрения, тем он тупее.

29.04.2015, 22:47	#13
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Do s = InputBox("Укажите корректный номер квартала (число 1,2,3,4)", IIf(s <> "", "Повторяю!", ""), 1) Loop Until Len(s) = 1 And InStr("1234", s) > 0 MsgBox "Ура!!!": KW = Val(s)` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проверка вводимого значения в Flash ActionScript	ksvsvk	Общие вопросы Web	1	28.11.2014 17:25
Проверка значения ячейки.	II_Dimit_II	БД в Delphi	0	02.06.2013 17:24
Проверка значения в дэлфи	Игорь Обухов	Помощь студентам	22	18.06.2012 16:58
ADoQuery inputbox сравнить значения	detalik	Помощь студентам	2	18.05.2011 08:31
Проверка введенного значения	yourself	Microsoft Office Excel	4	21.04.2008 18:40

29.04.2015, 21:41	#12
RAN. Форумчанин Регистрация: 05.07.2011 Сообщений: 208	SAS888, разжевать можно? О какой не однозначности речь?