Автор Тема: не корректно работает скрипт VBA  (Прочитано 1447 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ggetbraine

  • Коллежский регистратор
  • *
  • Сообщений: 8
  • Репутация: 0
не корректно работает скрипт VBA
« : јРав 18, 2009, 11:27:15 pm »
вот кусок кода ,который подсчитывает эмпирическую функцию распределения
Dim y As Variant
    Dim dy As Variant
    Dim i As Integer
    Dim length As Integer
    Dim count As Integer
    Dim j As Integer

    Dim value As Variant
   
    count = 0
    length = 1763
    y = 0
    dy = 20
    j = 1
   
    While y < 1000
        count = 0
        For i = 1 To 20
        value = Cells(i, 1).value
            If value < y Then
                count = count + 1
            End If
        Next
        Cells(j, 2).value = count / 20
        j = j + 1
        y = y + dy
    Wend

данные для теста брал вот отсюда:http://ifolder.ru/11122241

вопрос:почему вторая колонка заполняется нулями?и как исправить данную проблему?

спасибо большое за ответы!
« Последнее редактирование: јРав 19, 2009, 09:41:46 am от ggetbraine »

Оффлайн бравый

  • Коллежский регистратор
  • *
  • Сообщений: 4
  • Репутация: 0
Re: не корректно работает скрипт VBA
« Ответ #1 : ёоЭм 08, 2009, 05:00:21 pm »
почему, говоришь, вторая колонка заполняется нулями...
а чем же она может заполняться, если ты в неё пишешь "count / 20" ? т.е. если "count" будет больше 20-ти, то в колонку запишется что-то отличное от нуля. а "count" не может быть больше 20-ти никогда, потому как он считается от нуля двадцать раз и то при условии.