Доброй ночи всем! Хочу передать значение переменной m в фигуру С листа передавать можно А без простановки значения в отдельную ячейку как? Это возможно ли?
Еще чтобы в цикле была задержка пробежки по ячейкам на 1 секунду, чтобы можно было прочитать. То есть хочу получить что-то вроде окно MsgBox только без "ок" Подскажите, пожалуйста, как этого достичь
Доброй ночи всем! Хочу передать значение переменной m в фигуру С листа передавать можно А без простановки значения в отдельную ячейку как? Это возможно ли?
Еще чтобы в цикле была задержка пробежки по ячейкам на 1 секунду, чтобы можно было прочитать. То есть хочу получить что-то вроде окно MsgBox только без "ок" Подскажите, пожалуйста, как этого достичьant6729
Sub rtrt() lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lr Sheets("Лист1").Shapes(1).TextFrame2.TextRange.Characters.Text = Cells(i, 1).Value Application.Wait Time:=Now + TimeValue("0:00:01") Next i End Sub
[/vba]
макрорекодер так подсказал [vba]
Код
Sub rtrt() lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lr Sheets("Лист1").Shapes(1).TextFrame2.TextRange.Characters.Text = Cells(i, 1).Value Application.Wait Time:=Now + TimeValue("0:00:01") Next i End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
