Народ помогите найти ошибку в коде, почему он не работает я в этом профан просто

@Alex77755 · Регистрация: 13.02.2009

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

К ЗАВТРЕШНЕМУ УЖЕ НАДО

Так что ты колотишся так рано? Времени ещё вагон!!!

@Alex77755 · 13.04.2011, 14:22 **[ТС]**

это не является ошибкой и не влияет на вычисления.

Но иногда влияет на оценку

@Shahidos · 13.04.2011, 14:27

сотрел просто не понял

Добавлено через 4 минуты
Next i
'поиск максимального востребованного изделия
Let Mx = otpucheno(1, 1)
Let ind = 1
For i = 1 To 10
For j = 1 To 2
If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j)
End If

ему снова не нравится тут что то

@Alex77755 · 13.04.2011, 14:28 **[ТС]**

Visual Basic
1
2
If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j)
End If

Ты на каждой такой строке будешь задавать один и тот же вопрос?
Отвечал уже

@Shahidos · 13.04.2011, 14:30

так яж говарю я не понял что там не так,
извиняюсь

@Alex77755 · 13.04.2011, 14:32 **[ТС]**

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

Надио так:

Visual Basic
1
2
3
If Mx < otpucheno(i, j) Then
 Mx = otpucheno(i, j)
End If

Или так

Visual Basic
1
If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j)

Цитирую
Если после Then ничего нет - End If нужен. Иначе - нет

@Shahidos · 13.04.2011, 14:44

А понял, я там пропустил что если во втором варианте то там без End If.

А это так должно выглядить?

If ind = 1 Then izdelie(1 To 20)
If ind = 2 Then izdelie(2 To 20)
If ind = 3 Then izdelie(3 To 20)
If ind = 4 Then izdelie(4 To 20)
If ind = 5 Then izdelie(5 To 20)
If ind = 6 Then izdelie(6 To 20)
If ind = 7 Then izdelie(7 To 20)
If ind = 8 Then izdelie(8 To 20)
If ind = 9 Then izdelie(9 To 20)
If ind = 10 Then izdelie(10 To 20)

Добавлено через 8 минут
Пишет теперь что Statement invalid outside Type block
а как это исправить? и там не (1 To 20) а (1 To 10)

@Busine2009 · 13.04.2011, 15:10

Shahidos,
объявите, как переменную, а не как массив:

Visual Basic
1
Dim izdelie As String

А так поместите туда изделие:

Visual Basic
1
If ind = 1 Then izdelie = ”Болт”

И ещё вот это добавьте:

Visual Basic
1
2
3
4
    If Mx < otpucheno(i, j) Then
        Mx = otpucheno(i, j)
        ind = i
    End If

Добавлено через 2 минуты
Отсюда

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

Let ind = 1

удалите Let - в переменные можно вот так помещать данные (предполагаю, что Let что-то старое):

Visual Basic
1
ind = 1

Остальное проанализировать тяжело, т.к. нет файла Excel.

@Alex77755 · 13.04.2011, 15:23 **[ТС]**

Visual Basic
1
Dim izgotovleno(10, 2) As Integer

верхний предел заявлен 2

Visual Basic
1
2
For j = 1 To 5 Step 4
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

а присвоение четвёртому
Содрал у кого-то код, а вдуматься не хочет

@Shahidos · 13.04.2011, 15:32

Я и не говарю что он мой, просто очень сложно освоить за 2 недели то что остальные год проходили.

@Alex77755 · 13.04.2011, 15:36 **[ТС]**

Не по теме:

Так надо было и проходить как все - год!
Или, может быть, даже рановато кинулся - целых две недели ещё!
Вполне можно было бы ещё недельку подождать!

@Shahidos · 13.04.2011, 15:43

В любом случие большое вам спасибо.

@Alex77755 · 13.04.2011, 17:21 **[ТС]**

Busine2009,

предполагаю, что Let что-то старое

Я такого тоже не встречал ещё.
Но гугля говорит, что не очень оно старое
Хотя так пока не понял разницы. Когда и зачем его применять

@Shahidos · 13.04.2011, 18:35

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

Visual

не пойму как исправить ошибку

Добавлено через 29 секунд

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

1
2 For j = 1 To 5 Step 4
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

Не пойму как исправить ошибку

Добавлено через 25 минут
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j) в чём тут ошибка и как её исправить?

@Alex77755 · 13.04.2011, 18:45 **[ТС]**

Надо читать ответы!
Я уже писал на почту:
Cells нада чтобы была напЫсано латиницей
Скопируй из кода выше(который уже отработал) и замени.
Там встречаются русские С и е

@Shahidos · 13.04.2011, 18:51

перепечатал я всё это латиницей и копировать пробовал а в итоге то же самое

Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

@Alex77755 · 13.04.2011, 19:52 **[ТС]**

Ты вообще ответы читаешь?
Зачем писать одно и то же?

Dim izgotovleno(10, 2) As Integer
верхний предел заявлен 2
Код Visual Basic1
2 For j = 1 To 5 Step 4
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

а присвоение четвёртому

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 14:27
	сотрел просто не понял Добавлено через 4 минуты Next i 'поиск максимального востребованного изделия Let Mx = otpucheno(1, 1) Let ind = 1 For i = 1 To 10 For j = 1 To 2 If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j) End If ему снова не нравится тут что то 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 14:30
	так яж говарю я не понял что там не так, извиняюсь 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 14:44
	А понял, я там пропустил что если во втором варианте то там без End If. А это так должно выглядить? If ind = 1 Then izdelie(1 To 20) If ind = 2 Then izdelie(2 To 20) If ind = 3 Then izdelie(3 To 20) If ind = 4 Then izdelie(4 To 20) If ind = 5 Then izdelie(5 To 20) If ind = 6 Then izdelie(6 To 20) If ind = 7 Then izdelie(7 To 20) If ind = 8 Then izdelie(8 To 20) If ind = 9 Then izdelie(9 To 20) If ind = 10 Then izdelie(10 To 20) Добавлено через 8 минут Пишет теперь что Statement invalid outside Type block а как это исправить? и там не (1 To 20) а (1 To 10) 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 15:32
	Я и не говарю что он мой, просто очень сложно освоить за 2 недели то что остальные год проходили. 0

@Alex77755
	13.04.2011, 15:36 [ТС]
	Не по теме: Так надо было и проходить как все - год! Или, может быть, даже рановато кинулся - целых две недели ещё! Вполне можно было бы ещё недельку подождать! 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 15:43
	В любом случие большое вам спасибо. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.04.2011, 18:45 [ТС]
	Надо читать ответы! Я уже писал на почту: Cells нада чтобы была напЫсано латиницей Скопируй из кода выше(который уже отработал) и замени. Там встречаются русские С и е 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 18:51
	перепечатал я всё это латиницей и копировать пробовал а в итоге то же самое Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.04.2011, 19:52 [ТС]
	Ты вообще ответы читаешь? Зачем писать одно и то же? Dim izgotovleno(10, 2) As Integer верхний предел заявлен 2 Код Visual Basic1 2 For j = 1 To 5 Step 4 Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j) а присвоение четвёртому 0