Очистка содержимого случайных столбцов

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка содержимого случайных столбцов (Макросы/Sub)

djon2012

Дата: Суббота, 21.02.2015, 16:26 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 106

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

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

Excel 2010

Здравствуйте уважаемые форумчане !!!
Помогите, пожалуйста, в решении небольшой задачи. В примере приведённом ниже на Лист2 имеются столбцы E:FG с значениями. Суть задачи состоит в том, чтобы очистить содержимое случайным образом отобранных столбцов. Количество столбцов для случайной очистки надо задавать вручную с помощью MsgBox.
Спасибо!

К сообщению приложен файл: 9882459.xlsb (16.1 Kb)

Ответить

Leanna

Дата: Суббота, 21.02.2015, 17:33 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

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

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

excel 2010

Макрос по выбору случайных взяла отсюда
[vba]

Код

Sub djon2012()
Dim i&, R&, a(), k&, n&
lc = Cells(1, Columns.Count).End(xlToLeft).Column
num = InputBox("Введите число столбцов для случайного очищения")
If Not IsNumeric(num) Then Exit Sub
ReDim Arr(1 To num)
With New Collection
     For i = 4 To lc
         .Add i
     Next
     For i = 1 To num
         Randomize
         R = Int((.Count * Rnd) + 1)
         n = .Item(R)
         Arr(i) = n
         Columns(n).ClearContents
         .Remove (R)
     Next
End With
MsgBox "Очищены столбцы: " & Join(Arr), , num
End Sub

[/vba]