Исключить часть Литов - Microsoft Office Excel

valerij · 02.07.2008, 14:22

В макросе есть выражение:
Cells(dat * 48 + 39, 8) = Cells(dat * 48 + 38, 8) + Cells(dat * 48 + 48, 1)
оно применима ко всем 13 -листам, как применить это выражение, только для первых 8 из 13 ?

SAS888 · 02.07.2008, 14:28

Если Вы используете цикл по всем (или по избранным) листам книги, используя, например, метод With......End With, то можно так:

Код:

With Sheets(i)
        '
        '
        If .Index < 9 Then
            'Ваш код для первых 8 листов
        End If
        '
        '
    End With

valerij · 02.07.2008, 14:33

Цитата:

Сообщение от SAS888

Если Вы используете цикл

Попробую, Спасибо!

З. Ы.
Личку читали?

02.07.2008, 14:22	#1
valerij Старожил Регистрация: 12.05.2007 Сообщений: 2,339	Исключить часть Литов В макросе есть выражение: Cells(dat * 48 + 39, 8) = Cells(dat * 48 + 38, 8) + Cells(dat * 48 + 48, 1) оно применима ко всем 13 -листам, как применить это выражение, только для первых 8 из 13 ?

02.07.2008, 14:28	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Если Вы используете цикл по всем (или по избранным) листам книги, используя, например, метод With......End With, то можно так: Код: `With Sheets(i) ' ' If .Index < 9 Then 'Ваш код для первых 8 листов End If ' ' End With` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Дробная часть числа	Иллидан	Общие вопросы C/C++	11	31.05.2011 16:23
исключить повтор в делфи	murzinani	Помощь студентам	4	27.05.2008 22:13
Исключить #13#10 из Length	Febreze	Общие вопросы Delphi	10	26.04.2008 12:52
Часть фона одним цветом а другая часть другим (без таблиц).	Lanselot	HTML и CSS	4	25.04.2008 18:41
аппаратная часть	Abay	Софт	5	09.02.2007 10:10