VPF::Ввод данных их формы по нескольким условиям

rinas

Дата 12.1.2018, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.1.2018

Репутация: нет
Всего: нет

Здравствуйте!
Есть таблица, в которую вносятся данные из формы. Условия - три комбобокса. По двум комбобоксам данные вносятся, а вот по третьему никак не могу сделать. Данные должны вноситься в соответствии со значением в строке (Nm) и столбцом (Pr). По строке вносятся, а вот по столбцу нет. Помогите, пожалуйста, дополнить код.

Код


Private Sub cmdAdd_Click()
Dim Pr, Nm As Range, R&, J&, c, k, s$, d$
Dim i As Integer
     
Application.ScreenUpdating = False
If Me.CmbBx1 = "" And Me.CmbBx2 = "" Then
MsgBox "Недостаточно данных. Пожалуйста, заполните все поля"
Exit Sub
End If

Set Pr = Columns(2).Find(CmbBx3, , xlValues, xlPart): J = 2
Set Nm = Rows(5).Find(CmbBx2, , xlValues, xlWhole): R = 9

If Nm Is Nothing Then
    Set Nm = Cells(7, Columns.Count).End(xlToLeft).Offset(-2, 1)
    Cells(5, 3).Resize(3, 17).Copy Nm: Nm = CmbBx2
  End If

  Do While WorksheetFunction.Sum(Cells(R, Nm.Column).Resize(1, 17)) > 0
    R = R + 1
  Loop

     For Each c In Me.Controls
    If InStr(c.Name, "ch") = 1 Then
      s = c.Name
      If c.Value Then Cells(R, Nm.Column + (Val(Right(s, 1)) - 1) * 3 + _
      IIf(Left(s, 3) = "chN", 1, IIf(Left(s, 3) = "chV", 2, 0))) = 1
    End If
  Next
 
MsgBox "Данные успешно добавлены"

End Sub

Это сообщение отредактировал(а) rinas - 12.1.2018, 10:42

Присоединённый файл ( Кол-во скачиваний: 1 )

Голосование.zip 121,62 Kb

rinas

Дата 12.1.2018, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.1.2018

Репутация: нет
Всего: нет

Первый файл со сбоем, вот другой

Присоединённый файл ( Кол-во скачиваний: 3 )

Голосование1.zip 110,99 Kb

Akina

Дата 12.1.2018, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20574
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

В этом некомментированном и плохо понятном хламе - разбираться? вот уж вряд ли...

PS. Добавь в начало каждого модуля Option Explicit и удивись...
PPS. Открой для себя OptionButton + Frame и забудь про CheckBox.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »