Пересчитать случайное число в макросе

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

Пересчитать случайное число в макросе (Макросы/Sub)

a5l3e5x

Дата: Суббота, 10.01.2015, 18:38 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2007

ЗДРАСТВУЙТЕ. ПОЯВИЛАСЬ НЕОБХОДИМОСТЬ АВТОМАТИЗИРОВАТЬ РАСЧЕТЫ. А В VBA Я НЕ СИЛЕН. ПОДСКАЖИТЕ ПОЖАЛУЙСТА КАК ПРАВИЛЬНО НАПИСАТЬ МАКРОС ТАКОГО ТИПА:
[vba]

Код

Sub DoLoop()
Do Until ActiveCell.Offset(-1, 1)>13 or ActiveCell.Offset(-1, 4)>13 or ActiveCell.Offset(-1, 7)>13
SendKeys "{Delete}"
Loop
MsgBOX "123456"
End Sub

[/vba]

В МАСИВЕ ГДЕ ПРОИСХОДИТ ВЫЧИСЛЕНИЕ ЕСТЬ ФОРМУЛА СЛУЧМЕЖДУ ПОЕТОМУ НЕОБХОДИМО ПРИ КАЖДОМ ЦИКЛЕ РАСЧЕТОВ ЧТОБЫ СЛУЧАЙНОЕ ЧИСЛО ИЗМЕНЯЛОСЬ. КАК ЭТО СДЕЛАТЬ В МАКРОСЕ? НА КЛАВИАТУРЕ Я ЖМУ Delete. ПРОШУ НЕ

:D А ОБЬЯСНИТЬ КАК ОБЫЧНОМУ ЮЗЕРУ. СПВСИБО

К сообщению приложен файл: 123456.xlsx (25.6 Kb)

Сообщение отредактировал a5l3e5x - Суббота, 10.01.2015, 19:26

Ответить

ShAM

Дата: Суббота, 10.01.2015, 19:16 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

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

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

Excel 2010

Посмотрите сюда: http://www.excelworld.ru/forum/2-20-1
и постарайтесь найти пункт, который Вы не нарушили.

Ответить

a5l3e5x

Дата: Суббота, 10.01.2015, 19:20 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2007

ИЗВЕНИТЕ ЕСЛИ ЧТО НЕ ТАК

.ВЕДЬ Я ИЗЛОЖИЛ ВСЕ И НАПИСАЛ ЧТО-ТО ВРОДЕ ФОРМУЛЫ КОТОРАЯ НУЖНА. А ЧТО ЕЩЕ НЕ ТАК?

Ответить

Pelena

Дата: Суббота, 10.01.2015, 19:31 | Сообщение № 4

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

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

Сообщений: 19572

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

Замечаний: ±

Excel 365 & Mac Excel

a5l3e5x, давайте не будем нервничать. Для начала отключите CapsLock и внятно объясните, что Вам нужно?
Если пересчёт листа в каждом цикле, то вместо
[vba]

Код

SendKeys "{Delete}"

[/vba]
напишите
[vba]

Код

ActiveSheet.Calculate

[/vba]
Если не угадала, приложите файл с примером в соответствии с Правилами форума