[發問] 提取指定資料後,重新排列

jackson7015

請問如何將資料庫內的依照項目，提取指定的項目後填入指定工作頁框架內
日報表-1.rar (51.04 KB)

下載次數: 14

2012-3-28 01:09

有顏色部分，是只需要輸出資料庫資料的部分
其他部分是固定部分


我有oobird 大大提供的式列，但是因為資料庫的格式有改變，所以無法正常執行
且所需填入的框架也有所變動，所以希望有大大能幫忙解決

1. Sub yy()
   
2.      Dim i%, j%, n%, c, arr, a
   
3.      c = Array(3, 4, 5, 10, 1, 11, 12)
   
4.      With Sheets("綜合資料庫")
   
5.          n = .[b65536].End(3).Row
   
6.          a = .Range(.Cells(4, 2), .Cells(n, 13))
   
7.      End With
   
8.      ReDim arr(1 To UBound(a), 1 To 7)
   
9.      For j = 1 To UBound(a)
   
10.         For i = 1 To 7
    
11.             arr(j, i) = a(j, c(i - 1))
    
12.         Next i, j
    
13.         With Sheets("項目１")
    
14.             .Cells(2, 1).Resize(j - 1, 7) = arr
    
15.             .Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
    
16.              .UsedRange.Borders.LineStyle = 1
    
17.         End With
    
18.     End Sub

複製代碼