Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Sashann
0 / 0 / 0
Регистрация: 17.08.2015
1

Заполнить ComboBox недостающими числами

02.06.2014, 01:15. Просмотров 485. Ответов 2
Метки нет (Все метки)

Имеется столбец EXCELL заполненный некоторым неизвестным колличеством чисел от 1 до 50. То есть могут быть заполнены все 50 ячеек, а могут только 1-2. В двух ячейках нет двух одинаковых чисел. Задача: Нужно внести в список вариантов ComboBox те значения чисел от 1 до 50, которых НЕТ в этой колонке.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2014, 01:15
Ответы с готовыми решениями:

Заполнить ComboBox значениями из листа
Как заполнить ComboBox значениями из листа и\или внести сам лист(его название)...

Заполнить диапазон числами рассчитанными в цикле
Здравствуйте, нужна помощь в оптимизации вот такого исходного кода . Есть...

Заполнить матрицу числами по определенному правилу
Всем доброго времени суток! Помогите, пожалуйста, с заданием! Надо сделать...

Заполнить матрицу числами по определенному правилу
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0...

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

2
Апострофф
Заблокирован
02.06.2014, 09:01 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub UserForm_Click()
Dim r As Long
'инициализация данных (можете сделать свою)
Cells.ClearContents
ComboBox1.Clear
Randomize
For r = 1 To 50
  Cells(r, 1) = r
  Cells(r, 2) = Rnd
Next r
[A:B].Sort Key1:=[B1], Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
[B:B].ClearContents
Range(Cells(50 - Int(Rnd * 50), 1), Cells(50, 1)).ClearContents
 
'собственно решение
For r = 1 To 50
  If Columns(1).Find(r) Is Nothing Then
    ComboBox1.AddItem r
  End If
Next r
 
End Sub
0
ikki
призрак
2823 / 879 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
02.06.2014, 16:07 3
или так?
Visual Basic
1
2
3
4
5
6
7
sub t()
  with [a1:a50]
    for i=1 to 50
      if not .find(what:=i, lookat:=xlwhole) is nothing then combobox1.additem i
    next
  end with
end sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2014, 16:07

Заполнить ComboBox данными из листа Excel
Как сделать, чтобы список составлялся из данных на листе ексель, при этом ...

Прямоугольную матрицу A заполнить натуральными случайными числами
Прямоугольную матрицу A, состоящую из двух столбцов и N (ввод с клавы) строк...

Заполнить столбец случайными числами, произвести фильтрацию
Итак,начнем. Скажу сразу, я не дружу с VBA, поэтому и обратилась к вам есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru