請問如何將陣列資料做整理在查找檔顯示出來?

flask

如有上千個檔案它的檔名是A001.XLS....,請問我打開查尋檔案在A1欄位輸入A001按指令按鈕
就可以從A3位置顯示像這樣的格式請問VBA要如何寫?謝謝你
TEST1.rar (5.52 KB)

下載次數: 29

2011-8-12 19:37

flask

我好象發錯區了!

oobird

1. Sub yy()
   
2.     Dim n%, i%, j%, m%, arr, arr2(), b()
   
3.     ActiveSheet.UsedRange.Offset(2, 0) = ""
   
4.     Application.ScreenUpdating = False
   
5.     Workbooks.Open Filename:=ThisWorkbook.Path & "\" & [a1] & ".xls"
   
6.     With ActiveSheet
   
7.         n = .[a65536].End(xlUp).Row
   
8.         arr = .Range(.[a1], .Cells(n, 5))
   
9.         ReDim arr2(1 To 5, 1 To UBound(arr))
   
10.     End With
    
11.     ActiveWorkbook.Close True
    
12.     Set d = CreateObject("scripting.dictionary")
    
13.     For i = 1 To n
    
14.         If i = 1 Then x = "總計" Else x = arr(i, 4) - arr(i, 5)
    
15.         b = Array(arr(i, 1), arr(i, 2), arr(i, 4), arr(i, 5), x)
    
16.         If Not d.exists(arr(i, 1)) Then
    
17.             m = m + 1
    
18.             d(arr(i, 1)) = m
    
19.             For j = 1 To 5
    
20.                 arr2(j, m) = b(j - 1)
    
21.             Next
    
22.         Else
    
23.             For j = 3 To 5
    
24.                 arr2(j, d(arr(i, 1))) = arr2(j, d(arr(i, 1))) + arr(i, j)
    
25.             Next
    
26.         End If
    
27.     Next
    
28.     [a3].Resize(m, 5) = Application.Transpose(arr2)
    
29.     Application.ScreenUpdating = True
    
30. End Sub

複製代碼

下載 (16.22 KB)

2011-8-12 21:45

flask

謝謝超級版主我知道如何做了,來源檔是否太早關了!讓我有點疑惑,因為超級版主
寫的那會有問題,沒關係我會去了解的,謝謝你的指導....

oobird

喔，讓我有點疑惑,因為超級版主
寫的那會有問題,沒關係，哈哈！在下想請教，是哪裡會有問題？
說出來也好讓我學習學習。

flask

超級版主對不起啦!我在試時來源檔close時後面的資料沒顯示出來,所以就把ActiveWorkbook.Close True移到後面就ok了,讓我很疑問為什麼來源檔close
資料是存在哪做處理?所以超級版主那有可能寫錯,是我太菜啦!不見怪..

oobird

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & [a1] & ".xls"
    With ActiveSheet
        n = .[a65536].End(xlUp).Row
        arr = .Range(.[a1], .Cells(n, 5))
執行到這一句時，已把所有數據存在陣列記憶中了，之後的存取都在這個陣列中
打開的活頁簿已經用不著就可以關閉了。
你要移到後面再關也隨你了。不可能移到後面去程式才會ok的。

flask

謝謝超級版主又多學了一點...