Как при открытии книги выводить в указанную ячейку текст?

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как при открытии книги выводить в указанную ячейку текст?

rainystaff

Дата: Понедельник, 02.08.2021, 13:10 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

2019

А как при открытии книги выводить в указанную ячейку текст?
Допустим, есть перечень фраз "доброе утро", "пора на работу" и т.д. и чтобы при открытии книги одна из подготовленных фраз появлялась в указанной ячейке?
Спасибо

Ответить

Serge_007

Дата: Понедельник, 02.08.2021, 14:58 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

[vba]

Код

Private Sub Workbook_Open()
Sheets(1).[a1] = "доброе утро"
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

rainystaff

Дата: Понедельник, 02.08.2021, 16:16 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

2019

[vba]

Код

Private Sub Workbook_Open()
Sheets(1).[a1] = "первое сообщение"
Sheets(1).[a1] = "второе сообщение"
Sheets(1).[a1] = "третье сообщение"
End Sub

[/vba]

И при каждом открытии книги в ячейке а1 будет всегда разный текст из списка?

Сообщение отредактировал rainystaff - Понедельник, 02.08.2021, 16:17

Ответить

Erjoma1981

Дата: Понедельник, 02.08.2021, 16:23 | Сообщение № 4

Группа: Проверенные

Ранг: Участник

Сообщений: 66

Репутация: 25 ±

Замечаний: 0% ±

Excel 2010, 2019

rainystaff, всегда будет "третье сообщение"

Ответить

rainystaff

Дата: Понедельник, 02.08.2021, 16:24 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

2019

А как сделать чтобы: Допустим, есть перечень фраз "доброе утро", "пора на работу" и т.д. и чтобы при открытии книги одна из подготовленных фраз появлялась в указанной ячейке?

Сообщение отредактировал Serge_007 - Понедельник, 02.08.2021, 16:55

Ответить

Serge_007

Дата: Понедельник, 02.08.2021, 16:27 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Какая именно?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Erjoma1981

Дата: Понедельник, 02.08.2021, 16:40 | Сообщение № 7

Группа: Проверенные

Ранг: Участник

Сообщений: 66

Репутация: 25 ±

Замечаний: 0% ±

Excel 2010, 2019

[vba]

Код

Private Sub Workbook_Open()
    Dim МассивСообщений(3) As String

    МассивСообщений(0) = "Первое сообщение"
    МассивСообщений(1) = "Второе сообщение"
    МассивСообщений(2) = "Третье сообщение"

    Sheets(1).[a1] = МассивСообщений(WorksheetFunction.RandBetween(0, 2))

End Sub

[/vba]

Ответить

Serge_007

Дата: Понедельник, 02.08.2021, 16:54 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Erjoma1981, так случайным образом выбранная фраза будет появляться в ячейке, а топикстартер хотел определенную из списка, если я правильно понял

ЮMoney:41001419691823 | WMR:126292472390

Ответить

rainystaff

Дата: Понедельник, 02.08.2021, 23:41 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

2019

Спасибо огромное за быструю помощь!
Еще вопрос, если это возможно и будет по теме....
как мне изменить часть текста в отдельный цвет?
Например слово "сообщение"
Спасибо