1. VisualBasic / Говнокод #8157

    −97

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    Private Sub CommandButton1_Click() 'необходимо
        For q = 2 To 500
        For w = 25 To 34
        For e = 3 To 13
            If Лист1.Cells(q, 4) = "Затрачено [...]" Or Лист1.Cells(q, 4) = "Затрачено на [...]" Then
            If Лист1.Cells(q, 7) = Лист11.Cells(w, 1) Then
            If Лист1.Cells(q, 6) = Лист11.Cells(3, e) Then
                Лист11.Cells(w, e) = Лист11.Cells(w, e) + Лист1.Cells(q, 5)
                Rem Лист1.Cells(q, 11) = 151
            End If
            End If
            End If
        Next
        Next
        Next
    End Sub
    
    ...
    
    TextBox4.Value = CLng(cdop1 * (TextBox15.Value * Лист5.Cells(10, 11)) + cdop2 * (TextBox15.Value * Лист5.Cells(10, 11))) + CLng(TextBox53.Value)
    
    ...
    
    Лист1.Cells(a, 45) = TextBox32.Value ' отсрочка
    
    If IsDate(TextBox58.Value) And IsDate(TextBox62.Value) Then
    Лист1.Cells(a, 46) = CDate(TextBox62.Value) - CDate(TextBox58.Value) ' прошло дней
    End If
    Лист1.Cells(a, 47) = TextBox55.Value ' зарплата
    Лист1.Cells(a, 48) = TextBox63.Value ' штраф
    
    If CheckBox6.Value = True Then
    Лист1.Cells(a, 49) = 1 ' комплект
    Else
    Лист1.Cells(a, 49) = 0
    End If

    Ну и так далее.

    Беда, коль пироги начнёт печи сапожник, а макросы писать бухгалтер.

    Запостил: lucidfox, 11 Октября 2011

    Комментарии (13) RSS

    • > VisualBasic
      > CommandButton1 'необходимо
      > Лист1

      как таких к компу пускают?
      Ответить
      • Так же как и за руль.
        Хотя если у человека есть желание развиваться - его можно научить.

        to lucidfox : попробуй объяснить автору этого кода его ошибки! Например - зря лезешь кодить не зная основ и тд.
        Ответить
        • Автор давно смотался и давно уже над этим кодом не работает.

          К счастью, мне тоже не пришлось. Вместо этого всё переписала с нуля на C#/VSTO по спецификациям.
          Ответить
        • женщине-бухгалтеру объяснять её ошибки?
          u mad.
          Ответить
          • Это был мужчина. :)
            Ответить
            • Тогда тем более...
              Разве он вас не обходит стороной?
              Ответить
              • Мы с ним вживую виделись два раза лет этак пять назад, и то мимоходом.

                А этому коду лет ещё больше. Возможно, раза в два.
                Ответить
          • > u mad.
            А то!
            Ответить
      • Да ладно Вам.
        Стандартный VBS-говнокод облегчающий жизнь и избавляющий от табличной рутины.

        Это еще похвально, что тут табами выровнено и комментарии написаны -
        какой текстбокс за какие данные отвечает.
        Ответить
        • Не везде, увы, написано. :( Часто приходилось лазить в дизайнер форм, чтобы по метке понять, что такое TextBox56.

          И потом, VBA VBой, а код учиться структурировать надо, чтобы пожалеть мозги тех, кому потом придётся ЭТО сопровождать.
          Ответить
          • > структурировать надо, чтобы пожалеть мозги тех, кому потом придётся ЭТО сопровождать.

            u mad (как сказал в адрес меня оратор выше)
            Ответить
            • и вы тоже не выдержали сопровождения?
              Ответить
              • я сейчас им занимаюсь. это джигурдец, доложу я вам.
                основа - JS. в коде смешаны чистый JS, JQuery, ООП, процедурный подход, АшТэЭмЭль...
                причем код - такие макароны, что даже клик по кнопке не отследить нормально дальше третьего-четвертого вызова (по стеку).
                Про верстку - я вообще молчу. Одни только пересекающиеся дивы с ячейками таблиц чего стоят.
                Ответить

    Добавить комментарий