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

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

    • ava Lure Of Chaos 11.10.2011 13:30 # 0

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

      как таких к компу пускают?
      Ответить

      • ava Teddy_Brown 11.10.2011 13:42 # 0

        Так же как и за руль.
        Хотя если у человека есть желание развиваться - его можно научить.

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

        • ava lucidfox 11.10.2011 13:44 # 0

          Автор давно смотался и давно уже над этим кодом не работает.

          К счастью, мне тоже не пришлось. Вместо этого всё переписала с нуля на C#/VSTO по спецификациям.
          Ответить

        • ava roman-kashitsyn 11.10.2011 13:45 # +3

          женщине-бухгалтеру объяснять её ошибки?
          u mad.
          Ответить

      • ava 3.14159265 11.10.2011 14:27 # 0

        Да ладно Вам.
        Стандартный VBS-говнокод облегчающий жизнь и избавляющий от табличной рутины.

        Это еще похвально, что тут табами выровнено и комментарии написаны -
        какой текстбокс за какие данные отвечает.
        Ответить

        • ava lucidfox 11.10.2011 14:35 # −1

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

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

          • ava Teddy_Brown 11.10.2011 15:30 # −1

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

            u mad (как сказал в адрес меня оратор выше)
            Ответить

            • ava Lure Of Chaos 11.10.2011 15:33 # −2

              и вы тоже не выдержали сопровождения?
              Ответить

              • ava Teddy_Brown 12.10.2011 09:08 # −1

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

                • ava hormand 13.02.2023 16:08 # 0

                  а ещё ты любишь сувать пальчик в попку и нюхать, да?
                  Ответить

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