Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ввод данных их формы по нескольким условиям 
:(
    Опции темы
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
PM MAIL   Вверх
rinas
Дата 12.1.2018, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



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

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  Голосование1.zip 110,99 Kb
PM MAIL   Вверх
Akina
Дата 12.1.2018, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



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

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


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

PM MAIL WWW ICQ Jabber   Вверх
Google
  Дата 24.5.2018, 13:00 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

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


 




[ Время генерации скрипта: 0.0993 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.