Как автоматически выделять подобные диапазоны?

07.09.2010, 08:18. **Показов** 1214. **Ответов** 4

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

Есть лист бухгалтерского учета гвоздей на складе. На один размер гвоздя отдано 6 столбцов - число, номер, проводка, приход, расход, примечание ('B12:G300').
таких размеров около 20, столо быть столбцов 6*20=120 штук. Написал я макрос для сортировки записей по датам движения в диапазоне ('B12:G300') при помощи Range('B12:G300').Select - работает отлично, НО возникла проблема: как автоматически выделять следующий диапазон, смещенный относительно предыдущего на 6 столбцов вправо ('H12:M300'),('N12:S300')?
Как бы уважаемое сообщество решило данную проблему?

@SlavaRus · 07.09.2010, 09:47

Попробуй так
Set MyRange = [B12:G300]
For i = 0 To 36 Step 6
MyRange.Offset(0, i).Select
Next

07.09.2010, 10:43

Спасибо, попробовал - заработало!!!
Тогда следующий вопрос:
в пределах одного листа такая штука заработала, а как сделать чтобы подобный механизм сортировал данные в других листах?
Структура листов абсолютно одинакова, только названия листов разные, т.е. необходимо реализовать перебор ВСЕХ листов в книге. учтите, что время от времени листы добавляются и каждый раз вносить изменения неохота, да и забыть про это можно. Требуется решение в общем виде.
Заранее благодарю

@SlavaRus · 07.09.2010, 12:15

Const N = 36
Const txtAdr = 'B12:G300'

Dim objSheet As Worksheet
Dim MyRange As Range
Dim I As Byte

For Each objSheet In Worksheets
Set MyRange = objSheet.Range(txtAdr)
For I = 0 To N Step 6
'MyRange.Offset(0, I)... = 1
Next
Next
Прим:
Select без активации листа будет генерить ошибку. Если возникнет необходимость активации диапазона в тело цикла придется включить код
objSheet.Activate.

@SlavaRus · 07.09.2010, 12:34

<'MyRange.Offset(0, I)... = 1>
Здесь свой код вставишь, я 1 присваивал MyRange.Offset(0, I).value=1 да так и не отредактировал

Удачи!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Гвоздик

	Как автоматически выделять подобные диапазоны? 07.09.2010, 08:18. Показов 1214. Ответов 4 Метки нет (Все метки) Есть лист бухгалтерского учета гвоздей на складе. На один размер гвоздя отдано 6 столбцов - число, номер, проводка, приход, расход, примечание ('B12:G300'). таких размеров около 20, столо быть столбцов 6*20=120 штук. Написал я макрос для сортировки записей по датам движения в диапазоне ('B12:G300') при помощи Range('B12:G300').Select - работает отлично, НО возникла проблема: как автоматически выделять следующий диапазон, смещенный относительно предыдущего на 6 столбцов вправо ('H12:M300'),('N12:S300')? Как бы уважаемое сообщество решило данную проблему?

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	07.09.2010, 09:47
	Попробуй так Set MyRange = [B12:G300] For i = 0 To 36 Step 6 MyRange.Offset(0, i).Select Next 0

Гвоздик
	07.09.2010, 10:43
	Спасибо, попробовал - заработало!!! Тогда следующий вопрос: в пределах одного листа такая штука заработала, а как сделать чтобы подобный механизм сортировал данные в других листах? Структура листов абсолютно одинакова, только названия листов разные, т.е. необходимо реализовать перебор ВСЕХ листов в книге. учтите, что время от времени листы добавляются и каждый раз вносить изменения неохота, да и забыть про это можно. Требуется решение в общем виде. Заранее благодарю

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	07.09.2010, 12:15
	Const N = 36 Const txtAdr = 'B12:G300' Dim objSheet As Worksheet Dim MyRange As Range Dim I As Byte For Each objSheet In Worksheets Set MyRange = objSheet.Range(txtAdr) For I = 0 To N Step 6 'MyRange.Offset(0, I)... = 1 Next Next Прим: Select без активации листа будет генерить ошибку. Если возникнет необходимость активации диапазона в тело цикла придется включить код objSheet.Activate. 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	07.09.2010, 12:34
	<'MyRange.Offset(0, I)... = 1> Здесь свой код вставишь, я 1 присваивал MyRange.Offset(0, I).value=1 да так и не отредактировал Удачи! 0