Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Генератор целых чисел 
V
    Опции темы
ProKsimus
Дата 23.12.2008, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2008

Репутация: нет
Всего: нет
Доброго времени СУТОК!

Мне нужен макрос, который бы генерировал ДЕСЯТЬ целых чисел от 1 до 100!

и попутный вопросик - что дописать в макросе, что бы система безопасности Excel не отключала его? 
PM MAIL   Вверх
FINANSIST
Дата 23.12.2008, 19:35 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23
Цитата(ProKsimus @  23.12.2008,  15:23 Найти цитируемый пост)
Доброго времени СУТОК!

"Я Вас категорически приветствую!"

Цитата(ProKsimus @  23.12.2008,  15:23 Найти цитируемый пост)
попутный вопросик - что дописать в макросе, что бы система безопасности Excel не отключала его

Вопрос  начинающего потенциального вирусмейкера, батенька! smile 

Цитата(ProKsimus @  23.12.2008,  15:23 Найти цитируемый пост)
Мне нужен макрос, который бы генерировал ДЕСЯТЬ целых чисел от 1 до 100!

Код

Public Sub Generator()
Dim x As Integer: Dim y As Integer: Dim cnt  As Integer: Dim maxlimit As Integer
Dim minlimit As Integer: Dim mymass() As Integer: Dim strn As String: Dim addr As Range
Let cnt = 10: Let maxlimit = 100: Let minlimit = 1: ReDim mymass(cnt)
Randomize: strn = ""
For x = 1 To cnt Step 1
    y = Int((maxlimit - minlimit + 1) * Rnd + minlimit): Debug.Print y
    mymass(x) = y: strn = strn & Chr(10) & x & "-е число сгенерировано как: " & Chr(9) & y
Next x
If MsgBox(strn & Chr(10) & " Желаете разнести массив по ячейкам листа?", vbQuestion + vbYesNo) = vbYes Then
    Set addr = Application.InputBox("кликните по первой ячейке размещения диапозона случайных чисел и нажмите ОК", Type:=8)
    For x = 1 To cnt Step 1
        addr.Offset(x - 1, 0).Value = mymass(x)
    Next x
End If
Erase mymass()
End Sub

Как то так! smile 


Это сообщение отредактировал(а) FINANSIST - 23.12.2008, 19:41


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
ProKsimus
Дата 23.12.2008, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2008

Репутация: нет
Всего: нет
Цитата

"Я Вас категорически приветствую!"

И Вам, почтеннейший - низкий поклон!

особенно вот за это:
Цитата

Public Sub Generator()
Dim x As Integer: Dim y As Integer: Dim cnt  As Integer: Dim maxlimit As Integer
Dim minlimit As Integer: Dim mymass() As Integer: Dim strn As String: Dim addr As Range
Let cnt = 10: Let maxlimit = 100: Let minlimit = 1: ReDim mymass(cnt)
Randomize: strn = ""
For x = 1 To cnt Step 1
    y = Int((maxlimit - minlimit + 1) * Rnd + minlimit): Debug.Print y
    mymass(x) = y: strn = strn & Chr(10) & x & "-е число сгенерировано как: " & Chr(9) & y
Next x
If MsgBox(strn & Chr(10) & " Желаете разнести массив по ячейкам листа?", vbQuestion + vbYesNo) = vbYes Then
    Set addr = Application.InputBox("кликните по первой ячейке размещения диапозона случайных чисел и нажмите ОК", Type:=8)
    For x = 1 To cnt Step 1
        addr.Offset(x - 1, 0).Value = mymass(x)
    Next x
End If
Erase mymass()
End Sub


а нельзя ли уважаемый, как бе зафиксировать РАЗНОШЕНИЕ по ячейкам? к примеру в А1 и ниже в столбик? без любезных вопрошательств макроса smile а то... языками не владею (с)
PM MAIL   Вверх
FINANSIST
Дата 23.12.2008, 21:39 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23
Цитата(ProKsimus @  23.12.2008,  20:11 Найти цитируемый пост)
а нельзя ли уважаемый, как бе зафиксировать РАЗНОШЕНИЕ по ячейкам? к примеру в А1 и ниже в столбик? без любезных вопрошательств макроса  а то... языками не владею (с)

В вашим услугам(с), батенька... smile 
Код

Public Sub Generator()
Dim x As Integer: Dim y As Integer: Dim cnt  As Integer: Dim maxlimit As Integer
Dim minlimit As Integer: Dim mymass() As Integer: Dim strn As String: Dim addr As Range
Let cnt = 10: Let maxlimit = 100: Let minlimit = 1: ReDim mymass(cnt)
Randomize: strn = ""
For x = 1 To cnt Step 1
    y = Int((maxlimit - minlimit + 1) * Rnd + minlimit): Debug.Print y
    mymass(x) = y: strn = strn & Chr(10) & x & "-е число сгенерировано как: " & Chr(9) & y
Next x
     For x = 1 To cnt Step 1
       Activesheet.Range("A1").Offset(x - 1, 0).Value = mymass(x)
    Next x
Erase mymass()
End Sub



--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
ProKsimus
Дата 23.12.2008, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2008

Репутация: нет
Всего: нет
FINANSIST, благодарствую, мил человек! будь богат и счастлив!

Добавлено через 43 секунды
ТЕМА ЗАКРЫТА
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0481 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.