![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 27.01.2008
Сообщений: 51
|
![]()
У меня проблема - хочу вбить несколько цитат в программу и чтобы при изменении формы выбиралась одна из них random и выводилать в label. Как бы сделать экономичнее, чтобы не перемудрить с кодом. Нужен совет "мудрый", так сказать.
"Программисты - это люди, которые решают методами, которые вы не понимаете проблемы, о которых даже не подозревали"
|
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
Что за программа?
Какое отношение она имеет к Microsoft Office Excel? Если программа на VBA, то всё делается просто. На листе в один столбец пишем цитаты, в любой ячейке ставим формулу, которая выбирает случайную цитату из списка. При отображении формы запускаем пересчёт листа, и берем случайную цитату из ячейки с формулой. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 27.01.2008
Сообщений: 51
|
![]()
Свою делаю для курсача. А цитаты должны быть непосредственно в коде VBA в массиве, наверное. Думаю сделать примерно так:
z=(a,b,c) a="dfdsdfsd" b="вавылда" с="ывлаыво" s=Random(z) Private Sub UserForm_Activate() Label7.Caption = s End Sub Грубо, конечно. Может есть способ хороший.
"Программисты - это люди, которые решают методами, которые вы не понимаете проблемы, о которых даже не подозревали"
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 27.01.2008
Сообщений: 51
|
![]()
Спасибо, сделал через массив:
Dim цитаты(2) As String...
"Программисты - это люди, которые решают методами, которые вы не понимаете проблемы, о которых даже не подозревали"
|
![]() |
![]() |
![]() |
#5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
Можно сделать и так:
Код:
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск в массиве | ADSoft | PHP | 1 | 07.08.2009 11:17 |
Поиск в массиве | Paul_AG | Общие вопросы C/C++ | 9 | 03.06.2009 01:29 |
2 максимума в массиве | Arcueid1691 | Общие вопросы C/C++ | 4 | 01.06.2009 02:30 |
Цикл в массиве | Шура | Помощь студентам | 2 | 27.11.2008 10:39 |
Снова о массиве | Constellation | Общие вопросы Delphi | 2 | 09.02.2008 20:42 |