Перечисление чисел для условия

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Перечисление чисел для условия (Макросы/Sub)

Ganjubass192

Дата: Четверг, 17.07.2014, 15:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброго времени суток, господа!
Туплю жестко, но прошу помощи. Имеется код. Мне нужно сделать так что бы при наличии в ячейке 37,61 одного из чисел, 1011711 ИЛИ 1011703 выполнялось другое условие. Собственно проблема в том, что я не могу задать эти два числа. Работает только для одного. Спасибо.
[vba]

Код

Sub auto_open()
Dim a As Long, b As Long
a = 1011711
b = 1011703
If Cells(37, 61) <> a Then
Cells(37, 61).Interior.ColorIndex = 43
Cells(35, 61).Interior.ColorIndex = 43
Worksheets("стр.4").Cells(63, 85).Interior.ColorIndex = 43
Else
If Cells(37, 61) = a Then
If Worksheets("стр.4").Cells(63, 85) <= Cells(35, 61) Then
Cells(37, 61).Interior.ColorIndex = 3
Cells(35, 61).Interior.ColorIndex = 3
Worksheets("стр.4").Cells(63, 85).Interior.ColorIndex = 3
Else: Cells(37, 61).Interior.ColorIndex = 43
Cells(35, 61).Interior.ColorIndex = 43
Worksheets("стр.4").Cells(63, 85).Interior.ColorIndex = 43
End If
End If
End If
If Cells(37, 61) = "" Then
Cells(37, 61).Interior.ColorIndex = 2
End If
If Cells(35, 61) = "" Then
Cells(35, 61).Interior.ColorIndex = 2
End If
End Sub

[/vba]

Ответить

Саня

Дата: Четверг, 17.07.2014, 15:54 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

If Cells(37, 61) = a OR Cells(37, 61) = b Then
' выполнялось другое условие
end if

[/vba]
надеюсь, ты знаешь куда это надо поместить.

Ответить

Ganjubass192

Дата: Четверг, 17.07.2014, 16:23 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Саня, не работает для числа "b" все равно. Для "a" все верно. Проверяет неравенство, если выполняется, метит ячейку одним цветом, если не выполняется, другим. Если ввести число "b", то он не проверяет неравенство.

Ответить

Ganjubass192

Дата: Четверг, 17.07.2014, 17:27 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Прикрепляю условие объясненное на пальцах. В А4 если фиксированные значения, то должно проверить неравенство. При выполнении этих двух условий должна быть ошибка. Если ввести в А4 другое значение, отличающиеся от этих двух, то второе условие не должно проверяться. Надеюсь на помощь. Код там же.

К сообщению приложен файл: _Microsoft_Exce.xlsm (13.8 Kb)

Сообщение отредактировал Ganjubass192 - Четверг, 17.07.2014, 21:14

Ответить

Перечисление чисел для условия (Макросы/Sub)

Страница 1 из 1
1