МГС  Московская Гигабитная Сеть
 www.umos.su info@umos.su  Выделенные линии Ве/б-Студия Хостинг Collocation
 Тарифы Вопросы и ответы Полезная информация Контакты

Софт >> 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

Powered by UBB.threads™ 6.5.4

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