Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / проблема с динамической формулой проверки данных VBA / 8 сообщений из 8, страница 1 из 1
28.06.2016, 12:51
    #39263674
DLev
DLev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
Проблема кроется в переодическом вылете на строке formula1:= str_formula


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Get_Question_list(CAT_name, cell_name_list_create)
Dim str_formula As String
str_formula = "=OFFSET(" & CAT_name & "!$B$3;;;COUNTA(" & CAT_name & "!$B:$B))"
Range(cell_name_list_create).Select
    With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, Operator:=xlBetween, AlertStyle:=xlValidAlertStop, Formula1:= _
    str_formula
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Choose Question"
    End With
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2016, 13:51
    #39263800
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
DLevПроблема кроется в пери одическом вылете на строке formula1:= str_formula
Вообще-то это строка, где вызывается метод Add объекта Selection.Validation. И неплохо было бы в этот момент видеть значения ВСЕХ передаваемых методу параметров. А также точно знать, что в этот момент есть Selection, что за Range подвергается .Select, где он расположен... Да и типы параметров процедуры нефигово бы указать явно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2016, 14:49
    #39263880
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
DLev,

Код: vbnet
1.
str_formula = "=OFFSET(" & CAT_name & "!$B$3;;;COUNTA(" & CAT_name & "!$B:$B))"


так неверно. Для англ.локали разделитель аргументов - запятая:
Код: vbnet
1.
str_formula = "=OFFSET(" & CAT_name & "!$B$3,,,COUNTA(" & CAT_name & "!$B:$B))"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2016, 04:02
    #39264356
DLev
DLev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
The_Prist,
Спасибо добрый человек, в след раз явно надо учиться пользоваться английскими источниками, раз работаю на английском софте.
Проблема решена, всем спасибо.
Рабочий код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Get_Question_list(CAT_name, cell_name_list_create)
Dim str_formula As String
str_formula = "=OFFSET(" & CAT_name & "!$B$3,,,COUNTA(" & CAT_name & "!$B:$B))"
Range(cell_name_list_create).Select
    With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, Operator:=xlBetween, AlertStyle:=xlValidAlertStop, Formula1:= _
    str_formula
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Choose Question"
    End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2016, 06:41
    #39265134
DLev
DLev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
Если все же еще может кто разобраться, теперь он у меня опять вылетает, но стоят запятые, сменил на ; стало работает. от чего это может зависеть? от фазы луны?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2016, 07:29
    #39265141
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
DLevЕсли все же еще может кто разобраться, теперь он у меня опять вылетает, но стоят запятые, сменил на ; стало работает. от чего это может зависеть? от фазы луны?

часто зависит от системных разделителей целой/дробной части
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2016, 07:30
    #39265142
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
и ит галочки --применять ли системные разделители
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2016, 11:50
    #39265343
DLev
DLev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема с динамической формулой проверки данных VBA
может можно как то в коде указать что он не прав? я сохранил документ, утром включаю ошибка из-за запятых, в вечером из-за точки запятой. сегодня проверю опять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / проблема с динамической формулой проверки данных VBA / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 181ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2173036]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 74ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 13ms
total:  181ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]