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

Вход

Регистрация

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

 

= Мир MS Excel/Случайный выбор ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Случайный выбор ячейки (Макросы Sub)
Случайный выбор ячейки
Zonda Дата: Вторник, 05.11.2013, 17:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Приветствую!

Как макросом случайно выбрать ячейку в столбце и считать её ?
 
Ответить
СообщениеПриветствую!

Как макросом случайно выбрать ячейку в столбце и считать её ?

Автор - Zonda
Дата добавления - 05.11.2013 в 17:19
SkyPro Дата: Вторник, 05.11.2013, 17:41 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub rndCell()
Dim r&, c&
r = 20 'строки с первой по 20
c = 2 'столбцы с первого по 2
MsgBox Cells(Round(Rnd * (1 - r) + r), Round(Rnd * (1 - c) + c)).Address
End Sub
[/vba]


skypro1111@gmail.com

Сообщение отредактировал SkyPro - Вторник, 05.11.2013, 17:42
 
Ответить
Сообщение[vba]
Код
Sub rndCell()
Dim r&, c&
r = 20 'строки с первой по 20
c = 2 'столбцы с первого по 2
MsgBox Cells(Round(Rnd * (1 - r) + r), Round(Rnd * (1 - c) + c)).Address
End Sub
[/vba]

Автор - SkyPro
Дата добавления - 05.11.2013 в 17:41
Zonda Дата: Вторник, 05.11.2013, 21:37 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Спасибо! Не совсем корректно спросил я, нужно еще было содержание ячейки, собственно решил через .Value
 
Ответить
СообщениеСпасибо! Не совсем корректно спросил я, нужно еще было содержание ячейки, собственно решил через .Value

Автор - Zonda
Дата добавления - 05.11.2013 в 21:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Случайный выбор ячейки (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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