- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 136
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-5
               
|
4#
發表於 2013-2-22 16:54
| 只看該作者
回復 3# Jared
沒有檔案,猜猜你的需求- Sub 陣列新增資料()
- Dim a(1 To 19)
- With Sheets("空白需求單")
- a(1) = .Range("A1") '需求項目
- a(2) = .Range("B2") '子項目
- a(3) = .Range("B3") '委託單位
- a(4) = .Range("B4") '委託人
- a(5) = .Range("B5") '委託項目
- a(6) = .Range("D4") '連絡方式
- a(7) = .Range("F3") '委託日
- a(8) = .Range("F4") '目標完成日
- a(9) = .Range("F5") '實際完成日
- a(10) = .Range("B6") '案件緣由
- a(11) = .Range("B8") '製作方式
- a(12) = Join(Application.Transpose(.Range("B11:B13")), "、") '必備項目
- a(13) = .Range("B14") '回饋項目
- a(14) = Join(Application.Transpose(.Range("C16:C18")), "、") '回饋格式
- a(15) = .Range("B20") '製作順序
- a(16) = .Range("B22") '資料位置
- a(17) = .Range("B24") '後續追蹤
- a(18) = .Range("B26") '備註
- a(19) = .Range("B29") '編號
- With Sheets("線上總表")
- .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 19) = a
- End With
- .Range("A1,B2,B3,B4,B5,D4,F3,F4,F5,B6,B8,B11:B13,B14,C16:C18,B20,B22,B24,B26").ClearContents '新增完一筆後會刪除表單內的資料並將編號+1
- .Range("B29").Formula = "=Text(" & a(19) + 1 & ",""0000"")"
- End With
- End Sub
複製代碼 |
|