|
下記の様にプログラムを書いているのですが、現在はPosを3と指定している為
再度ファイルを開いた時に、セルの3行目から上書きされるのですが、
上書きされない方法はないでしょうか???
それと現在は下記の様に書き込む内容が増えれば増える程、プログラムも沢山
になっているのですが、他に良い方法があれば教えて下さい。
このままではCelNo100ぐらいまで永遠と書き込まないといけないかと思うと
ゾットしています。
Dim CelNo As String
Dim CelNo1 As String
Dim Pos As Integer
Private Sub userform_Initialize()
SheetNo = "伝票一覧"
Pos = 3
CelNo = "a" & Pos
CelNo1 = "b" & Pos
End Sub
Private Sub OKBtn_Click()
With Worksheets("伝票一覧")
.Range(CelNo) = Worksheets("確認表").Range("k5")
.Range(CelNo1) = Worksheets("確認表").Range("d7")
Pos = Pos + 1
CelNo = "a" & Pos
CelNo1 = "b" & Pos
End With
End Sub
よろしくお願いします。
|
|