| |
以前この掲示板で教えていただいたのですが、下記のプログラムの変更分を教えて欲しいです。
以前はユーザーフォームでのパターンを教えていただいたのですが、
sheet1で入力されたデーターをsheet名("DATA")に記録させたいのです。
----------------------------------------
Option Explicit
Private wksList As Worksheet
Private vntPos As Variant
Private lngRow As Long
Private Sub UserForm_Initialize()
vntPos = Array("K5", "D7", "F7", "F4", "H4"・・・・・)
Set wksList = Workbooks("伝票データー.xls").Worksheets("Format")
With wksList
'伝票一覧の最終行を取得
lngRow = .Range("A65536").End(xlUp).Row
'最終行が3未満なら
If lngRow < 3 Then
lngRow = 3
'最終行が3以上なら+1
Else
lngRow = lngRow + 1
End If
End With
End Sub
Private Sub UserForm_Terminate()
Set wksList = Nothing
End Sub
Private Sub OkBtn_Click()
Dim i As Long
With Workbooks("伝票入力.xls").Worksheets("確認表")
'データ位置全てに就いて繰り返し
For i = 0 To UBound(vntPos)
'データ位置のデータを順番に転記
wksList.Cells(lngRow, i + 1).Value _
= .Range(vntPos(i)).Value
Next i
End With
'書き込み行を更新
lngRow = lngRow + 1
Workbooks("伝票データー.xls").Save
End Sub
--------------------------------------------------
変更点を教えて下さい。 このプログラムさえ解かれば完成なのですが・・・
助けてくださいm(_ _)m
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/12/12(月) 8:35 -
