Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
В чем массив неправильный? (expected array)
 
#1
30.01.2018 14:03:12
Начал изучать vba, выходит такая ошибка
Код
Sub z3()
Dim a, b, h, x, f As Single
a = 1
b = 100
h = 4
With Worksheets(1)
.cell(1, 1).Value = "x"
.cell(1, 2).Value = "f(x)"
For x = a To b Step h
i = i + 1
f = x - Cos(Abs(x ^ 1 / 2))
.cell(i + 1, 1).Value = x
.cell(i + 1, 2).Value = f(x)
Next x
End With
End Sub
Изменено: Dobemanik - 30.01.2018 14:40:17
 
 
 
#2
30.01.2018 14:05:59
Цитата
Dobemanik написал:
.cell(i + 1, 2).Value = f(x)
первое что кинулось в глаза, что за f(x)
П.С. оформляйте код тегом.
Изменено: V - 30.01.2018 14:06:58
 
 
 
#3
30.01.2018 14:08:15
вы в курсе что при такой записи Dim a, b, h, x, f As Single  - a, b, h, x будут иметь тип вариант?
Изменено: V - 30.01.2018 14:09:01
 
 
 
#4
30.01.2018 14:10:31
Код
Sub z3()
Dim a, b, h, x, f As Single
a = 1: b = 100: h = 4
With Worksheets(1)
    .cell(1, 1).Value = "x"
    .cell(1, 2).Value = "f(x)"
    i = 1
    For x = a To b Step h
        f = x - Cos(Abs(x ^ 1 / 2))
        i = i + 1
        .cell(i, 1).Value = x
        .cell(i, 2).Value = f
    Next x
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
30.01.2018 14:11:19
а так:
Код
.cell(i + 1, 2).Value = f
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
30.01.2018 14:13:05
Цитата
V написал:
вы в курсе что при такой записи Dim a, b, h, x, f As Single  - a, b, h, x будут иметь тип вариант?
Делал по учебнику, через тип variant возникает ошибка 438, прописывал каждую переменную отдельно-снова ошибка с массивом
 
 
 
#7
30.01.2018 14:14:50
Dobemanik, это был не ответ а просто для информации. Ответ был пост ранее.
 
 
 
#8
30.01.2018 14:16:08
Цитата
Dobemanik написал:
снова ошибка с массивом
нет у вас массива. Вы сразу на лист выгружаете.
 
 
 
#9
30.01.2018 14:19:21
Код
.cell(1, 1).Value

Можно узнать , что такое cell в данном выражении, это вроде как не переменная.
м.б. стоит написать
Код
.cells(1, 1).Value
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#10
30.01.2018 14:22:05
Цитата
Dobemanik написал:
Делал по учебнику
В учебнике написано "первым делом зайдите в Tools - Options и включите Require Variables Declaration"?
Если нет - выбросьте этот учебник. И таки включите указанную опцию. Ошибок будет в несколько раз меньше.
 
 
 
#11
30.01.2018 14:22:22
Цитата
Nordheim написал:
м.б. стоит написать
Код ? 1.cells(1, 1).Value
Благодарю, помогло
 
 
 
#12
30.01.2018 14:26:05
Я и не сомневался, что поможет. Но вот про объявление переменных стоит почитать. Но за основу я брал не ваш код а из сообщения №4
Изменено: Nordheim - 30.01.2018 14:29:31
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1
Читают тему
Наверх