Dataform или ее альтернатива / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Dataform или ее альтернатива

3 сообщений из 3, страница 1 из 1

Dataform или ее альтернатива

#37231444

sn_88

Гость

Доброго времени суток!

Перейду к сути.
В таблице есть скрытые строки и столбцы. Как сделать так, чтобы Dataform не учитывал эти диапазоны при построении формы?
Пробовал добавить

Код: plaintext

 Selection.SpecialCells(xlCellTypeVisible).Select
    ActiveSheet.ShowDataForm

не помогает.

...

Рейтинг:

0 / 0

25.04.2011, 10:02

| Ответить | Цитировать | Написать

Dataform или ее альтернатива

#37232427

sn_88

Гость

Итак, вероятно, это невозможно - подчинить встроенный датаформ.

Сделал альтернативу, путем отображения в форме двух параллельных ячеек из первого и второго столбцов.
Но вот проблема, опять не могу перешагнуть через скрытые ячейки.

Взываю о помощи, коллеги.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

Private Sub textbox1_afterupdate()
ActiveCell = TextBox1.Text
End Sub

Private Sub textbox2_afterupdate()
ActiveCell( 1 ,  3 ) = TextBox2.Text
End Sub


Private Sub SpinButton1_SpinDown()
ActiveCell.Offset( 1 ,  0 ).Select
TextBox1.Text = ActiveCell
TextBox2.Text = ActiveCell( 1 ,  3 )


End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Offset(- 1 ,  0 ).Activate
TextBox1.Text = ActiveCell
TextBox2.Text = ActiveCell( 1 ,  3 )

End Sub

...

Рейтинг:

0 / 0

25.04.2011, 17:09

| Ответить | Цитировать | Написать

Dataform или ее альтернатива

#37233223

sn_88

Гость

Все сделал, спасибо за внимание.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell
TextBox2.Text = ActiveCell( 1 ,  3 )
End Sub

Private Sub textbox1_afterupdate()
ActiveCell = TextBox1.Text
End Sub

Private Sub textbox2_afterupdate()
ActiveCell( 1 ,  3 ) = TextBox2.Text
End Sub

Private Sub SpinButton1_SpinUp()

Do
ActiveCell.Offset( 1 ,  0 ).Select
Loop While Selection.EntireRow.Hidden = True
TextBox1.Text = ActiveCell
TextBox2.Text = ActiveCell( 1 ,  3 )

End Sub

Private Sub SpinButton1_SpinDown()
On Error Resume Next
Do
ActiveCell.Offset(- 1 ,  0 ).Select
Loop While Selection.EntireRow.Hidden = True
TextBox1.Text = ActiveCell
TextBox2.Text = ActiveCell( 1 ,  3 )

End Sub

...

Рейтинг:

0 / 0

26.04.2011, 11:08

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Dataform или ее альтернатива

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=37232427&tid=2176936]:	0ms
get settings:	7ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	157ms
get topic data:	8ms
get forum data:	2ms
get page messages:	24ms
get tp. blocked users:	1ms
others:	194ms

total:	407ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы