Почему не работает программный код?

[mnv_msv]

Здравствуйте, Уважаемые Участники Форума! Помогите, пожалуйста, разобраться с проблемой - см. картинку.

[Hugo121]

Один из вариантов - в ячейках не числа.
А вообще я бы сократил этот код на 4/5, и без всяких type mismatch.

[The_Prist]

Т.е. Вы считаете нормальным выкладывать картинку? Если да - то хотя бы пишите на какой строке ошибка, какие вводите данные в Inputbox. Возмоно пустое значение, возможно оно превышает максимальное для Integer, возможно данные на листе не соответствуют типу массивов.

Переписывать код с картинки, чтобы Вам помочь - мало у кого возникнет подобное желание.

[mnv_msv]

Спасибо, Уважаемые Hugo121 и The_Prist, за ваш отклик. Прошу прощения, за то, что сделал что-то не так. Я на форуме впервые. По поводу замечаний. Данные для массивов MNO MKO на листе 1 и расположены в 2-х столбцах А1:А32 и В1:В32 (фото 1-3). После запуска программного кода появляется окно InputBox (фото 4). Вводится число 32 (по числу данных в столбце). Число данных может меняться. После этого отрабатывают операторы Debug.Print "kdm = ", kdm и Debug.Print "i = ", i. Дальше появляется сообщение об ошибке (фото 5).



Option Base 1
Option Explicit
Sub Main()
Dim MNO() As Single 'массив начальных отметок деформационных марок
Dim MKO() As Single 'массив конечных отметок деформационных марок
Dim kdm As Integer 'количество деформационных марок
Dim n As Integer 'размер массива деформационных марок
kdm = InputBox("Введите количество деформационных марок", "Вычисление промежуточных отметок осадочных марок")
Debug.Print "kdm = ", kdm
n = kdm
ReDim MNO(1 To n) As Single: ReDim MKO(1 To n) As Single
Dim i As Integer 'счетчик цикла
For i = 1 To n
Debug.Print "i=", i
MNO(i) = Cells(i, 1).Value
MKO(i) = Cells(i, 2).Value
'Debug.Print MNO(i)
'Debug.Print MKO(i)
Next i
End Sub

[Hugo121]

Такая работа проделана, и всё зря...
Нужно было всего лишь приложить файл с данными и кодом, и коротенько написать, что мол не работает, выдаёт ошибку "type mismatch" - тогда был бы толк.
Что в моём коде не так? Не знаете, откуда из массива брать данные для начальных отметок, откуда для конечных?

[doober]

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

возможно данные на листе не соответствуют типу массивов.
.

Старый воин - мудрый воин.

Нет у меня спецфотоаппарата,пришлось кино снять.