Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Перевод формулы из экселевской на VBA
|
|||
|---|---|---|---|
|
#18+
подскажите пожалуйста, как переделать процедуру Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 37 Then Target.Offset(, -1) = Target.Offset(, -1) - Target On Error GoTo 0 End Sub на вот такую формулу =ЕСЛИ(D9>0;($I8*ЕСЛИ(D9="р";$H$5;ЕСЛИ(D9="о";$G$5;0))/1000/ЕСЛИ(D9="о";СЧЁТЕСЛИ($D9:$D46;"о");ЕСЛИ(D9="р";1;0)));"-") точнее как правильно переписать процедуру? изменить строку If Target.Column = 37 Then Target.Offset(, -1) = Target.Offset(, -1) - Target на формулу из экселя?, только чтобы процедура считала программно, а не записывала формулы в ячейки ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.07.2010, 10:58 |
|
||
|
Перевод формулы из экселевской на VBA
|
|||
|---|---|---|---|
|
#18+
Попробуйте попроще и почётче выразить свою мысль. Лично ничего не понял. А то как в сказке получается: "Да передайте, чтобы пришла она ко мне не голая и не одетая, не голодная и не сытая, не днем и не ночью, не пешком и не верхом." (с) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.07.2010, 11:38 |
|
||
|
Перевод формулы из экселевской на VBA
|
|||
|---|---|---|---|
|
#18+
в фале описание, что мне нужно помочь! спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.07.2010, 12:02 |
|
||
|
Перевод формулы из экселевской на VBA
|
|||
|---|---|---|---|
|
#18+
Ну ЕСЛИ заменяется на IIF, обращение к относительным ячейкам - через .Offset (пример у вас есть), обращение к абсолютным ячейкам Cells(n,m), вот только не знаю, чем, кроме цикла, заменить СЧЕТЕСЛИ (может камрады подскажут) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.07.2010, 12:14 |
|
||
|
Перевод формулы из экселевской на VBA
|
|||
|---|---|---|---|
|
#18+
Shocker.Pro, вот что выдает запись макроса: "IF(RC[-1]>0,(R8C9*IF(RC[-1]=""р"",R5C8,IF(RC[-1]=""о"",R5C7,0))/1000/IF(RC[-1]=""о"",COUNTIF(RC4:R[37]C4,""о""),IF(RC[-1]=""р"",1,0))),""-"")" помогите пожалуйста применить эту формулу, или подскажите как ее переделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.07.2010, 09:38 |
|
||
|
Перевод формулы из экселевской на VBA
|
|||
|---|---|---|---|
|
#18+
С таниславпомогите пожалуйста применить эту формулу, или подскажите как ее переделать? Эту формулу применить не получится - это то же самое, от чего хотите уйти, только на английском. Как переделать - я писал выше. Раз никто не предлагает замену для СЧЁТЕСЛИ - в этом месте надо будет использовать цикл. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.07.2010, 10:12 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=36727058&tid=2159596]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
60ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
51ms |
get tp. blocked users: |
2ms |
| others: | 14ms |
| total: | 173ms |
| 0 / 0 |
