
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
06.04.2007, 18:16
|
|||
|---|---|---|---|
VBA.как найти чётное число |
|||
|
#18+
подскажите, как мне определить является ли число в ячейке чётное или нет ??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.04.2007, 19:30
|
|||
|---|---|---|---|
VBA.как найти чётное число |
|||
|
#18+
Dim blnIsOdd As Boolean blnIsOdd = CLng(Range("A1").Value) And 1 MsgBox Not blnIsOdd ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.04.2007, 22:45
|
|||
|---|---|---|---|
VBA.как найти чётное число |
|||
|
#18+
извините, но не могли бы вы объяснить что значит "And 1". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.04.2007, 23:06
|
|||
|---|---|---|---|
VBA.как найти чётное число |
|||
|
#18+
1. activecell.Value mod 2 = 0. Если True, то четное 2. Application.WorksheetFunction.even(activecell.Value )= activecell.Value Если True, то четное ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.04.2007, 23:22
|
|||
|---|---|---|---|
VBA.как найти чётное число |
|||
|
#18+
Stexизвините, но не могли бы вы объяснить что значит "And 1". наш товарисч работает в Microsoft, поэтому не столь многословен. Наверно очень много работы ) у четного числа есть такое замечательно свойство, первый(крайний правый) бит всегда равен нулю. соответственно у не четных равен 1. AND - побитовое сравнение (исключающее И -школьный курс булевых операций). никогда с ними не ладил. следовательно 00000010 (число 2) AND 00000001 (число 1) результат получится ноль; или 00000011 (число 3) AND 00000001 (число 1) результат получится единица. поймал? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2164240]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
188ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 214ms |
| total: | 495ms |

| 0 / 0 |
