Ошибка в макросе

@zalman32 · Регистрация: 01.04.2020

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

VBA Макрос:

Visual Basic

Sub Расчитать()
'Сначала объявляем переменные, используемые в программе
 
'стоимость отгрузки изделий 1ой и 2ой смены
Dim cena(7, 2) As Double
'количество принятых изделий каждого вида
Dim kollp(7, 2) As Integer
'количество отгруженных изделий каждого вида
Dim kollo(7, 2) As Integer
'стоимость оставшихся изделий после смены
Dim zar(7, 2) As Double
'количество оставшихся изделий после 1 и 2 смены
Dim koll_p(7, 2) As Integer
'стоимость отгруженных изделий
Dim koll_o(7, 2) As Double
'количество оставшихся изделий к концу 2 смены
Dim koll_ost(7) As Integer
'стоимость всех отгруженных изделий 1 и 2 смены
Dim koll_all(7, 2) As Double
'стоимость всех оставшихся изделий к окончанию 2 смены
Dim zar_all(7, 2) As Double
'наименование изделия меньшего спроса
Dim izd As Integer
'счетчик циклов
Dim i As Integer, j As Integer
 
'Далее всем переменным присваивается нулевое значение
For i = 1 To 7
For j = 1 To 2
cena(i, j) = 0
Next j
Next i
 
For i = 1 To 7
For j = 1 To 2
kollp(i, j) = 0
Next j
Next i
 
For i = 1 To 7
For j = 1 To 2
kollo(i, j) = 0
Next j
Next i
 
'В этом фрагменте кода происходит считывание начальных данных с листа "Нач_д"
Sheets("Нач_д").Select
'вводим цену
For i = 1 To 7
For j = 1 To 2
cena(i, j) = Cells(6 + i, 7)
Next j
Next i
' забиваем количество поступившего
For j = 1 To 2
For i = 1 To 7
kollp(i, j) = Cells(6 + i, 1 + j + j)
Next i
Next j
' забиваем количество отгруженного
For j = 1 To 2
For i = 1 To 7
kollo(i, j) = Cells(6 + i, 2 + j + j)
Next i
Next j
 
'Далее на листе "Результат" в ячейку с определенным номером вводится ее название
Sheets("Результат").Select
' 1 смена
Sheets("Результат").Cells(2, 4) = "1 смена"
Sheets("Результат").Cells(4, 2) = "Наименование изделия"
Sheets("Результат").Cells(6, 2) = "болт"
Sheets("Результат").Cells(7, 2) = "гайка"
Sheets("Результат").Cells(8, 2) = "шуруп"
Sheets("Результат").Cells(9, 2) = "отвертка"
Sheets("Результат").Cells(10, 2) = "молоток"
Sheets("Результат").Cells(11, 2) = "гвоздь"
Sheets("Результат").Cells(12, 2) = "шайба"
Sheets("Результат").Cells(4, 3) = "Изделий поступило"
Sheets("Результат").Cells(4, 4) = "Изделий отгружено"
Sheets("Результат").Cells(4, 5) = "Стоимость изделий"
Sheets("Результат").Cells(4, 6) = "Стоимость отгруженных изделий"
Sheets("Результат").Cells(4, 7) = "Осталось изделий после 1ой смены"
Sheets("Результат").Cells(4, 8) = "Стоимость оставшихся изделий"
' 2 смена
Sheets("Результат").Cells(15, 4) = "2 смена"
Sheets("Результат").Cells(17, 2) = "Наименование изделий"
Sheets("Результат").Cells(19, 2) = "болт"
Sheets("Результат").Cells(20, 2) = "гайка"
Sheets("Результат").Cells(21, 2) = "шуруп"
Sheets("Результат").Cells(22, 2) = "отвертка"
Sheets("Результат").Cells(23, 2) = "молоток"
Sheets("Результат").Cells(24, 2) = "гвоздь"
Sheets("Результат").Cells(25, 2) = "шайба"
Sheets("Результат").Cells(17, 3) = "Изделий поступило"
Sheets("Результат").Cells(17, 4) = "Изделий отгружено"
Sheets("Результат").Cells(17, 5) = "Стоимость изделий"
Sheets("Результат").Cells(17, 6) = "Стоимость отгруженных изделий"
Sheets("Результат").Cells(17, 7) = "Осталось изделий после 2х смен"
Sheets("Результат").Cells(17, 8) = "Стоимость оставшихся изделий"
Sheets("Результат").Cells(28, 2) = "Стоимость всех отгруженных изделий 1 смены"
Sheets("Результат").Cells(29, 2) = "Стоимость всех отгруженных изделий 2 смены"
Sheets("Результат").Cells(30, 2) = "Стоимость всех оставшихся изделий к окончанию 2 смены"
Sheets("Результат").Cells(31, 2) = "Изделие пользующиеся наименьшим спросом"
 
'В этом фрагменте происходит подсчет и вывод на рабочий лист всех необходимых данных
For i = 1 To 7
For j = 1 To 2
'Вывод на лист "Результат" количества погруженных и отгруженных изделий, а так же их цены
Sheets("результат").Cells(5 + i + (j - 1) * 13, 5) = cena(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 3) = kollp(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 4) = kollo(i, j)
'Подсчет и вывод на рабочий лист стоимости отгруженных изделий
koll_o(i, j) = cena(i, j) * kollo(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 6) = koll_o(i, j)
'Подсчет и вывод на рабочий лист количества оставшихся изделий после 1 смены и к концу 2 смены
koll_p(i, 1) = kollp(i, 1) - kollo(i, 1)
Sheets("результат").Cells(5 + i + (1 - 1) * 13, 7) = koll_p(i, 1)
koll_p(i, 2) = kollp(i, 2) - kollo(i, 2) + koll_p(i, 1)
Sheets("результат").Cells(5 + i + (2 - 1) * 13, 7) = koll_p(i, 2)
'Находим стоимость оставшихся изделий после 1 и 2 смены
zar(i, j) = koll_p(i, j) * cena(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 8) = zar(i, j)
'Находим стоимость всех отгруженных изделий 1 и 2 смены
koll_all(7, j) = koll_all(7, j) + cena(i, j) * kollo(i, j)
Sheets("результат").Cells(27 + j, 6) = koll_all(7, j)
'Высчитываем общую стоимость оставшихся изделий к концу 2 смены
zar_all(7, j) = zar_all(7, j) + koll_p(i, j) * cena(i, j)
Sheets("результат").Cells(30, 6) = zar_all(7, j)
Next j
Next i
 
'Здесь описан алгоритм сравнения изделий по наименьшему спросу
izd = kollo(1, 1)
For i = 1 To 7
For j = 1 To 2
If kollo(i, j) < izd Then
izd = kollo(i, j)
Sheets("Результат").Cells(31, 6) = Sheets("Результат").Cells(5 + i + (j - 1) * 13, 2)
End If
Next j
Next i
End Sub

Ошибка:

@АЕ · 02.12.2020, 12:49

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

Dim zar_all(7, 2) As Double

zar_all = 41 не допустимо!
zar_all(1,1) =41 допустимо!
Вы же сами массив объявляли!

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@АЕ ᴁ® 3922 / 2244 / 468 Регистрация: 13.12.2016 Сообщений: 7,729 Записей в блоге: 5
	02.12.2020, 12:49	2
	Сообщение от zalman32 Dim zar_all(7, 2) As Double zar_all = 41 не допустимо! zar_all(1,1) =41 допустимо! Вы же сами массив объявляли! 0