Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / почему то не понимает 0 значение ячейки / 3 сообщений из 3, страница 1 из 1
20.08.2008, 07:56
    #35496031
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему то не понимает 0 значение ячейки
и снова здрасти :) такая необычная проблема -

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
With ActiveWorkbook
   For i =  1  To ActiveWorkbook.Sheets.count
   If Sheets(i).name <> "Итоговые данные" Then
        For j =  0  To count -  1 
           For v =  0  To  2 
                If (Sheets(i).Range("E" + CStr(j *  11  +  4  + v *  2 )).Value <> " ") Or (Sheets(i).Range("E" + CStr(j *  11  +  4  + v *  2 )).Value <>  0 ) Then
                    Sheets(i).Range("E" + CStr(j *  11  +  9 )).Value = Sheets(i).Range("E" + CStr(j *  11  +  9 )).Value - Sheets(i).Range("E" + CStr(j *  11  +  3  + v *  2 )).Value
                End If  
                If (Sheets(i).Range("F" + CStr(j *  11  +  4  + v *  2 )).Value <> " ") Or (Val(Sheets(i).Range("F" + CStr(j *  11  +  4  + v *  2 )).Value) <>  0 ) Then
                    Sheets(i).Range("F" + CStr(j *  11  +  9 )).Value = Sheets(i).Range("F" + CStr(j *  11  +  9 )).Value - Sheets(i).Range("F" + CStr(j *  11  +  3  + v *  2 )).Value
                End If
                If (Sheets(i).Range("G" + CStr(j *  11  +  4  + v *  2 )).Value <> " ") Or (Sheets(i).Range("G" + CStr(j *  11  +  4  + v *  2 )).Value <>  0 ) Then
                   Sheets(i).Range("G" + CStr(j *  11  +  9 )).Value = Sheets(i).Range("G" + CStr(j *  11  +  9 )).Value - Sheets(i).Range("G" + CStr(j *  11  +  3  + v *  2 )).Value
                End If
           Next v
        Next j
   End If  
   Next i
End With
проблемма в том что если:
Sheets(i).Range("E(F)(G)" + CStr(j * 11 + 4 + v * 2)).Value = 0 то все равно происходит вычитание ...
подскажите в чем проблема
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2008, 08:14
    #35496037
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему то не понимает 0 значение ячейки
Попробуй поставить
Код: plaintext
AND
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2008, 08:19
    #35496040
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему то не понимает 0 значение ячейки
да уж ... ступил ... спасибо огромное :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / почему то не понимает 0 значение ячейки / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 324ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161940]:
 0ms
get settings:
 5ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 214ms
total:  324ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]