Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача в ексели, не как не могу запустить выдает ошибку 
:(
    Опции темы
Aizensoske
Дата 18.12.2011, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



макрос втроен в ексели выдает ошибку в коде.(макросы)
Взгляните может кто нить знает , что он запустился.
Ошибка примерно может быть из-за ( 1 и l) так как откуда мы переписывали было не точно понятно где 1 а где л.


Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  __________.rar 8,00 Kb
PM MAIL   Вверх
Данкинг
Дата 18.12.2011, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Aizensoske @  18.12.2011,  15:29 Найти цитируемый пост)
втроен в ексели 

Начало уже интересное.
Цитата(Aizensoske @  18.12.2011,  15:29 Найти цитируемый пост)
Взгляните может кто нить знает , что он запустился.

Да откуда же я знаю, запустился он или нет smile

Первая же ошибка - Sub or function not defined - на этой строчке:
Код

nl(j) = 0

Начинаем логически анализировать. Думаем. Смотрим объявления переменных:
Код

Dim n1(1 To k) As Single

Мне одному что-то кажется подозрительным? smile 

Ну, исправили. Далее ошибка вылезает на этом:
Код

Nextj

После чего делаем соответствующие выводы и забиваем на дальнейшее изучение кода. smile 

А вообще это в "центр помощи". Даже не в раздел по "офису".

Добавлено через 4 минуты и 38 секунд
И вообще, там куча необъявленных переменных. Юзай "Option Explicit".


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Aizensoske
Дата 18.12.2011, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



Можно что нить сделать что ю это запустилось ?
PM MAIL   Вверх
Данкинг
Дата 18.12.2011, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Если ошибки в коде исправить - то оно запустится, инфа 120%.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Aizensoske
Дата 19.12.2011, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



Ты можеш их исправить, я просто ваше вэтом не шарю, просто задачу дали по информатики.
PM MAIL   Вверх
dorogoyIV
Дата 19.12.2011, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46



все буквы l заменил на цифру 1,
в одном месте цикл подправил,
и еще несколько синтаксических ошибок исправил

Код

Sub lipid()
Const n = 20, k = 6
Dim x(1 To n) As Single
Dim q(1 To k) As Single
Dim n1(1 To k) As Single
Dim p(1 To k) As Single
Dim m, d, s, h, max, min As Single

 For i = 1 To n
 x(i) = ThisWorkbook.ActiveSheet.Cells(2 + i, 2)
 Next i
 'нахождение среднего значения - m
 'нахождение отклонения от среднего - s
 m = 0
 d = 0
 
 For i = 1 To n
 m = m + x(i)
 d = d + x(i) ^ 2
 Next i
 
 m = m / n
 d = d / n - m ^ 2
 s = Sqr(d)
 
 Range("D2:F2,D5:H5").Select
 With Selection
 .HorizontalAlignment = xlCenter ' горизонтальное выравнивание к центру
 .Font.Bold = True ' начертание шрифта
 .Font.Size = 12 'размер шрифта
 End With
 With ThisWorkbook.ActiveSheet
 .Cells(2, 4) = "m"
 .Cells(2, 5) = "d"
 .Cells(2, 6) = "s"
 .Cells(3, 4) = m
 .Cells(3, 5) = d
 .Cells(3, 6) = s
 ' нахождение начала и конца массива
 min = x(1)
 max = x(1)
 For i = 2 To n
 If x(i) < min Then
  min = x(i)
 Else
 If x(i) > max Then
      max = x(i)
     End If
   End If
Next i
 'нахождения длинны участка
 h = (max - min) / k
 
 For j = 1 To k
 q(j) = min + j * h
 n1(j) = 0
 Next j
 
 For i = 1 To n
 j = 0
 Do
 'j = 0
 'Do
 j = j + 1
 Loop While x(i) > q(j)
 n1(j) = n1(j) + 1
 Next i
 
 For j = 1 To k
 p(j) = n1(j) / n * 100
 Next j
 .Cells(5, 4) = "k"
 .Cells(5, 5) = "q"
 .Cells(5, 6) = "nl"
 .Cells(5, 7) = "p"
  
  For j = 1 To k
  .Cells(5 + j, 4) = j
  .Cells(5 + j, 5) = q(j)
  .Cells(5 + j, 6) = n1(j)
  .Cells(5 + j, 7) = p(j)
  Next j
  End With
  End Sub

PM MAIL   Вверх
Данкинг
Дата 19.12.2011, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Aizensoske, я могу тебе минус в репу поставить за неуважение к форумчанам, но не буду, потому что я добрый сегодня.

dorogoyIV, ты ещё более добрый. smile Просто мне после NextJ дальше смотреть сей код расходелось.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
dorogoyIV
Дата 19.12.2011, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46



Данкинг, во мне еще не умерла наивная надежда, что юзеры не тупо списывают код, а хоть немного его осмысливают  smile (очень наивный  smile )
однако, то, что, для нас кажется обыденным, для новичков может оказаться сложным...

а тему можно в центр помощи перенести imho
PM MAIL   Вверх
Данкинг
Дата 19.12.2011, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(dorogoyIV @  19.12.2011,  14:56 Найти цитируемый пост)
однако, то, что, для нас кажется обыденным, для новичков может оказаться сложным...

Так дело не в сложности - я не против ответить на вопросы - а в том, что код именно тупо списан даже без понимания его действия.
Цитата(dorogoyIV @  19.12.2011,  14:56 Найти цитируемый пост)
а тему можно в центр помощи перенести imho 

Я сразу это предложил. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Aizensoske
Дата 19.12.2011, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



Просто у меня нету навыков програмирвоание  в нашем инститее нас заставлют заниматься тем чем мы не должны заниматься...
я могу рецепт напсать, машину запустить , но вот прогу ваше писать не могу ..
разница между мной и вами в том что я ваше дуб по кодам.
но ты ваше респект без исходников смог я жуе думал когда на инфоратику пойду фоткать задание и тут выкладывать а ты ....без исходников сделал ..ваше красава.

Это сообщение отредактировал(а) Aizensoske - 19.12.2011, 19:30
PM MAIL   Вверх
Данкинг
Дата 19.12.2011, 20:08 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Aizensoske @  19.12.2011,  20:26 Найти цитируемый пост)
в нашем инститее нас заставлют заниматься тем чем мы не должны заниматься...

Да уж, и русский язык вас там учить точно не заставляют.



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Данкинг
Дата 21.12.2011, 00:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Я никак не успокоюсь с этой темой. Aizensoske, а чем тебе Билли-то не угодил? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
LOPUH
Дата 21.12.2011, 10:08 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4



Такое можно в песочницу перенести..
PM MAIL   Вверх
Aizensoske
Дата 21.12.2011, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



потому что если  бон его в эксель не встроил я б счас спал спокойно.

Это сообщение отредактировал(а) Aizensoske - 21.12.2011, 19:11
PM MAIL   Вверх
Данкинг
Дата 21.12.2011, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Aizensoske @  21.12.2011,  20:10 Найти цитируемый пост)
потому что если  бон его в эксель не встроил я б счас спал спокойно.

Т.е. этот макрос в данном файле написал лично Билли? smile И каким же образом макрос тебе мешает спать?



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1086 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.