Разделение по строкам и исходному коду

@Kortess18 · Регистрация: 05.02.2016

Author24 — интернет-сервис помощи студентам

Есть код, который отвечает за то чтобы в диапазоне не повторялось слово:

Visual Basic

Set Rng = Worksheets("Лист1").Range("B4:M27").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
MsgBox "Это имя уже есть, введите другое"
Exit Sub
End If

В этом коде, если во всем диапазон повторяется это слово, до ввод невозможен.
Как можно сделать так, чтобы ввод ограничивался на каждые 4 строчки, т.е 4 строчки разрешает 1 повторение потом нет, потом с 5 строчки разрешает потом запрещает и т.д

@Vlad999 · 03.03.2016, 09:12

организуйте проверки именно этих 4 строчек а не всего диапазона. строчки постоянны или плавают?

@Kortess18 · 03.03.2016, 09:57 **[ТС]**

Они постоянны, уже организовывал , все равно ограничение идет на весь диапазон

@Vlad999 · 03.03.2016, 09:59

покажите как организовали.

@Kortess18 · 03.03.2016, 10:12 **[ТС]**

Тот же код, только диапазон-именно 4 строки с С4:M7, и каждые 4 строки этот код
Может это не правильно...скорее всего, я не шарю в VBA

@Vlad999 · 03.03.2016, 10:29

файл пример прикладываем.

@Kortess18 · 03.03.2016, 10:52 **[ТС]**

На данный момент файл не могу приложить, но суть там такая:
Set Rng = Worksheets("Лист1").Range("B4:M7").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
MsgBox "Это имя уже есть, введите другое"
Exit Sub
End If
Set Rng = Worksheets("Лист1").Range("B8:M11").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
MsgBox "Это имя уже есть, введите другое"
Exit Sub
End If
Set Rng = Worksheets("Лист1").Range("B12:M15").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
MsgBox "Это имя уже есть, введите другое"
Exit Sub
End If

@Vlad999 · 03.03.2016, 11:04

на сколько я понимаю вы пытаетесь ввести некий текст в некую ячейку. так вот с начало нужно определить какому диапазону она принадлежит и потом только проверять на наличие этого текста в полученном диапазоне.

@Kortess18 · 03.03.2016, 11:13 **[ТС]**

а не подскажете как это осуществить?

@Vlad999 · 03.03.2016, 14:40

вариант

Visual Basic

Dim i%, RNG As Range
For i = 0 To 23 Step 4
 If Not Intersect(ActiveCell, Range("C4:M7").Offset(i, 0)) Is Nothing Then
    Set RNG = Worksheets("Лист1").Range("C4:M7").Offset(i, 0).Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole)
     If Not RNG Is Nothing Then MsgBox "Это имя уже есть, введите другое": Exit Sub
    ActiveCell = ComboBox2.Value
 End If
Next

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	03.03.2016, 09:12	2
	организуйте проверки именно этих 4 строчек а не всего диапазона. строчки постоянны или плавают? 0

@Kortess18 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 35
	03.03.2016, 09:57 [ТС]	3
	Они постоянны, уже организовывал , все равно ограничение идет на весь диапазон 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	03.03.2016, 09:59	4
	покажите как организовали. 0

@Kortess18 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 35
	03.03.2016, 10:12 [ТС]	5
	Тот же код, только диапазон-именно 4 строки с С4:M7, и каждые 4 строки этот код Может это не правильно...скорее всего, я не шарю в VBA 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	03.03.2016, 10:29	6
	файл пример прикладываем. 0

@Kortess18 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 35
	03.03.2016, 10:52 [ТС]	7
	На данный момент файл не могу приложить, но суть там такая: Set Rng = Worksheets("Лист1").Range("B4:M7").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then MsgBox "Это имя уже есть, введите другое" Exit Sub End If Set Rng = Worksheets("Лист1").Range("B8:M11").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then MsgBox "Это имя уже есть, введите другое" Exit Sub End If Set Rng = Worksheets("Лист1").Range("B12:M15").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then MsgBox "Это имя уже есть, введите другое" Exit Sub End If 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	03.03.2016, 11:04	8
	на сколько я понимаю вы пытаетесь ввести некий текст в некую ячейку. так вот с начало нужно определить какому диапазону она принадлежит и потом только проверять на наличие этого текста в полученном диапазоне. 0

@Kortess18 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 35
	03.03.2016, 11:13 [ТС]	9
	а не подскажете как это осуществить? 0

	03.03.2016, 14:40