Составляющие создания макроса.

27.08.2008, 13:18. **Показов** 1113. **Ответов** 5

Студворк — интернет-сервис помощи студентам

В списке много повторяющихся номеров.Пример:12365 - проводка перемещения, 12365 - Расходная (дублирующая эту проводку).Но расходных может быть две (не сразу всё было перемещено), поэтому 12365 не два, как должно,а три.Номеров очень много и поэтому был создан макрос, чтобы облегчить задачу. Но макрос был сделан так, что нужно начинать обработку с 11 строки и номера повторяющиеся два раза он отмечает,а третий повторяющийся, если такой есть - не регистрируется. хочу сделать, чтобы обработка происходила вне зависимости от строки и происходила регистрация всех повторяющихся номеров. Я прочитал книги по VBA но нигде толком не сказано и не описаны составляющие готового макроса (я хотел разобрать его и исправить),а по английски я понимаю плохо, а Хелп написан целиком по английски. Помогите!

31.08.2008, 06:53

Интересно, интересно...
Т.е. нужно, чтобы макрос пробегал по колонке, выискивал некие значения удовлетворяющие заданному критерию, помечал их и отключался?
Сбрось свою 'обработку'

посмотрим вместе, что можно сделать.
А вообще, задача несложная. Стоит разок ее решить и потом уже решенным пользоваться

01.09.2008, 17:49

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub &Igrave;&agrave;&ecirc;&eth;&icirc;&ntilde;1()
Row = 11
Do Until Worksheets('&Euml;&egrave;&ntilde;&ograve;1').Range(Cells(Row, 6), Cells(Row, 6)).Value = ''
    Row = Row + 1
Loop
Row = Row - 11
Pattern = ''
Links = 0
For i = 0 To Row - 1
    Pattern = Worksheets('&Euml;&egrave;&ntilde;&ograve;1').Range(Cells(11 + i, 6), Cells(11 + i, 6)).Value
    Links = 1
        For j = 0 To Row - i - 2
            If Worksheets('&Euml;&egrave;&ntilde;&ograve;1').Range(Cells(11 + i + j + 1, 6), Cells(11 + i + j + 1, 6)).Value = Pattern Then
                Links = Links + 1
                Worksheets('&Euml;&egrave;&ntilde;&ograve;1').Range(Cells(11 + i + j + 1, 8), Cells(11 + i + j + 1, 8)).Value = Links
            End If
        Next j
    If Links = 2 And Worksheets('&Euml;&egrave;&ntilde;&ograve;1').Range(Cells(11 + i, 8), Cells(11 + i, 8)).Value < 3 Then
        Worksheets('&Euml;&egrave;&ntilde;&ograve;1').Range(Cells(11 + i, 8), Cells(11 + i, 8)).Value = Links
    End If
Next i
End Sub

02.09.2008, 05:38

Чтобы макрос начал работать с другой строки (не с 11) просто замени 11 (в двух местах) на какое-нить другое значение (например 5) и он будет работать с 5 строки
А чтобы она помечала у тебя все строки, а не только 2
(хотя странно, вроде все должна помечать, но 3,4, 5 и т.д. повторяющиеся строки должна помечать двойками), закоментируй последнее условие в цикле:
'If Links = 2 And Worksheets('Ëèñ&ograv e;1').Range(Cells(11 + i, 8), Cells(11 + i, 8)).Value < 3 Then
Worksheets('Ëèñ&ograv e;1').Range(Cells(11 + i, 8), Cells(11 + i, 8)).Value = Links
End If
И попробуй.
Вроде макросик правильно написан, хоть и горбато до ужаса.
Скажи а вот если в таблице такая последовательность:
Колонка 1
1
1
2
1
2
2
1
1
3
2
1
То ведь твой макрос будет помечать и единицы и двойки, а т.к. помечается все только цифрами, то ты запутаешься.
Давай теперь подробнее объясняй, как у тебя идет пометка.

@IgorTr · 02.09.2008, 11:11

2Tim
а что это такое
Sub Ìàêðî&ntil de;1()
?

только ногами не бейте...

02.09.2008, 13:43

Я чуть со смеху не помер когда увидел такие имена в листе и в названии макроса
честно признаюсь, я побоялся его копировать себе на машину, но если человек говорит, что это работает, то я не стал отвлекаться на такие мелочи как произвольные названия листов и Sub'ов.
Не знаю я что сие значит

)))))))))

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

Mossad

	Составляющие создания макроса. 27.08.2008, 13:18. Показов 1113. Ответов 5 Метки нет (Все метки) В списке много повторяющихся номеров.Пример:12365 - проводка перемещения, 12365 - Расходная (дублирующая эту проводку).Но расходных может быть две (не сразу всё было перемещено), поэтому 12365 не два, как должно,а три.Номеров очень много и поэтому был создан макрос, чтобы облегчить задачу. Но макрос был сделан так, что нужно начинать обработку с 11 строки и номера повторяющиеся два раза он отмечает,а третий повторяющийся, если такой есть - не регистрируется. хочу сделать, чтобы обработка происходила вне зависимости от строки и происходила регистрация всех повторяющихся номеров. Я прочитал книги по VBA но нигде толком не сказано и не описаны составляющие готового макроса (я хотел разобрать его и исправить),а по английски я понимаю плохо, а Хелп написан целиком по английски. Помогите!

Tim
	31.08.2008, 06:53
	Интересно, интересно... Т.е. нужно, чтобы макрос пробегал по колонке, выискивал некие значения удовлетворяющие заданному критерию, помечал их и отключался? Сбрось свою 'обработку' посмотрим вместе, что можно сделать. А вообще, задача несложная. Стоит разок ее решить и потом уже решенным пользоваться

Tim
	02.09.2008, 05:38
	Чтобы макрос начал работать с другой строки (не с 11) просто замени 11 (в двух местах) на какое-нить другое значение (например 5) и он будет работать с 5 строки А чтобы она помечала у тебя все строки, а не только 2 (хотя странно, вроде все должна помечать, но 3,4, 5 и т.д. повторяющиеся строки должна помечать двойками), закоментируй последнее условие в цикле: 'If Links = 2 And Worksheets('Ëèñ&ograv e;1').Range(Cells(11 + i, 8), Cells(11 + i, 8)).Value < 3 Then Worksheets('Ëèñ&ograv e;1').Range(Cells(11 + i, 8), Cells(11 + i, 8)).Value = Links End If И попробуй. Вроде макросик правильно написан, хоть и горбато до ужаса. Скажи а вот если в таблице такая последовательность: Колонка 1 1 1 2 1 2 2 1 1 3 2 1 То ведь твой макрос будет помечать и единицы и двойки, а т.к. помечается все только цифрами, то ты запутаешься. Давай теперь подробнее объясняй, как у тебя идет пометка.

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	02.09.2008, 11:11
	2Tim а что это такое Sub Ìàêðî&ntil de;1() ? только ногами не бейте... 0

Tim
	02.09.2008, 13:43
	Я чуть со смеху не помер когда увидел такие имена в листе и в названии макроса честно признаюсь, я побоялся его копировать себе на машину, но если человек говорит, что это работает, то я не стал отвлекаться на такие мелочи как произвольные названия листов и Sub'ов. Не знаю я что сие значит )))))))))