Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Теория вероятности Определить теоретич значения для удаления - Страница 3 - Мир MS Excel

Старая форма входа
  • Страница 3 из 5
  • «
  • 1
  • 2
  • 3
  • 4
  • 5
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Теория вероятности Определить теоретич значения для удаления (Макросы/Sub)
Теория вероятности Определить теоретич значения для удаления
Wasilich Дата: Пятница, 01.04.2016, 14:14 | Сообщение № 41
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Наверное по первому вопросу так.
[vba]
Код
Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as")).ClearContents
    End If
  Next
End Sub
[/vba]Проверьте, а то у меня 2003-й кое-какие формулы не понимает.


Сообщение отредактировал Wasilich - Пятница, 01.04.2016, 14:15
 
Ответить
СообщениеНаверное по первому вопросу так.
[vba]
Код
Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as")).ClearContents
    End If
  Next
End Sub
[/vba]Проверьте, а то у меня 2003-й кое-какие формулы не понимает.

Автор - Wasilich
Дата добавления - 01.04.2016 в 14:14
lebensvoll Дата: Пятница, 01.04.2016, 14:18 | Сообщение № 42
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, а активация макроса №1 через кнопку. Мне нужно смотреть видео как создать данную кнопку чтоб ее установить или же в предложенном вами макросе он уже прописан???


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, а активация макроса №1 через кнопку. Мне нужно смотреть видео как создать данную кнопку чтоб ее установить или же в предложенном вами макросе он уже прописан???

Автор - lebensvoll
Дата добавления - 01.04.2016 в 14:18
lebensvoll Дата: Пятница, 01.04.2016, 14:20 | Сообщение № 43
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Правильно я установил его???
К сообщению приложен файл: 1-1.xlsm (72.7 Kb)


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеПравильно я установил его???

Автор - lebensvoll
Дата добавления - 01.04.2016 в 14:20
Wasilich Дата: Пятница, 01.04.2016, 14:37 | Сообщение № 44
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
После этого если оператор видит что условие не срабатывает:
Цитата
1. AS60 значение будет <=1,5;
2. AU:AX61 значение будет >=0,7;
3. AH63:AK64 значение будет >6 <15;
он начинает (я их окрашиваю в оранжевый цвет смотрю приближенные значения к (>2; <-2)
Офигеть, как Вы пишите.
Я понял так. Нужно делать проверку значений в столбцах V и W каждый раз снижая контрольное значение до тех пор пока не будут соблюдены условия в ячейках AS60, AU61:AX61 и AH63:AK64 Так? Если так, с каким шагом снижать контрольное значение?
>1,8 <-1,8 это шаг 0,2.
 
Ответить
Сообщение
После этого если оператор видит что условие не срабатывает:
Цитата
1. AS60 значение будет <=1,5;
2. AU:AX61 значение будет >=0,7;
3. AH63:AK64 значение будет >6 <15;
он начинает (я их окрашиваю в оранжевый цвет смотрю приближенные значения к (>2; <-2)
Офигеть, как Вы пишите.
Я понял так. Нужно делать проверку значений в столбцах V и W каждый раз снижая контрольное значение до тех пор пока не будут соблюдены условия в ячейках AS60, AU61:AX61 и AH63:AK64 Так? Если так, с каким шагом снижать контрольное значение?
>1,8 <-1,8 это шаг 0,2.

Автор - Wasilich
Дата добавления - 01.04.2016 в 14:37
lebensvoll Дата: Пятница, 01.04.2016, 14:45 | Сообщение № 45
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, вы все правильно поняли нужна проверка.
Но тут
Цитата
с каким шагом снижать контрольное значение?
>1,8 <-1,8 это шаг 0,2.
их наверное нужно начинать с 0,1 если не получилось то потом 0,2 и т.д если я вас правильно понял сейчас...


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, вы все правильно поняли нужна проверка.
Но тут
Цитата
с каким шагом снижать контрольное значение?
>1,8 <-1,8 это шаг 0,2.
их наверное нужно начинать с 0,1 если не получилось то потом 0,2 и т.д если я вас правильно понял сейчас...

Автор - lebensvoll
Дата добавления - 01.04.2016 в 14:45
Wasilich Дата: Пятница, 01.04.2016, 14:47 | Сообщение № 46
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Мне нужно смотреть видео как создать данную кнопку
Да уж!!! Я не знаю как в 2010-м. Но макрос желательно поместить в общий модуль, а не в модуль листа.
Проверьте в 2003-м.
К сообщению приложен файл: lebensvoll2.rar (36.3 Kb)
 
Ответить
Сообщение
Мне нужно смотреть видео как создать данную кнопку
Да уж!!! Я не знаю как в 2010-м. Но макрос желательно поместить в общий модуль, а не в модуль листа.
Проверьте в 2003-м.

Автор - Wasilich
Дата добавления - 01.04.2016 в 14:47
lebensvoll Дата: Пятница, 01.04.2016, 14:52 | Сообщение № 47
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, прошу прощение конечно но я с этим ни разу не сталкивался (((( да вы все правильно меня поняли hands hands hands hands спасибо вам огромное.
Я очень надеюсь что с прописыванием второго макроса вы хоть немного поняли (что я написал) не кажется для вас это бредом!?


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, прошу прощение конечно но я с этим ни разу не сталкивался (((( да вы все правильно меня поняли hands hands hands hands спасибо вам огромное.
Я очень надеюсь что с прописыванием второго макроса вы хоть немного поняли (что я написал) не кажется для вас это бредом!?

Автор - lebensvoll
Дата добавления - 01.04.2016 в 14:52
lebensvoll Дата: Пятница, 01.04.2016, 15:04 | Сообщение № 48
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, смотрите что говорит кросс
Цитата
выполняем макрос

[vba]
Код
Worksheet_Change(ByVal Target As Range)
[/vba]
Цитата
Далее макрос 2 должен провести следующую конструкцию проверки:

[vba]
Код
With thisworksheet
if .range("AS60")<=1.5 and _
.range("AU61")>=0.7 and _
(.range("AU61")<=6 and .range("AU61")>=15) then
''' это было условие
'1. если в ячейке AS60 значение >1,5;
'2. также в ячейке AU:AX61 значение <0,7;
'3. в ячейке AH63:AK64 значение <6 >15
'Если три этих пункта не выполняются
end with
[/vba]
Цитата
Далее не ясна Ваша конструкция-
"макрос теоретически произвел расчет и предположительно "окрасил" ячейки (предполагаемые) ".
Макрос может или произвести расчет или не произвести- теоретически произвести его у меня не хватает фантазии как это интерпретировать. С окрашиванием - тоже самое. Поясните поконкретнее.

т.е он не может произвести окрашивание (да и ладно тогда) но удалить то он может если он произвел расчет


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, смотрите что говорит кросс
Цитата
выполняем макрос

[vba]
Код
Worksheet_Change(ByVal Target As Range)
[/vba]
Цитата
Далее макрос 2 должен провести следующую конструкцию проверки:

[vba]
Код
With thisworksheet
if .range("AS60")<=1.5 and _
.range("AU61")>=0.7 and _
(.range("AU61")<=6 and .range("AU61")>=15) then
''' это было условие
'1. если в ячейке AS60 значение >1,5;
'2. также в ячейке AU:AX61 значение <0,7;
'3. в ячейке AH63:AK64 значение <6 >15
'Если три этих пункта не выполняются
end with
[/vba]
Цитата
Далее не ясна Ваша конструкция-
"макрос теоретически произвел расчет и предположительно "окрасил" ячейки (предполагаемые) ".
Макрос может или произвести расчет или не произвести- теоретически произвести его у меня не хватает фантазии как это интерпретировать. С окрашиванием - тоже самое. Поясните поконкретнее.

т.е он не может произвести окрашивание (да и ладно тогда) но удалить то он может если он произвел расчет

Автор - lebensvoll
Дата добавления - 01.04.2016 в 15:04
lebensvoll Дата: Пятница, 01.04.2016, 15:13 | Сообщение № 49
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, прошу прощение поспешил ответить на сообщение
Цитата
Дата: Пятница, 01.04.2016, 14:37 | Сообщение № 44
не нужно в столбце V производить проверку ((((( 2-й макрос лишь производит проверку в столбце W (((( простите отвлекли блин по работе
Цитата
Я понял так. Нужно делать проверку значений в столбцах V и W каждый раз снижая контрольное значение до тех пор пока не будут соблюдены условия в ячейках AS60, AU61:AX61 и AH63:AK64 Так? Если так, с каким шагом снижать контрольное значение?
>1,8 <-1,8 это шаг 0,2.


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, прошу прощение поспешил ответить на сообщение
Цитата
Дата: Пятница, 01.04.2016, 14:37 | Сообщение № 44
не нужно в столбце V производить проверку ((((( 2-й макрос лишь производит проверку в столбце W (((( простите отвлекли блин по работе
Цитата
Я понял так. Нужно делать проверку значений в столбцах V и W каждый раз снижая контрольное значение до тех пор пока не будут соблюдены условия в ячейках AS60, AU61:AX61 и AH63:AK64 Так? Если так, с каким шагом снижать контрольное значение?
>1,8 <-1,8 это шаг 0,2.

Автор - lebensvoll
Дата добавления - 01.04.2016 в 15:13
lebensvoll Дата: Пятница, 01.04.2016, 15:25 | Сообщение № 50
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, смотрите возможно так вам будет проще понять
макрос №2
должен определить в столбце W приблеженные значения к (>2; <-2) окрасить их, а в столбце X прописать "отбраковывается" и удалить значения

Цитата
из ячеек: U; AL:AM; AS; AV:AX. Но, при этом значения в столбце "W" не изменилось после удаления

но при этом сохранить исходное значение которое получилось в столбце W (т.е. оставить его не измененным, потому как если удалить значения из указанных выше столбцах то значение в столбце "W" меняется ((( ). тем самым он должен столько раз произвести это чтоб условие в ячейках сработало

Цитата
1. AS60 значение будет <=1,5;
2. AU:AX61 значение будет >=0,7;
3. AH63:AK64 значение будет >6 <15;


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, смотрите возможно так вам будет проще понять
макрос №2
должен определить в столбце W приблеженные значения к (>2; <-2) окрасить их, а в столбце X прописать "отбраковывается" и удалить значения

Цитата
из ячеек: U; AL:AM; AS; AV:AX. Но, при этом значения в столбце "W" не изменилось после удаления

но при этом сохранить исходное значение которое получилось в столбце W (т.е. оставить его не измененным, потому как если удалить значения из указанных выше столбцах то значение в столбце "W" меняется ((( ). тем самым он должен столько раз произвести это чтоб условие в ячейках сработало

Цитата
1. AS60 значение будет <=1,5;
2. AU:AX61 значение будет >=0,7;
3. AH63:AK64 значение будет >6 <15;

Автор - lebensvoll
Дата добавления - 01.04.2016 в 15:25
Wasilich Дата: Пятница, 01.04.2016, 19:54 | Сообщение № 51
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
не кажется для вас это бредом!
Ну что сказать, бред не в самой задаче, а в том как вы ее преподносили. Три страницы не нужной информации, и только в последних постах выжимая из Вас нужную, что то прояснилось.
Проверяйте. Теоретически должно работать. Практически проверить сложно. У меня проблема с функцией _xlfn.IFERROR()
К сообщению приложен файл: lebensvoll3.rar (37.0 Kb)


Сообщение отредактировал Wasilich - Пятница, 01.04.2016, 19:54
 
Ответить
Сообщение
не кажется для вас это бредом!
Ну что сказать, бред не в самой задаче, а в том как вы ее преподносили. Три страницы не нужной информации, и только в последних постах выжимая из Вас нужную, что то прояснилось.
Проверяйте. Теоретически должно работать. Практически проверить сложно. У меня проблема с функцией _xlfn.IFERROR()

Автор - Wasilich
Дата добавления - 01.04.2016 в 19:54
al-Ex Дата: Пятница, 01.04.2016, 19:58 | Сообщение № 52
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
[offtop]Читаю ветку. Масса впечатлений. Чисто, - "Санта Барбара".
Василич, Вам поклон.


Сообщение отредактировал al-Ex - Пятница, 01.04.2016, 20:41
 
Ответить
Сообщение[offtop]Читаю ветку. Масса впечатлений. Чисто, - "Санта Барбара".
Василич, Вам поклон.

Автор - al-Ex
Дата добавления - 01.04.2016 в 19:58
lebensvoll Дата: Пятница, 01.04.2016, 21:55 | Сообщение № 53
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich,
Цитата
Три страницы не нужной информации, и только в последних постах выжимая из Вас нужную, что то прояснилось.
вот самое что интересное я все это сразу и излагал ((((.
В приложенном файле вы объеденили кнопку макроса )))) что тоже интересно и толково. НО условие не выполнилось и удалились все оставшиеся значения (и вы поняли правильно удалялись то что нужно) несколько раз макрос предложил удалить очередные значения (((( и так все они и удалились.


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich,
Цитата
Три страницы не нужной информации, и только в последних постах выжимая из Вас нужную, что то прояснилось.
вот самое что интересное я все это сразу и излагал ((((.
В приложенном файле вы объеденили кнопку макроса )))) что тоже интересно и толково. НО условие не выполнилось и удалились все оставшиеся значения (и вы поняли правильно удалялись то что нужно) несколько раз макрос предложил удалить очередные значения (((( и так все они и удалились.

Автор - lebensvoll
Дата добавления - 01.04.2016 в 21:55
lebensvoll Дата: Пятница, 01.04.2016, 21:57 | Сообщение № 54
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as")).ClearContents
      End If
    Next j
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления
[/vba]
во втором макросе есть что не так я понимаю. Почему когда я удалял так в ручную условие выполнялось а когда с макросом (((( нет


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщение[vba]
Код
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as")).ClearContents
      End If
    Next j
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления
[/vba]
во втором макросе есть что не так я понимаю. Почему когда я удалял так в ручную условие выполнялось а когда с макросом (((( нет

Автор - lebensvoll
Дата добавления - 01.04.2016 в 21:57
lebensvoll Дата: Пятница, 01.04.2016, 21:59 | Сообщение № 55
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, заметил вот еще что вы не учли удаление значений во втором макросе в столбце AV8:AX57 ((( возможно что из за этого


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеWasilich, заметил вот еще что вы не учли удаление значений во втором макросе в столбце AV8:AX57 ((( возможно что из за этого

Автор - lebensvoll
Дата добавления - 01.04.2016 в 21:59
Wasilich Дата: Пятница, 01.04.2016, 22:16 | Сообщение № 56
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
вы не учли удаление значений во втором макросе в столбце AV8:AX57
Ну так добавьте в коде.[vba]
Код
Intersect(Rows(j), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
[/vba]
Здесь же
If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
смогли добавить какую то не понятную ахинею.
Извините я "умываю руки". Успехов.
 
Ответить
Сообщение
вы не учли удаление значений во втором макросе в столбце AV8:AX57
Ну так добавьте в коде.[vba]
Код
Intersect(Rows(j), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
[/vba]
Здесь же
If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
смогли добавить какую то не понятную ахинею.
Извините я "умываю руки". Успехов.

Автор - Wasilich
Дата добавления - 01.04.2016 в 22:16
lebensvoll Дата: Пятница, 01.04.2016, 23:24 | Сообщение № 57
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, я так и сделал но [img][/img]
[vba]
Код
Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Cells(i, "V").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Cells(i, "W").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as")).ClearContents
    End If
  Next
  If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
     MsgBox "Условие выполнено, процедура закончена"
     Exit Sub
  Else
     If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
       Макрос_2
     End If
  End If
End Sub
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
      End If
    Next j
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления
[/vba]
Просто этот бред приписывается (((( не отпускайте руки (((( помогите завершить начатое.
Внес столбцы и при использовании макроса наблюдаю как удаляются значения. Также смотрю за условием и вот оно удовлетворило но макрос продолжает прописывать что условие не выполнено (((((( Вы же все правильно прописали и верно


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Пятница, 01.04.2016, 23:42
 
Ответить
СообщениеWasilich, я так и сделал но [img][/img]
[vba]
Код
Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Cells(i, "V").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Cells(i, "W").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as")).ClearContents
    End If
  Next
  If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
     MsgBox "Условие выполнено, процедура закончена"
     Exit Sub
  Else
     If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
       Макрос_2
     End If
  End If
End Sub
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
      End If
    Next j
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления
[/vba]
Просто этот бред приписывается (((( не отпускайте руки (((( помогите завершить начатое.
Внес столбцы и при использовании макроса наблюдаю как удаляются значения. Также смотрю за условием и вот оно удовлетворило но макрос продолжает прописывать что условие не выполнено (((((( Вы же все правильно прописали и верно

Автор - lebensvoll
Дата добавления - 01.04.2016 в 23:24
al-Ex Дата: Суббота, 02.04.2016, 00:23 | Сообщение № 58
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
 If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
Тут "lol.gif" больше подходит, чем "сооl", думаю.
Значение в ячейке листа, нельзя со смайликом в посте форума, сравнивать, - " Mismatch Типо"
[offtop]Чёт Василич накосячил, видимо.)
или просто, - "Первый апрель"?


Сообщение отредактировал al-Ex - Суббота, 02.04.2016, 01:08
 
Ответить
Сообщение
 If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
Тут "lol.gif" больше подходит, чем "сооl", думаю.
Значение в ячейке листа, нельзя со смайликом в посте форума, сравнивать, - " Mismatch Типо"
[offtop]Чёт Василич накосячил, видимо.)
или просто, - "Первый апрель"?

Автор - al-Ex
Дата добавления - 02.04.2016 в 00:23
Wasilich Дата: Суббота, 02.04.2016, 08:43 | Сообщение № 59
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
смотрю за условием и вот оно удовлетворило но макрос продолжает прописывать что условие не выполнено
В обеих макроса замените строку проверки условий на эту
[vba]
Код
  If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AH63") >= 6 And Range("AH63") <= 15) Then
[/vba]
Чёт Василич накосячил, видимо.)
Не мое это. И откуда оно, не знаю. %)


Сообщение отредактировал Wasilich - Суббота, 02.04.2016, 08:45
 
Ответить
Сообщение
смотрю за условием и вот оно удовлетворило но макрос продолжает прописывать что условие не выполнено
В обеих макроса замените строку проверки условий на эту
[vba]
Код
  If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AH63") >= 6 And Range("AH63") <= 15) Then
[/vba]
Чёт Василич накосячил, видимо.)
Не мое это. И откуда оно, не знаю. %)

Автор - Wasilich
Дата добавления - 02.04.2016 в 08:43
lebensvoll Дата: Суббота, 02.04.2016, 19:35 | Сообщение № 60
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Wasilich, макрос №1
[vba]
Код
Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Cells(i, "V").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Cells(i, "W").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
    End If
  Next
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AH63") >= 6 And Range("AH63") <= 15) Then
     MsgBox "Условие выполнено, процедура закончена"
     Exit Sub
  Else
     If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
       Макрос_2
     End If
  End If
End Sub
[/vba]
макрос №2
[vba]
Код
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
      End If
    Next j
      If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AH63") >= 6 And Range("AH63") <= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления
[/vba]
ВЫ ПРОСТО ГЕНИЙ!!!! СПАСИБО ВАМ ОГРОМНОЕ ЗА ПОНИМАНИЕ ЖЕЛЕЗНОЕ ТЕРПЕНИЕ И ВЫДЕРЖКУ hands :hands: hands :hands:


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Суббота, 02.04.2016, 19:36
 
Ответить
СообщениеWasilich, макрос №1
[vba]
Код
Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Cells(i, "V").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Cells(i, "W").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
    End If
  Next
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AH63") >= 6 And Range("AH63") <= 15) Then
     MsgBox "Условие выполнено, процедура закончена"
     Exit Sub
  Else
     If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
       Макрос_2
     End If
  End If
End Sub
[/vba]
макрос №2
[vba]
Код
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > <img rel="usm" src="http://www.excelworld.ru/sml2/cool.gif" border="0" align="absmiddle" alt="B)" /> Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as,AV:AX")).ClearContents
      End If
    Next j
      If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AH63") >= 6 And Range("AH63") <= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления
[/vba]
ВЫ ПРОСТО ГЕНИЙ!!!! СПАСИБО ВАМ ОГРОМНОЕ ЗА ПОНИМАНИЕ ЖЕЛЕЗНОЕ ТЕРПЕНИЕ И ВЫДЕРЖКУ hands :hands: hands :hands:

Автор - lebensvoll
Дата добавления - 02.04.2016 в 19:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Теория вероятности Определить теоретич значения для удаления (Макросы/Sub)
  • Страница 3 из 5
  • «
  • 1
  • 2
  • 3
  • 4
  • 5
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!