divemaster (Все сообщения пользователя)

отображение а поле формы значения соответствующей ячейки, как заставить форму отображать текущее значение ячейки к которой оно относится??

divemaster Пользователь Сообщений: 6 Регистрация: 24.10.2013	# 08.11.2013 11:33:28 Юрий, не судите строго... не успел. вопрос очень горящий...
	Перейти

divemaster Пользователь Сообщений: 6 Регистрация: 24.10.2013	# 08.11.2013 11:11:22 прикладываю свою таблицу... наверное, я совсем чайник ... )) не хочет работать и все..
	Перейти

divemaster

Пользователь

Сообщений: 6 Регистрация: 24.10.2013

08.11.2013 10:31:58

anvg, спасибо за совет, но честно говоря не получается.
сейчас форма активируется нажатием на Command Button3
в форме прописан скрипт:

Код

Private Sub CommandButton3_Click()
 Dim act_cell
 
 act_cell = ActiveCell.Row
 
 For i = 6 To 1000
 If (Cells(i, 1).Value = "" ;)  Then
 act_cell = i
 Exit For
 End If
 Next
 
Next
 
 Cells(ActiveCell.Row, 1).Value = tb_1.Text
 Cells(ActiveCell.Row, 2).Value = Calendar1.Value
 Cells(ActiveCell.Row, 3).Value = Calendar2.Value
 Cells(ActiveCell.Row, 4).Value = tb_2.Text
 Cells(ActiveCell.Row, 5).Value = ComboBox1.Value
 Cells(ActiveCell.Row, 6).Value = tb_9.Text
 Cells(ActiveCell.Row, 7).Value = tb_4.Text
 Cells(ActiveCell.Row, 9).Value = ComboBox5.Value
 Cells(ActiveCell.Row, 11).Value = tb_8.Text
 Cells(ActiveCell.Row, 12).Value = tb_10.Text
 Cells(ActiveCell.Row, 13).Value = ComboBox2.Value
 Cells(ActiveCell.Row, 14).Value = ComboBox4.Value
 Cells(ActiveCell.Row, 15).Value = tb_7.Text
 Cells(ActiveCell.Row, 17).Value = ComboBox6.Value
 Cells(ActiveCell.Row, 1 8) .Value = ComboBox7.Value
 ActiveCell.Cells.Offset(1).Activate

таким образом заполняются ячейки из формы.
понимаю, что глупый вопрос, но как и куда включить Вашу команду?

Перейти

divemaster

Пользователь

Сообщений: 6 Регистрация: 24.10.2013

08.11.2013 10:10:43

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

Перейти

divemaster

Пользователь

Сообщений: 6 Регистрация: 24.10.2013

08.11.2013 07:35:20

Добрый день, форумчане!
помогите решить следующую задачу.
Разработал таблицу. Для ее заполнения создал форму для заполнения.
Заблокировал лист от внесения изменений не через форму.
Предусмотрел возможность корректировки значений через эту же форму при постановки курсора в строку, котрую надо корректировать.
Столкнулся с проблемой, если не заполнить все поля формы, то незаполненные она затирает пустыми значениями.
Вижу 2 варианта решения.
Либо научить форму заполнять только те поля, которые подверглись редактированию при ее открытии
Либо заставить форму отображать в своих полях текущие значения ячеек из строки, где стоит курсор.
Но!
пока не понимаю как это сделать...
Помогите пож.!!!!

Перейти

Защита ячеек от внесения данных не через форму

divemaster

Пользователь

Сообщений: 6 Регистрация: 24.10.2013

25.10.2013 11:53:01

Уважаемые форумчане!
пож. помогите.
разрабатываю табличку.
предполагается, что все данные могут в нее вноситься только через форму + формулы в колонке результатов, которые обрабатывают данные из полей, введенных через форму.
в "Эта книга" прописал следующее:

Код

Private Sub Workbook_Open()
 UserForm1.Show
Dim x As Worksheet
For Each x In ThisWorkbook.Worksheets
x.Protect Password:="1111", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
Next x
End Sub

тем не менее при открытии защита листов не подключается.
что я сделал не так? :D

Перейти