| |
Excel2000は使用しています。
UserFormにAccessのような入力用のフォームを作って
入力していますが、過去入力された行のデータを
このフォームで見ることは出来ますが
見ている行のデータを別のシートの
特定した行に入力したいのですがどのようにしたら良いのか
分かりません、どなたか教えていただけると幸いです。
宜しくお願いします。
Dim FirstRow As Long
Dim LastRow As Long
Dim DestRow As Long
Private Sub UserForm_Initialize()
Worksheets("データベース").Select
FirstRow = Range("A1").CurrentRegion.Row + 1
LastRow = Range("A1").CurrentRegion.Rows.Count
DestRow = LastRow + 1
LinkCell
End Sub
Private Sub CommandButton1_Click()
DestRow = FirstRow
LinkCell
End Sub
Private Sub CommandButton2_Click()
If DestRow > FirstRow Then
DestRow = DestRow - 1
LinkCell
End If
End Sub
Private Sub CommandButton3_Click()
If DestRow < LastRow Then
DestRow = DestRow + 1
LinkCell
End If
End Sub
Private Sub CommandButton4_Click()
DestRow = LastRow
LinkCell
End Sub
Private Sub CommandButton5_Click()
LastRow = LastRow + 1
DestRow = LastRow
LinkCell
End Sub
Sub LinkCell()
Dim strRang As String
strRang = "A" & DestRow
TextBox1.ControlSource = strRang
strRang = "B" & DestRow
TextBox2.ControlSource = strRang
strRang = "C" & DestRow
TextBox3.ControlSource = strRang
strRang = "D" & DestRow
TextBox4.ControlSource = strRang
Label1.Caption = DestRow - 1 & " / " & LastRow - 1
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
