[發問] 請問如何更改程式變成可新增紀錄

samneng

請問各位大大及前輩們

以下程式試著用Excel VBA編寫後發現只能新增在同一列紀錄....請問如何變更後可以無限新增紀錄!??

此部分是用在按鈕的巨集內 (目前只知道似乎與"   Set NewRecord = myTable.Rows(1).Offset(myTable.Rows.Count)   "有關但不知如何變更

請各位大大前輩們幫忙看看... 謝謝!!

Sub 新增紀錄()

    Dim formsheet As Worksheet, myTable As Range
    Dim NewRecord As Range, i As Long
    Dim addressList()
   
    Set formsheet = Sheets("輸入資料")
     
    Set myTable = _
        ThisWorkbook.Names("工作交接事項").RefersToRange
    '將輸入用與轉寫目標位置的表格設定給變數

    addressList = _
        Array("C4", "C5", "C6", "C7", "F5", "F6", "F7", "C8", "C9", "C10")
    '將要轉寫的儲存格編號儲存在陣列內
        
    Set NewRecord = myTable.Rows(1).Offset(myTable.Rows.Count)      
    '取得紀錄的新增位置
                  
    For i = 0 To UBound(addressList)
        NewRecord.Cells(1, i + 1).Value = _
            formsheet.Range(addressList(i)).Value
            
    Next
   
End Sub

samneng

附上詳細附件待請各位大大幫忙確認是否哪邊編寫有誤導至無法新增...謝謝!!

1. Sub 新增紀錄()
   
2. 
   
3.     Dim formsheet As Worksheet, myTable As Range
   
4.     Dim NewRecord As Range, i As Long
   
5.     Dim addressList()
   
6.    
   
7.     Set formsheet = Sheets("輸入資料")
   
8.    
   
9.     'Application.Goto _
   
10.         'ThisWorkbook.Names("工作交接事項").RefersToRange
    
11.     '從名稱選取活頁簿等級的儲存格範圍
    
12.    
    
13.     Set myTable = _
    
14.         ThisWorkbook.Names("工作交接事項").RefersToRange
    
15.     '將輸入用與轉寫目標位置的表格設定給變數
    
16.    
    
17.     'Range("C4").Value = 1
    
18.    
    
19.     addressList = _
    
20.         Array("C4", "C5", "C6", "C7", "F5", "F6", "F7", "C8", "C9", "C10")
    
21.     '將要轉寫的儲存格編號儲存在陣列內
    
22.         
    
23.     Set NewRecord = Worksheets("工作交接事項").Range("B:D")
    
24.     '取得紀錄的新增位置
    
25.                   
    
26.     For i = 0 To UBound(addressList)
    
27.         NewRecord.Cells(1, i + 1).Value = _
    
28.             formsheet.Range(addressList(i)).Value
    
29.             
    
30.     Next
    
31.    
    
32. End Sub

複製代碼