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

    −92

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    Sub Ìàêðîñ1()
  Sheets("Îò÷åò_Âêë.1_15-98").Select
    For i = 0 To 25 Step 1
        Sheets(Sheets.Count).Select
        If i = 0 Then
            Range("A:A, B:B").Select
        ElseIf i = 1 Then
            Range("A:A, C:C").Select
        ElseIf i = 2 Then
            Range("A:A, D:D").Select
        ElseIf i = 3 Then
            Range("A:A, E:E").Select
        ElseIf i = 4 Then
            Range("A:A, F:F").Select
        ElseIf i = 5 Then
            Range("A:A, G:G").Select
        ElseIf i = 6 Then
            Range("A:A, H:H").Select
        ElseIf i = 7 Then
            Range("A:A, I:I").Select
        ElseIf i = 8 Then
            Range("A:A, J:J").Select
        ElseIf i = 9 Then
            Range("A:A, K:K").Select
        ElseIf i = 10 Then
            Range("A:A, L:L").Select
        ElseIf i = 11 Then
            Range("A:A, M:M").Select
        ElseIf i = 12 Then
            Range("A:A, N:N").Select
        ElseIf i = 13 Then
            Range("A:A, O:O").Select
        ElseIf i = 14 Then
            Range("A:A, P:P").Select
        ElseIf i = 15 Then
            Range("A:A, Q:Q").Select
        ElseIf i = 16 Then
            Range("A:A, R:R").Select
        ElseIf i = 17 Then
            Range("A:A, S:S").Select
        ElseIf i = 18 Then
            Range("A:A, T:T").Select
        ElseIf i = 19 Then
            Range("A:A, U:U").Select
        ElseIf i = 20 Then
            Range("A:A, V:V").Select
        ElseIf i = 21 Then
            Range("A:A, W:W").Select
        ElseIf i = 22 Then
            Range("A:A, X:X").Select
        ElseIf i = 23 Then
            Range("A:A, Y:Y").Select
        ElseIf i = 24 Then
            Range("A:A, Z:Z").Select
        ElseIf i = 25 Then
            Range("A:A, AA:AA").Select
        End If
        Selection.Copy
        Sheets.Add
        Sheets(Sheets.Count - 1).Select
        Columns("A:A").Select
        ActiveSheet.Paste
    Next i
End Sub

    Макрос для копирования подряд расположенных столбцов на отдельные листы

    Запостил: usstass, 25 Апреля 2012

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

    • ava Lure Of Chaos 25.04.2012 23:33 # +1

      в оригинале тоже Ìàêðîñ1?
      Ответить

      • ava usstass 25.04.2012 23:38 # +1

        Сори. Там кириллицей название. При копировании ошибка, но это не главное)
        Ответить

        • ava Lure Of Chaos 25.04.2012 23:45 # +1

          главное - что VisualBasic = говно.
          Ответить

          • ava rat4 26.04.2012 06:57 # +5

            1251 = говно
            Ответить

            • ava bormand 26.04.2012 09:48 # 0

              Да нет, просто не все знают, что в некоторых прогах копировать надо при выбранной русской раскладке.
              Ответить

              • ava rat4 26.04.2012 10:01 # +2

                >в некоторых прогах копировать надо при выбранной русской раскладке
                >нет

                Ну как же нет, если да?
                Ответить

              • ava govnomonad 26.04.2012 13:24 # +1

                Да нет, это не все быдлокодеры знают про юникод
                Ответить

              • ava lucidfoxGovno 26.04.2012 13:45 # +4

                ага, продукция борманда была этим знаменита
                Ответить

    • ava usstass 26.04.2012 10:09 # 0

      Не думал что кодировка привлечет больше всего внимания. Как-то на фоне 25 ифов, которые легко заменяются одной строчкой кодировка меркнет). Ну а тем, кто этого не замечает желаю удачных постов с собственным кодом )) Всем хорошего дня!
      Ответить

      • ava rat4 26.04.2012 10:21 # +5

        Медведь сидит, рыбу ловит.
        Рыбак. Думает: «Что это медведь сидит у моей проруби? Сейчас к нему подойду и скажу»
        – Ты чё сидишь?
        Он скажет:
        – Рыбу ловлю.
        Я:
        – Иди, моя прорубь!
        А если он:
        – Просто сижу.
        А я ему:
        – Я тут ловлю рыбу, сиди в другом месте!
        Решился, отважился рыбак, подходит, говорит:
        -Эй, медведь!!
        А медведь, ему не оборачиваясь:
        - Иди на фиг мужик, не мешай мне!
        Мужик почесал затылок:
        – Да.. тоже вариант!
        Ответить

    • ava guest 27.04.2012 09:55 # 0

      Да, посмеялся над этим говнокодом, а в результате сам вчера почти тоже самое выложил (приду домой запощу) - как в Экселе сделать цикл по столбцам???? Чтобы при этом не с непонятными цифровыми обозначениями Cells(4,5), а с нормальными, буквенными. Т.е. скажем цикл от "B" до "AZ".

      В этом примере может и цифровыми можно было обойтись, но в общем случае это неудобно (например поменялись столбцы и надо в макросах вылавливать эти дурацкие цифры, а буквы сразу видны).
      Ответить

    • ava AAypEIq 24.08.2021 23:12 # 0

      - По-моему, отличное имя. Для моего не придумали приемлемого сокращения, поэтому - Илья.
      Ответить

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