返回列表 上一主題 發帖

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

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-12-11 13:27 | 只看該作者

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

請問各位大大及前輩們

以下程式試著用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

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
2#
發表於 2015-12-14 18:03 | 只看該作者

RE: 請問如何更改程式變成可新增紀錄

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

  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
複製代碼

測試版.zip (24.8 KB)

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題