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

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

    • в оригинале тоже Ìàêðîñ1?
      Ответить
      • Сори. Там кириллицей название. При копировании ошибка, но это не главное)
        Ответить
        • главное - что VisualBasic = говно.
          Ответить
          • 1251 = говно
            Ответить
            • Да нет, просто не все знают, что в некоторых прогах копировать надо при выбранной русской раскладке.
              Ответить
              • >в некоторых прогах копировать надо при выбранной русской раскладке
                >нет

                Ну как же нет, если да?
                Ответить
              • Да нет, это не все быдлокодеры знают про юникод
                Ответить
              • ага, продукция борманда была этим знаменита
                Ответить
    • Не думал что кодировка привлечет больше всего внимания. Как-то на фоне 25 ифов, которые легко заменяются одной строчкой кодировка меркнет). Ну а тем, кто этого не замечает желаю удачных постов с собственным кодом )) Всем хорошего дня!
      Ответить
      • Медведь сидит, рыбу ловит.
        Рыбак. Думает: «Что это медведь сидит у моей проруби? Сейчас к нему подойду и скажу»
        – Ты чё сидишь?
        Он скажет:
        – Рыбу ловлю.
        Я:
        – Иди, моя прорубь!
        А если он:
        – Просто сижу.
        А я ему:
        – Я тут ловлю рыбу, сиди в другом месте!
        Решился, отважился рыбак, подходит, говорит:
        -Эй, медведь!!
        А медведь, ему не оборачиваясь:
        - Иди на фиг мужик, не мешай мне!
        Мужик почесал затылок:
        – Да.. тоже вариант!
        Ответить
    • Да, посмеялся над этим говнокодом, а в результате сам вчера почти тоже самое выложил (приду домой запощу) - как в Экселе сделать цикл по столбцам???? Чтобы при этом не с непонятными цифровыми обозначениями Cells(4,5), а с нормальными, буквенными. Т.е. скажем цикл от "B" до "AZ".

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

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