ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Деление значения, если больше 1
12 сообщений из 12, страница 1 из 1
Деление значения, если больше 1
    #36079710
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Нужно значение ячейки разделить на 1000, если оно больше 1 или меньше -1
...
Рейтинг: 0 / 0
08.07.2009, 13:07:34
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079762
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Я делаю так, но ниче не получается, подскажите что не так

Range("AA1").Select
ActiveCell.FormulaR1C1 = "1000"
Range("AA1").Select
Selection.Copy

For i = 10 To 1 Step -1
If Cells(i, 6).Text = 0 Then
MyCount = MyCount + 1
Range("i").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlDivide, _
SkipBlanks:=False, Transpose:=False
End If
Next i
...
Рейтинг: 0 / 0
08.07.2009, 13:22:02
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079779
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
ffflakeЯ делаю такужос!
=IF(A1*A1>1;A1/1000;A1)
...
Рейтинг: 0 / 0
08.07.2009, 13:26:44
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079795
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
qwrqwrужос!
то что ужос, я конечно догадывалась ))))))
qwrqwr=IF(A1*A1>1;A1/1000;A1)
а это не поняла, можно подробнее
...
Рейтинг: 0 / 0
08.07.2009, 13:32:29
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079797
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
ffflake,

К Range так обращаться нельзя.
Ведь сначала Cells идет, зачем тогда использовать Range

Я правильно понимаю, что нужно разделить на 1000 значения ячеек диапазона F1:F10?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub df()
'Range("AA1").Select
'ActiveCell.FormulaR1C1 = "1000"
'Range("AA1").Select
'Selection.Copy

For i =  10  To  1  Step - 1 
 If Cells(i,  6 ) >  1  Or Cells(i,  6 ) < - 1  Then
 'MyCount = MyCount + 1
  Cells(i,  6 ) = Cells(i,  6 ) /  1000 
 End If
Next i

End Sub
А почему нужно снизу бежать и делить?
...
Рейтинг: 0 / 0
08.07.2009, 13:32:46
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079835
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
ffflakeqwrqwrужос!
то что ужос, я конечно догадывалась ))))))
qwrqwr=IF(A1*A1>1;A1/1000;A1)
а это не поняла, можно подробнееавторесли оно больше 1 или меньше -1значит его квадрат больше адын
подробнее надо?
...
Рейтинг: 0 / 0
08.07.2009, 13:43:52
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079840
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Сергей06ffflake,

К Range так обращаться нельзя.
Ведь сначала Cells идет, зачем тогда использовать Range

Я правильно понимаю, что нужно разделить на 1000 значения ячеек диапазона F1:F10?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub df()
'Range("AA1").Select
'ActiveCell.FormulaR1C1 = "1000"
'Range("AA1").Select
'Selection.Copy

For i =  10  To  1  Step - 1 
 If Cells(i,  6 ) >  1  Or Cells(i,  6 ) < - 1  Then
 'MyCount = MyCount + 1
  Cells(i,  6 ) = Cells(i,  6 ) /  1000 
 End If
Next i

End Sub
А почему нужно снизу бежать и делить?

вобщем снизу или сверху это не принципиально, просто так сделала
с этим кодом получается, только в конце выдает сообщение
run-time error 13
type mismatch
и указывает на эту строку Cells(i, 6) = Cells(i, 6) / 1000
...
Рейтинг: 0 / 0
08.07.2009, 13:44:34
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079864
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если опять же не классически подходить, то так
Код: plaintext
1.
2.
3.
4.
Sub test()
With Selection
.Value = Evaluate("Transpose(Transpose(" & .Address & "/(1+999*(ABS(" & .Address & ")>1))))")
End With
End Sub
...
Рейтинг: 0 / 0
08.07.2009, 13:55:41
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079872
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
ffflake,
может все таки файл будешь прилагать?
У меня все работает, см. аттач
:-)
...
Рейтинг: 0 / 0
08.07.2009, 13:57:50
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36079953
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Сергей06ffflake,
может все таки файл будешь прилагать?
У меня все работает, см. аттач
:-)

вот, выдает ошибку
...
Рейтинг: 0 / 0
08.07.2009, 14:27:26
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36080392
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
ffflake,

ошибку свою поняла, у меня есть и отрицательные и положительные значения, чуть неправильно условие было
...
Рейтинг: 0 / 0
08.07.2009, 17:00:31
| Ответить | Цитировать | Написать  
Деление значения, если больше 1
    #36080945
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
ffflake, ошибка не от этого ;-)
У тебя до первой строки код работает, а в первой строке не число, а текст. Поэтому он не может его разделить на 1000.
Нужно делать еще одну проверку: если текст то действия не производим :-). Либо добавить в начале кода
On Error Resume Next
...
Рейтинг: 0 / 0
09.07.2009, 06:08:07
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Деление значения, если больше 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36079710&tid=2179310]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 998ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 211ms
total:  1308ms
созд. / загр.: 1308ms
x
x
Закрыть


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