Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перебор названий листов в цикле - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перебор названий листов в цикле (Макросы/Sub)
Перебор названий листов в цикле
drugojandrew Дата: Воскресенье, 05.04.2020, 13:53 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 138
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!
Подскажите, пожалуйста, как в этом макросе:
[vba]
Код
Sub DataCopy()
  Dim n As Long, rngData As Range
  Set rngData = Sheets("Data").Range("A1:A15")
  rngData.Copy
    For n = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(n).Name = "1_Yes" Or ThisWorkbook.Worksheets(n).Name = "3_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "4_Yes" Or ThisWorkbook.Worksheets(n).Name = "5_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "7_Yes" Then
            With Sheets(n)
                .Cells(1, 1).PasteSpecial Paste:=xlValues
            End With
        End If
    Next n
End Sub
[/vba]
упростить эту запись:
[vba]
Код
If ThisWorkbook.Worksheets(n).Name = "1_Yes" Or ThisWorkbook.Worksheets(n).Name = "3_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "4_Yes" Or ThisWorkbook.Worksheets(n).Name = "5_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "7_Yes" Then
[/vba]
т.е. вместо того, чтобы перечислять листы через Or, задать переменную листам.
 
Ответить
СообщениеДобрый день!
Подскажите, пожалуйста, как в этом макросе:
[vba]
Код
Sub DataCopy()
  Dim n As Long, rngData As Range
  Set rngData = Sheets("Data").Range("A1:A15")
  rngData.Copy
    For n = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(n).Name = "1_Yes" Or ThisWorkbook.Worksheets(n).Name = "3_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "4_Yes" Or ThisWorkbook.Worksheets(n).Name = "5_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "7_Yes" Then
            With Sheets(n)
                .Cells(1, 1).PasteSpecial Paste:=xlValues
            End With
        End If
    Next n
End Sub
[/vba]
упростить эту запись:
[vba]
Код
If ThisWorkbook.Worksheets(n).Name = "1_Yes" Or ThisWorkbook.Worksheets(n).Name = "3_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "4_Yes" Or ThisWorkbook.Worksheets(n).Name = "5_Yes" _
           Or ThisWorkbook.Worksheets(n).Name = "7_Yes" Then
[/vba]
т.е. вместо того, чтобы перечислять листы через Or, задать переменную листам.

Автор - drugojandrew
Дата добавления - 05.04.2020 в 13:53
nilem Дата: Воскресенье, 05.04.2020, 14:13 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1587
Репутация: 548 ±
Замечаний: 0% ±

Excel 2013, 2016
drugojandrew, привет
например, такой вариант:
[vba]
Код
Sub DataCopy()
Dim n As Long, sNm As String
sNm = "~1_Yes~3_Yes~4_Yes~5_Yes~7_Yes~"
With ThisWorkbook
    .Sheets("Data").Range("A1:A15").Copy
    For n = 1 To .Sheets.Count
        If InStr(sNm, .Sheets(n).Name) Then Sheets(n).Cells(1, 1).PasteSpecial Paste:=xlValues
    Next n
End With
Application.CutCopyMode = False
End Sub
[/vba]


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Воскресенье, 05.04.2020, 14:15
 
Ответить
Сообщениеdrugojandrew, привет
например, такой вариант:
[vba]
Код
Sub DataCopy()
Dim n As Long, sNm As String
sNm = "~1_Yes~3_Yes~4_Yes~5_Yes~7_Yes~"
With ThisWorkbook
    .Sheets("Data").Range("A1:A15").Copy
    For n = 1 To .Sheets.Count
        If InStr(sNm, .Sheets(n).Name) Then Sheets(n).Cells(1, 1).PasteSpecial Paste:=xlValues
    Next n
End With
Application.CutCopyMode = False
End Sub
[/vba]

Автор - nilem
Дата добавления - 05.04.2020 в 14:13
drugojandrew Дата: Воскресенье, 05.04.2020, 17:19 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 138
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
nilem, спасибо, то, что надо.
 
Ответить
Сообщениеnilem, спасибо, то, что надо.

Автор - drugojandrew
Дата добавления - 05.04.2020 в 17:19
Gustav Дата: Воскресенье, 05.04.2020, 22:04 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1826
Репутация: 726 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
например, такой вариант:

Или такой:
[vba]
Код
Sub DataCopy()
    Dim strName As Variant 'String не подходит
    With ThisWorkbook
        .Sheets("Data").Range("A1:A15").Copy
        For Each strName In Array("1_Yes", "3_Yes", "4_Yes", "5_Yes", "7_Yes")
            Sheets(strName).Cells(1, 1).PasteSpecial Paste:=xlValues
        Next strName
    End With
    Application.CutCopyMode = False
End Sub
[/vba]

[p.s.]А конкретно эту задачу можно даже без цикла - мультишитовой вставкой, т.е. с предварительным выделением всех нужных листов и затем собственно вставкой в один из них - эффект вставки распространится на все выделенные:[/p.s.]
[vba]
Код
Sub DataCopy()
    With ThisWorkbook
        .Sheets("Data").Range("A1:A15").Copy
        .Sheets(Array("1_Yes", "3_Yes", "4_Yes", "5_Yes", "7_Yes")).Select
        .Sheets("1_Yes").Cells(1, 1).PasteSpecial Paste:=xlValues
    End With
    Application.CutCopyMode = False
End Sub
[/vba]


Мой tip box - яд 41001663842605

Сообщение отредактировал Gustav - Воскресенье, 05.04.2020, 22:27
 
Ответить
Сообщение
например, такой вариант:

Или такой:
[vba]
Код
Sub DataCopy()
    Dim strName As Variant 'String не подходит
    With ThisWorkbook
        .Sheets("Data").Range("A1:A15").Copy
        For Each strName In Array("1_Yes", "3_Yes", "4_Yes", "5_Yes", "7_Yes")
            Sheets(strName).Cells(1, 1).PasteSpecial Paste:=xlValues
        Next strName
    End With
    Application.CutCopyMode = False
End Sub
[/vba]

[p.s.]А конкретно эту задачу можно даже без цикла - мультишитовой вставкой, т.е. с предварительным выделением всех нужных листов и затем собственно вставкой в один из них - эффект вставки распространится на все выделенные:[/p.s.]
[vba]
Код
Sub DataCopy()
    With ThisWorkbook
        .Sheets("Data").Range("A1:A15").Copy
        .Sheets(Array("1_Yes", "3_Yes", "4_Yes", "5_Yes", "7_Yes")).Select
        .Sheets("1_Yes").Cells(1, 1).PasteSpecial Paste:=xlValues
    End With
    Application.CutCopyMode = False
End Sub
[/vba]

Автор - Gustav
Дата добавления - 05.04.2020 в 22:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перебор названий листов в цикле (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!