Poul Trade Forum: Как запустить макрос последовательно на нескольких листах?

Вы не залогинились [Вход]

Форумы · Новый форумянин · FAQ · Календарь

Софт >> Excel

Страниц в ветке: 1

nenalivali
Гость

Зарегистрирован: 29/11/2009
Сообщений: 2

Как запустить макрос последовательно на нескольких листах?
#288680 - 09/02/2010 09:49

Например:
Sub OP()
zena = Worksheets("ГП").Cells(2,3).Value
bum = Worksheets("Бум").Cells(1,4).Value
Worksheets("ГП").Cells(1,1).Value = zena*bum
end sub
Как подставить поочередно имя листа "ГП", "СБ", "РН"?

Опции:

rituy
Свой человек

Зарегистрирован: 08/01/2009
Сообщений: 87

Re: Как запустить макрос последовательно на нескольких листах? [re: nenalivali]
#288746 - 10/02/2010 01:26

Sub OP()
Dim zena As Double
Dim bum As Double 'если bum - это циферки
Dim ws As Worksheet
Dim wsNames(2) As String
Dim i As Integer

wsNames(0) = "ГП"
wsNames(1) = "СБ"
wsNames(2) = "РН"

For Each ws In ActiveWorkbook.Worksheets
For i = LBound(wsNames) To UBound(wsNames)
If ws.Name = wsNames(i) Then
zena = ws.Cells(2, 3).Value
bum = ws.Cells(1, 4).Value
ws.Cells(1, 1).Value = zena * bum
End If
Next
Next
End Sub

Как-то вот так.

Опции:

nenalivali
Гость

Зарегистрирован: 29/11/2009
Сообщений: 2

Re: Как запустить макрос последовательно на нескольких листах? [re: rituy]
#288752 - 10/02/2010 08:21

Спасибо Rituy! Сейчас попробую.

Опции:

Страниц в ветке: 1

Дополнительная информация

0 зарегистрированных и 3 незарегистрированных пользователей просматривает форум.

Модератор: michaelus, SGN, EVM, x4x, 000, Akelo, Socol, Ленивый, Ptem, Kadavr, podval, untoxa, VovaM, Asd, Igonter

Распечатать тему

Доступ и ограничения:
      Вы не можете начать новую тему
      Вы не можете отвечать на тему
      HTML включён
      UBBCode включён

Рейтинг:

Тема прочитана: 2247

Перейти на

Send letter to Poul | Предупреждение

Poul Trade Forum

Generated in 0.016 seconds in which 0.005 seconds were spent on a total of 12 queries. Zlib compression enabled.