Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Dataform или ее альтернатива / 3 сообщений из 3, страница 1 из 1
25.04.2011, 10:02
    #37231444
sn_88
sn_88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dataform или ее альтернатива
Доброго времени суток!

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

Код: plaintext
1.
 Selection.SpecialCells(xlCellTypeVisible).Select
    ActiveSheet.ShowDataForm

не помогает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2011, 17:09
    #37232427
sn_88
sn_88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dataform или ее альтернатива
Итак, вероятно, это невозможно - подчинить встроенный датаформ.

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

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

Код: 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
| Ответить | Цитировать | Написать  
26.04.2011, 11:08
    #37233223
sn_88
sn_88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dataform или ее альтернатива
Все сделал, спасибо за внимание.


Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Dataform или ее альтернатива / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 649ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176936]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 333ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 235ms
total:  649ms
x
x
Закрыть


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