почему-то выбирает не те значения

@ramze · Регистрация: 27.11.2010

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

Добрый день! Уже к вечеру плохо соображаю.
Почему-то цикл выбирает также и значения меньше i.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton7_Click()
Dim mf As Worksheet
Dim i, j, b As Integer
Set mf = ActiveWorkbook.Worksheets("Main form")
i = Val(InputBox("Введите нижнюю границу >"))
b = Val(InputBox("Введите верхнюю границу <="))
j = 32
Do While mf.Cells(j, 8).Value <> Empty
    If mf.Cells(j, 8).Value > i Then
            mf.Rows(j & ":" & j).Hidden = False
                   Else
                    If mf.Cells(j, 8).Value <= b Then
           mf.Rows(j & ":" & j).Hidden = False
           End If
                 mf.Rows(j & ":" & j).Hidden = False
            End If
            
   If i = Empty Then
   mf.Rows(j & ":" & j).Hidden = False
   End If
       j = j + 1
  Loop
End Sub

@Helen_fire · 29.11.2010, 17:43

Может, просто потому что строки 10 и 15 одинаковы, а должны отличаться? ;-) судя по логике программы в строке 15 должно быть занчение True

@ramze · 29.11.2010, 17:52 **[ТС]**

Если меняем значение строки 15 на True, то он выберает все значения большие верхней границы

@Helen_fire · 29.11.2010, 17:58

все: логика понятна! вот правильный вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton7_Click()
Dim mf As Worksheet
Dim i, j, b As Integer
Set mf = ActiveWorkbook.Worksheets("Main form")
i = Val(InputBox("Введите нижнюю границу >"))
b = Val(InputBox("Введите верхнюю границу <="))
j = 32
Do While mf.Cells(j, 8).Value <> Empty
    If mf.Cells(j, 8).Value < i Then
            mf.Rows(j & ":" & j).Hidden = True
                   Else
                    If mf.Cells(j, 8).Value <= b Then
           mf.Rows(j & ":" & j).Hidden = False
           End If
                 mf.Rows(j & ":" & j).Hidden = true
            End If
            
   If i = Empty Then
   mf.Rows(j & ":" & j).Hidden = False
   End If
       j = j + 1
  Loop
End Sub

@ramze · 29.11.2010, 18:07 **[ТС]**

Сообщение от Helen_fire

все: логика понятна! вот правильный вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton7_Click()
Dim mf As Worksheet
Dim i, j, b As Integer
Set mf = ActiveWorkbook.Worksheets("Main form")
i = Val(InputBox("Введите нижнюю границу >"))
b = Val(InputBox("Введите верхнюю границу <="))
j = 32
Do While mf.Cells(j, 8).Value <> Empty
    If mf.Cells(j, 8).Value < i Then
            mf.Rows(j & ":" & j).Hidden = True
                   Else
                    If mf.Cells(j, 8).Value <= b Then
           mf.Rows(j & ":" & j).Hidden = False
           End If
                 mf.Rows(j & ":" & j).Hidden = true
            End If
            
   If i = Empty Then
   mf.Rows(j & ":" & j).Hidden = False
   End If
       j = j + 1
  Loop
End Sub

Теперь вообще ничего не выбирает просто все скрывает.

Добавлено через 5 минут
Теперь вообще ничего не выбирает

@ironegg · 29.11.2010, 18:22

ramze, ты бы объяснил логику и выложил бы файл, может у тебя несоответствие типов или еще что. отступы расставь по нормальному
а еще лучше - пройдись по коду пошаговой отладкой(F8). посмотри значения переменных\выражений и все тебе станет понятно

@ramze · 29.11.2010, 18:29 **[ТС]**

Сообщение от ironegg

ramze, ты бы объяснил логику и выложил бы файл, может у тебя несоответствие типов или еще что. отступы расставь по нормальному
а еще лучше - пройдись по коду пошаговой отладкой(F8). посмотри значения переменных\выражений и все тебе станет понятно

Данный код просто пробегает по всему списку и и не выбирает нужные ячейки в нужном диапазоне.

@Helen_fire · 29.11.2010, 22:01

Извините раздолбайку, тоже скосячила в развилке. теперь точно правильно:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton7_Click()
Dim mf As Worksheet
Dim i%, j%, b%
Set mf = ActiveWorkbook.Worksheets("Main form")
i = Val(InputBox("введите нижнюю границу >"))
b = Val(InputBox("введите верхнюю границу <="))
j = 32
x = Application.Min(i, b)
Do While mf.Cells(j, 8).Value <> Empty
    If mf.Cells(j, 8).Value > Application.Max(i, b) Or mf.Cells(j, 8).Value < Application.Min(i, b) Then
           mf.Rows(j & ":" & j).Hidden = True
          Else
      mf.Rows(j & ":" & j).Hidden = False
            End If
            
   If i = Empty Then
   mf.Rows(j & ":" & j).Hidden = False
   End If
       j = j + 1
  Loop
End Sub

;-)

@ramze · 30.11.2010, 08:35 **[ТС]**

Вот теперь работает как часы. Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Helen_fire 204 / 43 / 6 Регистрация: 15.10.2010 Сообщений: 125
	29.11.2010, 17:43
	Может, просто потому что строки 10 и 15 одинаковы, а должны отличаться? ;-) судя по логике программы в строке 15 должно быть занчение True 0

@ramze 1 / 1 / 0 Регистрация: 27.11.2010 Сообщений: 49
	29.11.2010, 17:52 [ТС]
	Если меняем значение строки 15 на True, то он выберает все значения большие верхней границы 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	29.11.2010, 18:22
	ramze, ты бы объяснил логику и выложил бы файл, может у тебя несоответствие типов или еще что. отступы расставь по нормальному а еще лучше - пройдись по коду пошаговой отладкой(F8). посмотри значения переменных\выражений и все тебе станет понятно 0

@ramze 1 / 1 / 0 Регистрация: 27.11.2010 Сообщений: 49
	30.11.2010, 08:35 [ТС]
	Вот теперь работает как часы. Спасибо! 0