0 / 0 / 0
Регистрация: 22.06.2022
Сообщений: 3
1

Зациклить повторение пока не кончатся строки

22.06.2022, 22:20. Показов 581. Ответов 4
Метки vb (Все метки)

Здравствуйте, есть два листа, в первом листе "Ведомость" в первой строке ("A3") значения которые подставляются во второй лист "Оценки" и сохраняются в отдельный файл. Смог собрать макрос для вставки одного диапазона значений "A4:AW4". Как подставлять автоматически следующие строки и повторять эти действия до тех пор пока не кончатся строки?

Код
Sub копирование_вставка()

'Копирование и вставка диапазона одной строкой:
Range("A4:AW4").Copy Range("A3")

'переход на другой лист
Set WS1 = ActiveSheet ' активный лист
Set WS2 = ActiveWorkbook.Sheets("Оценки") ' - нужный лист
WS2.Cells(1, 1).Value = WS2.Cells(1, 1).Value
WS2.Activate ' - нужный стал активным

'сохранение активной книги без формул
Dim ActiveSht As Worksheet
Dim NewWb As Workbook

    Set ActiveSht = ActiveSheet
    Set NewWb = Workbooks.Add
    ActiveSht.Copy Before:=Workbooks(NewWb.Name).Sheets(1)
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
    'отключить тревожные сообщения
    Application.DisplayAlerts = False
    'продолжение скрипта
    ActiveWorkbook.SaveAs Filename:="C:" & [A5]
    'включить тревожные сообщения
    Application.DisplayAlerts = True
    'закрытие книги
    ActiveWorkbook.Close

End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2022, 22:20
Ответы с готовыми решениями:

создаю новые массивы для записи пока в строке ввода не кончатся символы
Значит идея в том (строка 18) что у меня строка неизвестной длины и в изначальный массив она не...

Зациклить программу, пока не нажат пробел
Не могу сообразить, как реализовать такую вещь, как ожидание нажатия клавиши, например SPACE...

Зациклить слушателя, пока не будет нажата кнопка
Помогите пожалуйста. Нужно чтобы два звука по очереди до бесконечности повторяли друг друга. Суть...

Зациклить вызов функции пока он не вернёт True
Здравствуйте, уважаемые форумчане. Помогите решить следующую задачу. Есть функция производящая...

Зациклить код, до тех пор пока не выполнится условие
Доброго времени суток. Есть код. P простое генерируется исходя из уравнения P=2*Q+1 Функция...

4
3569 / 2196 / 737
Регистрация: 02.11.2012
Сообщений: 5,780
23.06.2022, 08:02 2
нйжен файл.

П.С. код оформляйте тегом "VB"
0
0 / 0 / 0
Регистрация: 22.06.2022
Сообщений: 3
23.06.2022, 09:15  [ТС] 3
Вот файл
Вложения
Тип файла: zip Файл.zip (26.9 Кб, 10 просмотров)
0
3569 / 2196 / 737
Регистрация: 02.11.2012
Сообщений: 5,780
23.06.2022, 09:37 4
Лучший ответ Сообщение было отмечено Олег63 как решение

Решение

проверяйте
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub копирование_вставка()
Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по 1 столбцу
For i = 4 To LR
'Копирование и вставка диапазона одной строкой:
Range("A" & i & ":AW" & i).Copy Range("A3")
 
 
'переход на другой лист
Set WS1 = ActiveSheet ' активный лист
Set WS2 = ActiveWorkbook.Sheets("Оценки") ' - нужный лист
WS2.Cells(1, 1).Value = WS2.Cells(1, 1).Value
WS2.Activate ' - нужный стал активным
 
'сохранение активной книги без формул
Dim ActiveSht As Worksheet
Dim NewWb As Workbook
 
    Set ActiveSht = ActiveSheet
    Set NewWb = Workbooks.Add
    ActiveSht.Copy Before:=Workbooks(NewWb.Name).Sheets(1)
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
    'отключить тревожные сообщения
    Application.DisplayAlerts = False
    'продолжение скрипта
    ActiveWorkbook.SaveAs Filename:="C:\" & [A5]
    'включить тревожные сообщения
    Application.DisplayAlerts = True
    'закрытие книги
    ActiveWorkbook.Close
Next
 
End Sub
1
0 / 0 / 0
Регистрация: 22.06.2022
Сообщений: 3
23.06.2022, 15:21  [ТС] 5
Перед Next добавил возврат на первый лист, всё заработало, большое Вам спасибо!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2022, 15:21
Помогаю со студенческими работами здесь

Повторение кода пока х не станет равным true
мне нужно зациклить код код этот должен повторятся пока х не станет равым true как это сделать

Как зациклить ввод пока не будет введено одно из обрабатываемых значений?
Как сделать что бы если else (введено не 1 или 2) вывело текст "неправильный выбор" и начало цикл...

Зациклить решение системы дифф-уравнений пока есть возможные варианты значений переменных
Есть программа которая решает систему дифференциальных уравнений методом Адамса Башфорта. import...

Программа должна запрашивать ввести возраст до тех пор, пока пользователь не введет число. как зациклить можно?
try: m=int(input("введите ваш возраст ")) except ValueError: m=int(input("введите ваш возраст...

Просите пользователя угадать число до тех пор, пока он его не угадает. Как зациклить ввод переменной,если не угадал?
import random a=int(random.randint(0,20)) print(a) b=int(input("Введите число от 0 до 20 ")) if...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru