Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как при открытии книги выводить в указанную ячейку текст? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как при открытии книги выводить в указанную ячейку текст?
Как при открытии книги выводить в указанную ячейку текст?
rainystaff Дата: Понедельник, 02.08.2021, 13:10 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - rainystaff
Дата добавления - 02.08.2021 в 13:10
Serge_007 Дата: Понедельник, 02.08.2021, 14:58 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14486
Репутация: 2390 ±
Замечаний: ±

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


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
Sheets(1).[a1] = "доброе утро"
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 02.08.2021 в 14:58
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
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
Sheets(1).[a1] = "первое сообщение"
Sheets(1).[a1] = "второе сообщение"
Sheets(1).[a1] = "третье сообщение"
End Sub
[/vba]

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

Автор - rainystaff
Дата добавления - 02.08.2021 в 16:16
Erjoma1981 Дата: Понедельник, 02.08.2021, 16:23 | Сообщение № 4
Группа: Проверенные
Ранг: Участник
Сообщений: 53
Репутация: 20 ±
Замечаний: 0% ±

Excel 2010, 2019
rainystaff, всегда будет "третье сообщение"
 
Ответить
Сообщениеrainystaff, всегда будет "третье сообщение"

Автор - Erjoma1981
Дата добавления - 02.08.2021 в 16:23
rainystaff Дата: Понедельник, 02.08.2021, 16:24 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал Serge_007 - Понедельник, 02.08.2021, 16:55
 
Ответить
СообщениеА как сделать чтобы: Допустим, есть перечень фраз "доброе утро", "пора на работу" и т.д. и чтобы при открытии книги одна из подготовленных фраз появлялась в указанной ячейке?

Автор - rainystaff
Дата добавления - 02.08.2021 в 16:24
Serge_007 Дата: Понедельник, 02.08.2021, 16:27 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 14486
Репутация: 2390 ±
Замечаний: ±

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


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеКакая именно?

Автор - Serge_007
Дата добавления - 02.08.2021 в 16:27
Erjoma1981 Дата: Понедельник, 02.08.2021, 16:40 | Сообщение № 7
Группа: Проверенные
Ранг: Участник
Сообщений: 53
Репутация: 20 ±
Замечаний: 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]
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    Dim МассивСообщений(3) As String
    
    МассивСообщений(0) = "Первое сообщение"
    МассивСообщений(1) = "Второе сообщение"
    МассивСообщений(2) = "Третье сообщение"
    
    Sheets(1).[a1] = МассивСообщений(WorksheetFunction.RandBetween(0, 2))
    
End Sub
[/vba]

Автор - Erjoma1981
Дата добавления - 02.08.2021 в 16:40
Serge_007 Дата: Понедельник, 02.08.2021, 16:54 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 14486
Репутация: 2390 ±
Замечаний: ±

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


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеErjoma1981, так случайным образом выбранная фраза будет появляться в ячейке, а топикстартер хотел определенную из списка, если я правильно понял

Автор - Serge_007
Дата добавления - 02.08.2021 в 16:54
rainystaff Дата: Понедельник, 02.08.2021, 23:41 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - rainystaff
Дата добавления - 02.08.2021 в 23:41
Erjoma1981 Дата: Вторник, 03.08.2021, 07:57 | Сообщение № 10
Группа: Проверенные
Ранг: Участник
Сообщений: 53
Репутация: 20 ±
Замечаний: 0% ±

Excel 2010, 2019
[vba]
Код
Sheets(1).[a1].Characters(Start:=8, Length:=9).Font.Color = WorksheetFunction.RandBetween(0, 16777215)
[/vba]
 
Ответить
Сообщение[vba]
Код
Sheets(1).[a1].Characters(Start:=8, Length:=9).Font.Color = WorksheetFunction.RandBetween(0, 16777215)
[/vba]

Автор - Erjoma1981
Дата добавления - 03.08.2021 в 07:57
Pelena Дата: Вторник, 03.08.2021, 08:09 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 17889
Репутация: 3982 ±
Замечаний: ±

Excel 2016 & Mac Excel
rainystaff, не надо складывать все вопросы в одну тему. Читайте Правила форума


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеrainystaff, не надо складывать все вопросы в одну тему. Читайте Правила форума

Автор - Pelena
Дата добавления - 03.08.2021 в 08:09
rainystaff Дата: Вторник, 03.08.2021, 10:11 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

2019
Извините
не надо складывать все вопросы в одну тему. Читайте Правила форума

Извините
 
Ответить
СообщениеИзвините
не надо складывать все вопросы в одну тему. Читайте Правила форума

Извините

Автор - rainystaff
Дата добавления - 03.08.2021 в 10:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как при открытии книги выводить в указанную ячейку текст?
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!