Создание списка с учетом «статуса» (0/1)

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

Создание списка с учетом «статуса» (0/1) (Макросы/Sub)

sergeypaevski

Дата: Среда, 10.12.2014, 23:43 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2010

В общем проблема такая. на форме есть комбобокс список которого формируется следующим кодом.
[vba]

Код

Private Sub ComboBox2_Change()

N = Worksheets("I2").Cells(2, 2).CurrentRegion.Rows.Count
If ComboBox2.Value = "I2" Then
ComboBox3.List = Worksheets("I2").Range("B2", Worksheets("I2").Cells(N, 2)).Value
ComboBox3.ListIndex = -1
End If

[/vba]

таблица для списка состояла изначально из 2-х колонок. название и шифр. препод сказал добавить третью колонку с 0\1 (типо есть в наличии или нет) и сделать так что бы там где стоит 0 в таблице - не показывалось в списке комбобокса. Есть примерный код как это должно выглядеть на примере другой таблицы [vba]

Код

Sub Pr1()

Dim N As Integer

N= Worksheets("……..").Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To N

If Worksheets("…..").Cells(i, 5).Value = 1 Then ‘Проверка статуса – если в ячейке 5-го столбца «1», значит содержимое 1-го столбца помещается в список

UserForm1.ListBox1.AddItem (Worksheets("…").Cells(i, 1).Value) ’Создание списка

End If

Next i

UserForm1.Show

End Sub

[/vba] таблица 5 колонок первая шифр, пятая нули и единицы... так вот как применить этот код к моему варианту? (мой вариант - это там где три колонки)

Сообщение отредактировал sergeypaevski - Среда, 10.12.2014, 23:44

Ответить

alex77755

Дата: Четверг, 11.12.2014, 02:40 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 362

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

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

ну вот такой примерчик завалялся
[vba]

Код

  Me.ListBox1.AddItem Me.ListBox1.ListCount + 1
   Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Лист5.Cells(R, C).Value
   Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = FIO
   Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Часов_всего

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Создание списка с учетом «статуса» (0/1) (Макросы/Sub)

Страница 1 из 1
1