Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 11.01.2018, 12:11   #1
esterny
 
Регистрация: 26.11.2012
Сообщений: 6
Репутация: 10
По умолчанию Введение данных с формы по трем условиям

Здравствуйте,
есть код и в нем выполняются только два условия. Никак не могу найти решение, чтобы выполнялся и по третьему условию. Три комбобокса: 1 и 2 выполняются (условие по строке в заголовке), а вот по условию значения в колонке комбобокса 3 никак не получается. Данные должны вноситься в строку при условии Nm = определенное имя (строка заголовков), Pr = определенное число (колонка чисел).
Я пыталась создать переменную Pr, но она так и осталась не задействована.
Код:

Private Sub cmdAdd_Click()
Dim Pr, Nm As Range, R&, c, k, s$, d$, J&
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)
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

esterny вне форума   Ответить с цитированием
Старый 11.01.2018, 12:31   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 23,416
Репутация: 5187
По умолчанию

Вы бы лучше выложили файлик с формой и данными, чтобы можно было посмотреть, что и как.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 11.01.2018, 13:03   #3
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 8,864
Репутация: 1587

icq: 7934250
skype: i2x0,5
По умолчанию

часть из этого писал где-то я и писал совсем недавно...
это были результаты голосований)
__________________
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума   Ответить с цитированием
Старый 11.01.2018, 13:14   #4
esterny
 
Регистрация: 26.11.2012
Сообщений: 6
Репутация: 10
По умолчанию

Игорь, совершенно, верно)

Последний раз редактировалось esterny; 11.01.2018 в 14:40.
esterny вне форума   Ответить с цитированием
Старый 11.01.2018, 14:41   #5
esterny
 
Регистрация: 26.11.2012
Сообщений: 6
Репутация: 10
По умолчанию

Игорь, совершенно, верно) Это писали Вы. Я Вам написала с этой просьбой, но Вы не ответили( Помогите, пожалуйста)
esterny вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по трем условиям druman Microsoft Office Excel 7 30.10.2015 19:53
Упорядочить последовательность чисел по трем условиям suigintou Паскаль 8 30.09.2012 19:34
Выборочное копирование данных по условиям Ppaa Microsoft Office Excel 0 14.03.2012 11:40
Копирование данных по двум условиям nuwanda Microsoft Office Excel 1 17.12.2010 16:08
Поиск данных по условиям соответствия и копирование Игор41 Microsoft Office Excel 7 10.06.2010 23:23


23:20.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru