"Убить" конкурента - Microsoft Office Excel - Страница 2

valerij · 18.08.2008, 16:57

Цитата:

Сообщение от vladtr

Вам же надо получать определенные числа, так можно написать как надо...и использовать функцию не только CЛЧИС() (она гернерит от 0-1), но и СЛУЧМЕЖДУ(Число1,Число2).

Вот, в аттаче.......

VictorM
А ты пробовал сам?
У меня не получилось, нет ошибки и тишина!!

VictorM · 18.08.2008, 17:33

Цитата:

VictorM
А ты пробовал сам?
У меня не получилось, нет ошибки и тишина!!

Уважаемый valerij, все что я выкладываю, я проверяю!
Предложенный Вам код "выдернут" из рабочего проекта.
p.s. чтобы не переливать "из пустого в порожнее", смотрите пример.
p.p.s. забыл сказать, в папке звуковые файлы имеют атрибут - скрытый!

Konstantin_Z · 22.08.2008, 13:42

Интересно, чем все закончилось? Есть уже результат.
Я почитал тут немного. Возможно, что не все понял, но ведь тут можно обойтись и без макросов, как мне кажется...

valerij · 22.08.2008, 17:09

Цитата:

Сообщение от Konstantin_Z

Интересно, чем все закончилось? Есть уже результат..

Не кому начинать, я не дорос, еще до такого уровня в ВБА, другие, не хотят.
У меня есть этот алгоритм, написанный языком QBASIC, может можно перетранслировать?

valerij · 25.08.2008, 22:53

Первый сдвиг.
Мерцание цифр(денег)

Код:

Private Sub Workbook_Open()
Dim x(8) As Long
x(1) = 1: x(2) = 2: x(3) = 5: x(4) = 10: x(5) = 20: x(6) = 50: x(7) = 100: x(8) = 200
1:
For y = 1 To 8
[G8] = x(y)
For z = 0 To 10000000 'Задержка
Next
Next
GoTo 1
End Sub

Выход из цикла, пока, кл. "Esc"

cyberguru · 26.08.2008, 15:08

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

22.08.2008, 13:42	#13
Konstantin_Z Пользователь Регистрация: 22.08.2008 Сообщений: 65	Интересно, чем все закончилось? Есть уже результат. Я почитал тут немного. Возможно, что не все понял, но ведь тут можно обойтись и без макросов, как мне кажется... Последний раз редактировалось Konstantin_Z; 22.08.2008 в 14:10.

25.08.2008, 22:53	#15
valerij Старожил Регистрация: 12.05.2007 Сообщений: 2,339	Первый сдвиг. Мерцание цифр(денег) Код: `Private Sub Workbook_Open() Dim x(8) As Long x(1) = 1: x(2) = 2: x(3) = 5: x(4) = 10: x(5) = 20: x(6) = 50: x(7) = 100: x(8) = 200 1: For y = 1 To 8 [G8] = x(y) For z = 0 To 10000000 'Задержка Next Next GoTo 1 End Sub` Выход из цикла, пока, кл. "Esc"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder	AleksP	C++ Builder	7	11.04.2009 13:06
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует	skobets	Общие вопросы C/C++	2	03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле)	Dorvir	Microsoft Office Excel	2	28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами"	MAcK	Компоненты Delphi	11	24.10.2007 10:49
На чем пишутся стратегии типа "Казаков" и "Эпохи империи"	Tayfun	Свободное общение	3	26.06.2007 20:27

26.08.2008, 15:08	#16
cyberguru Пользователь Регистрация: 21.08.2008 Сообщений: 27	кхе а на счет кода проигрывания муз файла спсибо ! интересненько