Очень срочно нужа помощь!

[Maria_Kim]

1. Создать макрос, который объединяет выделенные ячейки и
форматирует текст в этой объединенной ячейке по центру по
горизонтали и по вертикали.
2. Создать макрос, который защищает лист с паролем.
3. Создать макрос, который снимает защиту листа с паролем.

[сфинкс]

Не забываем: ветка Фриланс для помощи за деньги
обычно до 1000 рублей

Внизу таблицы закладки по названию задач

Макрос ИТОГ про жёлтую таблицу без сплющивания
иначе если сплющить совсем на картинку не похоже

Вкладка про график работает странно
возможно из-за обязательных латинских букв
и нажав в сообщении end строится график
только пояснения не стирает
и какие-то вертикальные не строит

В задаче объединения ячеек какой текст не указано

Макрос про пароли: пароль только на свою вкладку
parol

[сфинкс]

Насчёт "Для столбцов выполнить автоподбор ширины"
если в самом начале как в задании тогда далее цифры скроются

поэтому есть вариант
"Макрос со сжатием" добавив в конец макроса "ИТОГ" 2 строки
Columns("A:E").Select
Columns("A:E").EntireColumn.AutoFit

Задание настолько противоречивое что выглядит хуже
и на картинку подсказку из другой темы не похоже

Файл архив zip т.к. иначе форум не принимает

На сей час спрашивающие были на форуме в 00:21

[сфинкс]

Ещё есть https://cyberforum.ru

и ещё гугло яндекс приведут на спец форумы

[Maria_Kim]

преподаватель сказал сделать объединение ВЫДЕЛЕНнЫХ ячеек. Я знаю как сделать ячейки по горизонтали, но что бы и по вертикали и по горизонтали у меня не получается

[сфинкс]

данный макрос объединяет именно подсвеченные ячейки

Sub objedin()
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Sub

работает: подсветив мышкой - макрос - объединились

причём макрос создан через начать запись

однако в задании окажется слово "выделенных" означает нечто иное

[Alex_andr]

надеюсь вы сможете мне помочь хотя бы с одни из заданий. Буду по гроб жизни благодарен.

надо написать макросы (vba excel):
1. Даны координаты начала и конца прямой линии. Найти длину отрезка
2. Определить день недели сотого дня заданного года.
3. Дана дата в виде строки в американском формате месяц/день/год. Переделать ее в русский
формат день.месяц.год. проверить правильно ли задан месяц и день.
5. Ввести год, месяц, день. В зависимости от даты вывести: прошлое,
настоящее будущее.

Так же как у Maria_Кim, наш преподаватель требует что бы мы использовали относительные адреса , то есть ячейки, которые мы выделяем.
Умоляю, помогите, времени совсем чуть чуть осталось

[сфинкс]

Напоминаю: решения в рубрике Фриланс платные

Возможное решение задачи 1 в другой теме тоже платное

Возможное решение задачи 3 тоже платное

Sub DATY()
a$ = "09.12.2022"
b$ = Mid$(a$, 1, 2)
c$ = Mid$(a$, 4, 2)
d$ = Mid$(a$, 6, 5)
e$ = a$ + "   " + c$ + "." + b$ + d$
MsgBox (e$)
End Sub

Результат: 09.12.2022 12.09.2022

"проверить правильно ли задан месяц и день"
доверяю вам самим

как переводить ячейки в переменные небось в лекциях пишут

ведь полная версия считывающая из ячеек
именно в рубрике форума Фриланс: платная

В любом случае получатся черновики
и править в чистовики придётся вам самим

и вообще в интернете точно ищутся все данные
чтобы спрашивающим доделать самим

+ в 11 часов: спрашивающие почему-то утром форум не проверяют
хотя прошло аж пол-дня

[сфинкс]

если задачки якобы не работают
прикладывайте картинки что якобы не работает

а пока на сообщение мол якобы не работает
ответ: а у меня работают оба варианта

причём про правильность других задач неизвестно
и наверняка объявят неправильными
хотя если знать в чём ляп небось исправляются за минуту

[сфинкс]

На другом форуме вам сочинили длинную программу
наверное про настоящее или будущее время
и там есть хоть какая-то проверка на дни и месяцы

Задача про даты если нужно менять косые на точки
принцип формирования нового стринга прежний
ведь формат "дата" стрингу не присваивается

И заметьте даже не другом форуме
макросы на использование ячеек бесплатно не переделывают