Школоло / Говнокод #8157 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 lucidfox, (Updated )

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

  • ava Lure Of Chaos # Ссылка на оригинал 0

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

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

    • ava Teddy_Brown # Ссылка на оригинал 0 ⇈

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

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

      • ava lucidfox # Ссылка на оригинал 0 ⇈

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

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

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

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

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

      • ava lucidfox # Ссылка на оригинал 0 ⇈

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

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

        • ava Teddy_Brown # Ссылка на оригинал 0 ⇈

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

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

            • ava Teddy_Brown # Ссылка на оригинал 0 ⇈

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

              • ava hormand # Ссылка на оригинал 0 ⇈

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

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

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓