|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.06.2013, 16:47 | #1 |
Новичок
Джуниор
Регистрация: 30.05.2013
Сообщений: 1
|
Программирование на VBA
Показал преподу этот код, говорит не так, подскажите может где то ошибка.
Задание Безымянный.jpg код Sub FUNC() Const BoxTitle = "число векторов" Dim i As Single i = InputBox("Введите число векторов", BoxTitle) Cells(1, 1) = "Х" Cells(1, 2) = "У" Cells(1, 3) = "Z" Cells(1, 4) = "C*D" Cells(1, 5) = "S" Cells(1, 6) = "число векторов" Cells(2, 6) = i m = 0 For a = 2 To i + 1 Step 1 c = 0 d = 0 x = Cells(a, 1) y = Cells(a, 2) t = Cells(a, 3) c = x + y d = x - t Cells(a, 4) = c * d m = m + Cells(a, 4) Next a Cells(i + 2, 5) = m End Sub |
09.06.2013, 17:26 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Вы значения X,Y,Z не задали.
Код:
Анализ,обработка данных Недорого
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программирование VBA | антон131991 | Помощь студентам | 0 | 31.05.2012 10:59 |
программирование VBA | Ирина2106 | Помощь студентам | 1 | 19.05.2012 23:39 |
Программирование VBA | Ирина2106 | Microsoft Office Excel | 2 | 15.05.2012 12:17 |
VBA программирование | GlebovaNastena | Microsoft Office Excel | 2 | 25.04.2012 19:34 |
Программирование на VBA | onlyslay | Microsoft Office Excel | 5 | 21.05.2011 19:40 |