Ошибка run-time error 1004

@Вадим112 · Регистрация: 08.11.2014

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

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
24
Sub pract()
korp = Val(InputBox("Введите номер столбца, где находятся адреса: ", "Столбец", 5))
Columns(korp + 1).Select
Selection.Insert Shift:=xlToLeft
Cells(1, korp + 1).Value = "Корпус"
' Заполняем столбец "Корпус"
    For i = 2 To 20 Step 1
    If InStr(1, Cells(i, korp), "КОРП.", vbTextCompare) > 0 Then
     a = InStr(1, Cells(i, korp), "КОРП.", vbTextCompare)
    Else: Cells(i, korp + 1) = " "
    End If
    If InStr(a, Cells(i, korp), ",", vbTextCompare) > 0 Then
     b = InStr(a, Cells(i, korp), ",", vbTextCompare)
     a = a + 5
     Cells(i, korp + 1) = Mid(Cells(i, korp), a, b - a)
'     Cells(1, korp + 1) = Mid(Cells(1, korp), a, a - b - 1)
    Else
     b = Len(Cells(i, NBlok))
     a = a + 5
     Cells(i, korp + 1) = Mid(Cells(i, korp), a, b - a + 1)  // ошибка в этой строке.
     End If
    Next i
        Cells(1, korp + 1).Select
     End Sub

@Surrogate · 24.06.2015, 10:42

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

нужно a обнулять !

я хотел сказать, что a нужно для каждой строки вычислять !
в данном коде получается для строки 4. берется значение вычисленное для строки и плюсуется 5. в итоге число получается больше b

@Вадим112 · 24.06.2015, 10:43 **[ТС]**

После проверки всей таблицы отсортировать ее по значению вставленно-
го столбца? как это реализовать?

@Kubuntovod · 24.06.2015, 10:44

Сообщение от Вадим112

После проверки всей таблицы отсортировать ее по значению вставленно-
го столбца? как это реализовать?

Запустить запись макроса и отсортировать.

@Вадим112 · 24.06.2015, 10:51 **[ТС]**

Это получается где буквы корпуса стоят этот столбец нужно сортировать?

@Surrogate · 24.06.2015, 10:56

немного укоротил код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub добавка()
korp = Val(InputBox("Введите номер столбца, в котором находятся адреса: ", "Столбец", 5))
Columns(korp + 1).Select
Selection.Insert Shift:=xlToLeft
Cells(1, korp + 1).Value = "Корпус"
' Заполняем столбец "Корпус"
    For i = 2 To 20 Step 1
     a = InStr(1, Cells(i, korp), "КОРП.", vbTextCompare)
     b = Len(Cells(i, korp))
    If a > 0 Then
    Cells(i, korp + 1) = Mid(Cells(i, korp), a, b - a - 5)
    Else: Cells(i, korp + 1) = " "
     End If
     Next
End Sub

теперь все работает

@Kubuntovod · 24.06.2015, 10:59

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Заполняем столбец "Корпус"
  For i = 2 To 20 Step 1
    a = InStr(1, Cells(i, korp), "КОРП.", vbTextCompare)
    If a > 0 Then
      Cells(i, korp + 1) = Mid(Cells(i, korp), a + 5, 1)
    Else
     a = InStr(2, Cells(i, korp), "Д.", vbTextCompare)
     b = InStr(a, Cells(i, korp), ",", vbTextCompare)
     If b = 0 Then
      Cells(i, korp + 1) = Mid(Cells(i, korp), a + 2)
     Else
      Cells(i, korp + 1) = Mid(Cells(i, korp), a + 2, b - a - 2)
     End If
    End If
  Next i

Так должно выглядеть в итоге?

Сообщение от Вадим112

Это получается где буквы корпуса стоят этот столбец нужно сортировать?

Да.

@Вадим112 · 24.06.2015, 11:01 **[ТС]**

Второй код, выводит дома почему то еще. После отсортировки.Установить курсор во вторую ячейку вставленного столбца. так должно заканчиваться работа

@Kubuntovod · 24.06.2015, 11:06

Visual Basic
1
2
3
4
5
    Columns("F:F").EntireColumn.AutoFit
    Range("A1:F20").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("F2").Select

Вот запись макрорекордером. Осталось приспособить под Ваш требуемый столбец.

Добавлено через 1 минуту

Сообщение от Вадим112

Второй код, выводит дома почему то еще.

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

@Вадим112 · 24.06.2015, 11:07 **[ТС]**

Если корпуса нету, то там пустая ячейка остается

@Kubuntovod · 24.06.2015, 11:09

Сообщение от Вадим112

Если корпуса нету, то там пустая ячейка остается

Тогда код ещё короче:

Visual Basic
1
2
3
4
5
6
7
8
9
' Заполняем столбец "Корпус"
  For i = 2 To 20 Step 1
    a = InStr(1, Cells(i, korp), "КОРП.", vbTextCompare)
    If a > 0 Then
      Cells(i, korp + 1) = Mid(Cells(i, korp), a + 5, 1)
    Else
      Cells(i, korp + 1).ClearContents
    End If
  Next i

@Вадим112 · 24.06.2015, 11:12 **[ТС]**

код макросортировки, после чего ставить?

@Kubuntovod · 24.06.2015, 11:19

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub добавка()
korp = Val(InputBox("Введите номер столбца, в котором находятся адреса: ", "Столбец", 5))
Columns(korp + 1).Select
Selection.Insert Shift:=xlToLeft
Cells(1, korp + 1).Value = "Корпус"
' Заполняем столбец "Корпус"
  For i = 2 To 20 Step 1
    a = InStr(1, Cells(i, korp), "КОРП.", vbTextCompare)
    If a > 0 Then
      Cells(i, korp + 1) = Mid(Cells(i, korp), a + 5, 1)
    Else
      Cells(i, korp + 1).ClearContents
    End If
  Next i
  Columns(korp + 1).EntireColumn.AutoFit
    Range(Cells(1, 1), Cells(i, korp + 1)).Sort Key1:=Range(Cells(2, korp + 1), Cells(2, korp + 1)), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  Cells(2, korp + 1).Select
End Sub

Так?

Только непонятно, а зачем каждый раз столбец впяливается?

Добавлено через 5 минут
Сортировку можно ещё короче записать:

Visual Basic
1
2
  Range(Cells(2, 1), Cells(i, korp + 1)).Sort Key1:=Cells(2, korp + 1), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

И диапазон чуть подправить.

@Вадим112 · 24.06.2015, 11:21 **[ТС]**

осталось теперь только поставить курсор в вторую ячейку вставленного столбца

@Kubuntovod · 24.06.2015, 11:22

Сообщение от Вадим112

осталось теперь только поставить курсор в вторую ячейку вставленного столбца

Так вот же:

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

Cells(2, korp + 1).Select

@Surrogate · 24.06.2015, 11:23

Сообщение от Вадим112

осталось теперь только поставить курсор в вторую ячейку вставленного столбца

@Вадим112 · 24.06.2015, 11:23 **[ТС]**

я сначала укороченный код поставил и не посмотрел на первый.ОГРОМНОЕ СПАСИБО!!!!!!!

@Kubuntovod · 24.06.2015, 11:24

А зачем каждый раз столбец вставляется? Интересно узнать. Расскажите, плиз.

@Вадим112 · 24.06.2015, 11:26 **[ТС]**

Вот задание дали, то и делаем.
Написать макрос выделения из адресов, находящихся в отдельном столб-
це таблицы, корпусов (если они присутствуют в адресе). Выделенные корпуса
проставить в пустой столбец. Полученную таблицу отсортировать по значению
сформированного столбца. Последовательность действий макроса должна быть
следующая.
1) Активизировать окно диалога, с помощью которого пользователь задает
номер столбца, где находятся адреса.
2) Вставить в таблицу пустой столбец после столбца с адресом. В этот стол-
бец должны быть записаны выделенные из адреса корпуса.
3) Выполнить цикл просмотра всех адресов в таблице (количество строк
таблицы задается жестко в программе). При анализе каждой строки должны
быть выполнены следующие действия.
- найти в адресе корпус, если он присутствует (аббревиатура корпуса:
корп.). Предполагается, что между аббревиатурой и названием не стоит пробе-
ла, а после названия стоит запятая или пробел или конец строки;
- вставить найденный корпус в пустой столбец.
4) После проверки всей таблицы отсортировать ее по значению вставленно-
го столбца.
5) Установить курсор во вторую ячейку вставленного столбца.

@Surrogate · 24.06.2015, 11:27

Сообщение от Вадим112

я сначала укороченный код поставил

а чем укороченный не хорош ? и какой код считать первым ?

@Kubuntovod · 24.06.2015, 11:28

Сообщение от Вадим112

Вот задание дали, то и делаем.

Понятно. Преподы затейники

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .	Модель здравоохранения 13. Добавление самой системы здравоохранения. anaschu 22.05.2026 В предыдущем посте мы настроили болезни. Теперь добавим события, которые управляют здоровьем всего коллектива, а также настроим рабочий график и расчёт финансов. В Main создаём четыре события. . . .	Модель здравоохранения 12. добавление болезней через ресурпул, как аварии anaschu 22.05.2026 Болезни — это ключевая часть нашей модели. Нам нужно, чтобы работник периодически уходил на больничный, его задание при этом зависало, а после выздоровления работа возобновлялась. Реализуем это двумя. . .	Модель здравоохранения 11. Создаём классы Задание и Работник anaschu 22.05.2026 В AnyLogic каждая заявка и каждый ресурс — это объект определённого класса. Нам нужно создать два класса: Задание (заявка) и Работник (ресурс). Класс Задание В дереве проекта нажимаем правой. . .
Модель здравоохранения 10. Новая модель, смотрим, как добавлять логические блоки, и что писать внутри anaschu 22.05.2026 Открываем AnyLogic, создаём новый проект. В дереве проекта появляется класс Main — это главный агент, в котором будет жить вся наша логика. Палитра блоков Слева находится палитра. Нас интересует. . .	модель ЗдравоСохранения 9. Новая модель, разбираемся, как ее создавать anaschu 22.05.2026 В этой серии постов мы построим модель небольшого рабочего коллектива. Сотрудники получают задания, выполняют их, иногда болеют — и мы хотим посчитать, сколько это стоит компании. Метод. . .	[golang] Linked list alhaos 22.05.2026 Связный список / Linked list Связный список структура данных позволяющая хранить список значений, в отличии от массива в памяти хранится не сплошным куском, а отдельными частями которые ссылаются. . .	[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 10:43 [ТС]
	После проверки всей таблицы отсортировать ее по значению вставленно- го столбца? как это реализовать? 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 10:51 [ТС]
	Это получается где буквы корпуса стоят этот столбец нужно сортировать? 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 11:01 [ТС]
	Второй код, выводит дома почему то еще. После отсортировки.Установить курсор во вторую ячейку вставленного столбца. так должно заканчиваться работа 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 11:07 [ТС]
	Если корпуса нету, то там пустая ячейка остается 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 11:12 [ТС]
	код макросортировки, после чего ставить? 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 11:21 [ТС]
	осталось теперь только поставить курсор в вторую ячейку вставленного столбца 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 11:23 [ТС]
	я сначала укороченный код поставил и не посмотрел на первый.ОГРОМНОЕ СПАСИБО!!!!!!! 0

@Kubuntovod 3306 / 934 / 201 Регистрация: 14.01.2013 Сообщений: 4,776
	24.06.2015, 11:24
	А зачем каждый раз столбец вставляется? Интересно узнать. Расскажите, плиз. 0

@Вадим112 42 / 4 / 4 Регистрация: 08.11.2014 Сообщений: 108
	24.06.2015, 11:26 [ТС]
	Сообщение было отмечено Sasha_Smirnov как решение Решение Вот задание дали, то и делаем. Написать макрос выделения из адресов, находящихся в отдельном столб- це таблицы, корпусов (если они присутствуют в адресе). Выделенные корпуса проставить в пустой столбец. Полученную таблицу отсортировать по значению сформированного столбца. Последовательность действий макроса должна быть следующая. 1) Активизировать окно диалога, с помощью которого пользователь задает номер столбца, где находятся адреса. 2) Вставить в таблицу пустой столбец после столбца с адресом. В этот стол- бец должны быть записаны выделенные из адреса корпуса. 3) Выполнить цикл просмотра всех адресов в таблице (количество строк таблицы задается жестко в программе). При анализе каждой строки должны быть выполнены следующие действия. - найти в адресе корпус, если он присутствует (аббревиатура корпуса: корп.). Предполагается, что между аббревиатурой и названием не стоит пробе- ла, а после названия стоит запятая или пробел или конец строки; - вставить найденный корпус в пустой столбец. 4) После проверки всей таблицы отсортировать ее по значению вставленно- го столбца. 5) Установить курсор во вторую ячейку вставленного столбца. 0

Ошибка run-time error 1004

Решение