Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Private Sub SpinButton1_SpinDown()
i = ActiveCell.Row + 1
If Worksheets(1).Rows(i).Cells(1).Value <> "" Then
Worksheets(1).Rows(ActiveCell.Row + 1).Select
UserForm1.TextBox1.Text = Worksheets(1).Rows(i).Cells(1).Value
UserForm1.TextBox2.Text = Worksheets(1).Rows(i).Cells(2).Value
UserForm1.TextBox3.Text = Worksheets(1).Rows(i).Cells(3).Value
UserForm1.TextBox4.Text = Worksheets(1).Rows(i).Cells(4).Value
UserForm1.TextBox5.Text = Worksheets(1).Rows(i).Cells(5).Value
UserForm1.TextBox6.Text = Worksheets(1).Rows(i).Cells(6).Value
End If
End Sub
Перемещение на строку вверх.
'Перемещение на строку вверх.
Private Sub SpinButton1_SpinUp()
i = ActiveCell.Row - 1
If i > 2 Then
Worksheets(1).Rows(ActiveCell.Row - 1).Select
UserForm1.TextBox1.Text = Worksheets(1).Rows(i).Cells(1).Value
UserForm1.TextBox2.Text = Worksheets(1).Rows(i).Cells(2).Value
UserForm1.TextBox3.Text = Worksheets(1).Rows(i).Cells(3).Value
UserForm1.TextBox4.Text = Worksheets(1).Rows(i).Cells(4).Value
UserForm1.TextBox5.Text = Worksheets(1).Rows(i).Cells(5).Value
UserForm1.TextBox6.Text = Worksheets(1).Rows(i).Cells(6).Value
End If
End Sub
Функция поиска первой свободной строки в таблице
Public Function EndFind()
Dim i As Byte
i = 2
While Worksheets(1).Rows(i).Cells(2).Formula > ""
I = i + 1
Wend
EndFind = i
End Function
Дата публикования: 2014-11-02; Прочитано: 292 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!