Исправить проблему при присвоении значений массивам

@deniskaizminska · Регистрация: 01.06.2014

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

Суть вопроса. Есть 2 массива: maskirp - в нем элементы идут по убывающей, и masobem - в нем элементы идут по возрастающей. значения массивов взаимосвязаны. Также есть ячейка Cells(13, 2) с заданным значением. Нужно сравнить это значение с элементами массива masobem и получить соответствующее значение из массива maskirp. При этом, если значение попало не точно, то получаемое значение необходимо получить интерполяцией. Все это должно выполняться по нажатию на кнопку. Полученное значение поместить в ячейку Cells(16, 2).
При выполнении получаю compil error. саnt assign to array. Подскажите, где напортачил.

Visual Basic

Option Base 1 
Dim maskirp(1 To 50) As Double
Dim masobem(1 To 50) As Double 
 
Private Sub CommandButton1_Click() 
Call zapmaskirp
Call zapmasobem
 
    For i = 1 To 50
         If masobem(i) < Cells(13, 2) Then 'сравнение значения с элементом массива
         i = i + 1 ' эта строчка точно не верная, но написана просто лишь бы программа заработала. так и не придумал, что можно вписать сюда
         Else
         Cells(16, 2) = maskirp(i - 1) - ((maskirp(i - 1) - maskirp(i)) / (masobem(i) - masobem(i - 1))) * (Cells(13, 2) - masobem(i - 1)) 'определение нужного значения интерполяцией и запись его в ячейку 16,2
         End If
    Next i
       
 
End Sub
 
Sub zapmaskirp()
maskirp = Array(390, 205, 155, 90, 65, 52, 45, 45, 39, 28, 21.5, 14.5, 11.2, 9.2, 6.5, 5.1, 2.65, 1.84, 1.4, 1.18, 0.97)
End Sub
 
Sub zapmasobem()
masobem = Array(5, 10, 15, 30, 45, 60, 75, 80, 100, 150, 200, 300, 400, 500, 750, 1000, 2000, 3000, 4000, 5000, 10000)
End Sub

@ikki · 01.06.2014, 19:19

результат функции array() может быть присвоен только переменной variant или массиву variant с необъявленными границами:

Visual Basic

Sub test()
  Dim a, b(), c(1 To 3), d#()
  a = Array(1, 2, 3) ' допустимо
  b = Array(1, 2, 3) ' допустимо
  c = Array(1, 2, 3) ' ошибка времени компиляции
  d = Array(1, 2, 3) ' ошибка времени выполнения (несоответствие типов)
End Sub

@deniskaizminska · 01.06.2014, 19:57 **[ТС]**

исправил на:
Dim maskirp()
Dim masobem()
пишет out of range
это значит, что выходит за границы существующего массива?
можете подсказать, почему не подхватывает значение из массива (там значения до 10000)? значение в ячейке (13,2) - 450
заранее благодарен.

@Hugo121 · 01.06.2014, 20:33

Покажите файл с кодом и значениями, и что именно хотите сделать - пока ничего не понятно...
И зачем по 100 раз зря проделывать Cells(16, 2) = maskirp(i -.... ?

@deniskaizminska · 01.06.2014, 20:57 **[ТС]**

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

Visual Basic

Option Base 1 
Dim maskirp() 
Dim masobem() 
 
Private Sub CommandButton1_Click() 
Call zapmaskirp
Call zapmasobem
    For i = 1 To 50
         If masobem(i) < Cells(13, 2) Then
         i = i
         Else
         Cells(16, 2) = maskirp(i - 1) - ((maskirp(i - 1) - maskirp(i)) / (masobem(i) - masobem(i - 1))) * (Cells(13, 2) - masobem(i - 1))
         End If
    Next i
End Sub
 
Sub zapmaskirp()
maskirp = Array(390, 205, 155, 90, 65, 52, 45, 45, 39, 28, 21.5, 14.5, 11.2, 9.2, 6.5, 5.1, 2.65, 1.84, 1.4, 1.18, 0.97)
End Sub
 
Sub zapmasobem()
masobem = Array(5, 10, 15, 30, 45, 60, 75, 80, 100, 150, 200, 300, 400, 500, 750, 1000, 2000, 3000, 4000, 5000, 10000)
End Sub

Добавлено через 5 минут
Есть ячейка (13,2) с заданным значением 450. Нужно сравнить это значение с элементами массива masobem и получить соответствующее значение из массива maskirp, соответствующее номеру элемента. При этом, если значение попало не точно, то получаемое значение необходимо получить интерполяцией. Все это должно выполняться по нажатию на кнопку. Полученное значение поместить в ячейку (16, 2). Т.е. если в ячейке (13,2) значение будет 10, то в ячейку (16,2) должно быть записано 205. А если в (13,2) будет 9, то в (16,2) должно быть записано 242, т.к. по интерполяции значение 9 в диапозоне от 5 до 10 массива masobem соответствует значению 242 в диапозоне от 390 до 205 массива maskirp.

Добавлено через 4 минуты
Т.о. если у нас начальное значение 450, то по идее в ячейку (16,2) должно быть записано значение 10,2, т.к. (9,2+11,2)/2=10,2

@Hugo121 · 01.06.2014, 21:00

Не вникая - практически только убрал ошибку:

Visual Basic

Option Base 1
Dim maskirp()
Dim masobem()
 
Private Sub CommandButton1_Click()
Call zapmaskirp
Call zapmasobem
    For i = 1 To UBound(maskirp)
         If masobem(i) < Cells(13, 2) Then
         i = i
         Else
         Cells(16, 2) = maskirp(i - 1) - ((maskirp(i - 1) - maskirp(i)) / (masobem(i) - masobem(i - 1))) * (Cells(13, 2) - masobem(i - 1))
         Exit For
         End If
    Next i
End Sub
 
Sub zapmaskirp()
maskirp = Array(390, 205, 155, 90, 65, 52, 45, 45, 39, 28, 21.5, 14.5, 11.2, 9.2, 6.5, 5.1, 2.65, 1.84, 1.4, 1.18, 0.97)
End Sub
 
Sub zapmasobem()
masobem = Array(5, 10, 15, 30, 45, 60, 75, 80, 100, 150, 200, 300, 400, 500, 750, 1000, 2000, 3000, 4000, 5000, 10000)
End Sub

Правда всё равно ошибка будет в maskirp(i - 1) и masobem(i - 1), если будете проверять например 4-ку. Как исправлять - это нужно вникать...

@deniskaizminska · 01.06.2014, 21:00 **[ТС]**

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

И зачем по 100 раз зря проделывать Cells(16, 2) = maskirp(i -.... ?

да, кстати, хороший вопрос.
спасибо

@Hugo121 · 01.06.2014, 21:05

Да, зачем i = i? Явно лишняя строка, сразу не заметил...
Да и проверку можно изменить:

Visual Basic

Private Sub CommandButton1_Click()
Call zapmaskirp
Call zapmasobem
    For i = 1 To UBound(maskirp)
         If masobem(i) >= Cells(13, 2) Then
         Cells(16, 2) = maskirp(i - 1) - ((maskirp(i - 1) - maskirp(i)) / (masobem(i) - masobem(i - 1))) * (Cells(13, 2) - masobem(i - 1))
         Exit For
         End If
    Next i
End Sub

@deniskaizminska · 01.06.2014, 21:27 **[ТС]**

Спасибо за хороший вариант.

@Hugo121 · 01.06.2014, 21:43

Но подумайте как обойти ошибку на maskirp(i - 1) при i=1!
Может быть можно/нужно

Visual Basic

1	For i = 2 To UBound(maskirp)

Исправить проблему при присвоении значений массивам

Решение

Решение

@deniskaizminska 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 5
	01.06.2014, 19:57 [ТС]	3
	исправил на: Dim maskirp() Dim masobem() пишет out of range это значит, что выходит за границы существующего массива? можете подсказать, почему не подхватывает значение из массива (там значения до 10000)? значение в ячейке (13,2) - 450 заранее благодарен. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	01.06.2014, 20:33	4
	Покажите файл с кодом и значениями, и что именно хотите сделать - пока ничего не понятно... И зачем по 100 раз зря проделывать Cells(16, 2) = maskirp(i -.... ? 0

@deniskaizminska 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 5
	01.06.2014, 21:00 [ТС]	7
	Сообщение от Hugo121 И зачем по 100 раз зря проделывать Cells(16, 2) = maskirp(i -.... ? да, кстати, хороший вопрос. спасибо 0

@deniskaizminska 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 5
	01.06.2014, 21:27 [ТС]	9
	Спасибо за хороший вариант. 0

	01.06.2014, 21:43