|
|
|
VBA.как найти чётное число
|
|||
|---|---|---|---|
|
#18+
подскажите, как мне определить является ли число в ячейке чётное или нет ??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.04.2007, 18:16 |
|
||
|
VBA.как найти чётное число
|
|||
|---|---|---|---|
|
#18+
Dim blnIsOdd As Boolean blnIsOdd = CLng(Range("A1").Value) And 1 MsgBox Not blnIsOdd ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.04.2007, 19:30 |
|
||
|
VBA.как найти чётное число
|
|||
|---|---|---|---|
|
#18+
извините, но не могли бы вы объяснить что значит "And 1". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.04.2007, 22:45 |
|
||
|
VBA.как найти чётное число
|
|||
|---|---|---|---|
|
#18+
1. activecell.Value mod 2 = 0. Если True, то четное 2. Application.WorksheetFunction.even(activecell.Value )= activecell.Value Если True, то четное  ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.04.2007, 23:06 |
|
||
|
VBA.как найти чётное число
|
|||
|---|---|---|---|
|
#18+
Stexизвините, но не могли бы вы объяснить что значит "And 1". наш товарисч работает в Microsoft, поэтому не столь многословен. Наверно очень много работы ) у четного числа есть такое замечательно свойство, первый(крайний правый) бит всегда равен нулю. соответственно у не четных равен 1. AND - побитовое сравнение (исключающее И -школьный курс булевых операций). никогда с ними не ладил. следовательно 00000010 (число 2) AND 00000001 (число 1) результат получится ноль; или 00000011 (число 3) AND 00000001 (число 1) результат получится единица. поймал? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.04.2007, 23:22 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2164240]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
152ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 459ms |
| 0 / 0 |
