Otktanya (Автор тем)

Как построчно заполнить ячейки циклом

Пользователь

Сообщений: 7 Регистрация: 16.11.2017

20.05.2018 22:17:47

Подскажите пожалуйста. У меня в задании указано Заполнить семь ячеек пятой колонки квадратными корнями чисел от 1 до 7. Подсказка: sqr(x) – функция, вычисляющая квадратный корень
числа х.

Код
Sub Макрос1() For i=1 To 7 Worksheets(“Лист1”).Cells(5,i).Value=sqr(i) Next i End Sub

Вопрос: Как написать в макросе,чтобы значения выдавал не в строчку,а в столбик от 1 до 7 ?????????

Перейти

Макрос: имена листов в формате час.мин.сек.

Otktanya

Пользователь

Сообщений: 7 Регистрация: 16.11.2017

20.05.2018 20:46:46

Добрый вечер! Ребята,помогите,пожалуйста. Задание: Создайте макрос,который добавляет новый лист в конец рабочей книги и присваивает ему имя, роль которого играет текущее время в формате час.мин.сек. Подсказка: для получения текущего времени воспользуйтесь следующим фрагментом Час= CSng(Hour(Time)) Мин= CSng(Minute(Time)) Сек= CSng(Second(Time)) Многократным запуском макроса убедитесь, что имена листов добавляются правильно.

Вот у меня так получилось,но высвечивает ошибку:

Код

Sub Добавление_листа()
Имя_последнего= Worksheets(Worksheets.Count).Name
Set Лист=Worksheets.Add(after:= Worksheets(Worksheets.Count))
Лист.Name= Имя_последнего & ”Час= CSng(Hour(Time))"
MsgBox(“Час= CSng(Hour(Time))
End Sub

Перейти

Записать формулу: Е в степени Х минус арккосинус корень из Х

Otktanya Пользователь Сообщений: 7 Регистрация: 16.11.2017	# 16.11.2017 18:15:26 Помогите плиззззз. Нужно записать формулу: Е в степени Х минус арккосинус корень из Х.
	Перейти