本帖最後由 jackson7015 於 2012-3-28 01:14 編輯
請問如何將資料庫內的依照項目，提取指定的項目後填入指定工作頁框架內
 日報表-1.rar (51.04 KB)
有顏色部分，是只需要輸出資料庫資料的部分
其他部分是固定部分
我有oobird 大大提供的式列，但是因為資料庫的格式有改變，所以無法正常執行
且所需填入的框架也有所變動，所以希望有大大能幫忙解決- Sub yy()
- Dim i%, j%, n%, c, arr, a
- c = Array(3, 4, 5, 10, 1, 11, 12)
- With Sheets("綜合資料庫")
- n = .[b65536].End(3).Row
- a = .Range(.Cells(4, 2), .Cells(n, 13))
- End With
- ReDim arr(1 To UBound(a), 1 To 7)
- For j = 1 To UBound(a)
- For i = 1 To 7
- arr(j, i) = a(j, c(i - 1))
- Next i, j
- With Sheets("項目１")
- .Cells(2, 1).Resize(j - 1, 7) = arr
- .Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
- .UsedRange.Borders.LineStyle = 1
- End With
- End Sub
|
發表於 2012-3-28 01:12
| 
