Мелочи вызывают затруднение

[doober]

Я не совсем в теме.Но заинтересовался.Конечная цель какая ?
Создать программу например управления поливальными машинами через LTPI порт,или моделирование и просчет графика полива,а опрератор жмет потом кнопку.

[аналитика]

' ДМ 1
Private Sub CheckBox1_Click()
   Set LastCell = ActiveCell   'это можешь добавить к каждому CheckBox_Click
   Application.ScreenUpdating = False 'это можешь добавить к каждому CheckBox_Click
   
   Sheets(1).Shapes("Овал 21").Select
   With Selection.ShapeRange.Fill.ForeColor
      If CheckBox1.Value = -1 Then
         .SchemeColor = 14
      ElseIf CheckBox1.Value = 0 Then
         .SchemeColor = 15
      End If
   End With
   
   LastCell.Select 'это можешь добавить к каждому CheckBox_Click
   Application.ScreenUpdating = True 'это можешь добавить к каждому CheckBox_Click
End Sub

   Dim r As Range

   For Each r In Sheets(2).Range("D4:M4")
      If Sheets(1).Range("D35") <> 0 And r = 1 Then
         FormAvariyDM.Show
      End If
   Next r

у тебя все работает, мне кажется ты просто не так понимаешь логическую связку And - истина, если оба операнда истинны,
может тебе нужен Or - истина, если хотя бы один из операндов истинен

[Freddy19]

Эта программа одна из лабораторных работ. Просто пытаюсь добиться случайных условных неполадок, чтобы диспетчер мог принимать решения для управления ДМ и насосами.

[Freddy19]

[QUOTE=аналитика;575484]

' ДМ 1
Private Sub CheckBox1_Click()
   Set LastCell = ActiveCell   'это можешь добавить к каждому CheckBox_Click
   Application.ScreenUpdating = False 'это можешь добавить к каждому CheckBox_Click
   
   Sheets(1).Shapes("Овал 21").Select
   With Selection.ShapeRange.Fill.ForeColor
      If CheckBox1.Value = -1 Then
         .SchemeColor = 14
      ElseIf CheckBox1.Value = 0 Then
         .SchemeColor = 15
      End If
   End With
   
   LastCell.Select 'это можешь добавить к каждому CheckBox_Click
   Application.ScreenUpdating = True 'это можешь добавить к каждому CheckBox_ClickEnd Sub

   Dim r As Range

   For Each r In Sheets(2).Range("D4:M4")
      If Sheets(1).Range("D35") <> 0 And r = 1 Then
         FormAvariyDM.Show
      End If
   Next r

And - истина, если оба операнда истинны.

Но в генераторе нет 1-ц. а в D35 есть значение и сробатывает.
Мне и нужно чтобы оба были истинной, а не по отдельности.

[Freddy19]

А что дадут эти добавления в CheckBox_Click?

[Freddy19]

Разница заметна очень сильно! СПАСИБО!

[аналитика]

про добавления разобрался?
я тестил:
из генератора убирал 1-цу, окно переставало выскакивать, ставил, выскакивало при положительной D35 - вроде все, как положено.

Еще на кнопку "OK" св-во Cancel=True, чтобы Esc-ом закрывать (меня напрягало по кнопочке тыкать)

[аналитика]

Генератор, чтобы не было непоняток, - это диапазон D4:M4 на "лист2", да?

[Freddy19]

При всех положительных D35 не должно выскакивать, только если и в генераторе единица попалась.
Может я цыкл не понимаю.
Условие ж вроде верно если D35<>0 и 1 в ячейке генератора соответствующей SpinButton.
Или если на листе 1 с D4 по M4 <> 0 и на листе 2 с D4 по M4 = 1

[Freddy19]

Ну да
'Ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
Dim c As Range
Randomize
For Each c In Sheets("Ëèñò2").Range("D4:M9")
c = Int(Rnd * 10)
Next c