返回列表 上一主題 發帖

函數驗證並整合資料

函數驗證並整合資料

本帖最後由 Jared 於 2013-7-23 12:17 編輯

想請問大大
我寫了一個簡單的函數驗證判斷
目前有A、B兩個Excel
利用另外一個Excel上的函數去判別兩個不同檔案欄位的資料
並且整合起來
  1. =IF('D:\工作總表測試2\[A.xls]Sheet1'!A2="","",IF('D:\工作總表測試2\[B.xls]Sheet1'!A2="","",IF('D:\工作總表測試2\[A.xls]Sheet1'!A2<>"",'D:\工作總表測試2\[A.xls]Sheet1'!A2,IF('D:\工作總表測試2\[B.xls]Sheet1'!A2<>"",'D:\工作總表測試2\[B.xls]Sheet1'!A2,IF('D:\工作總表測試2\[A.xls]Sheet1'!A2='D:\工作總表測試2\[B.xls]Sheet1'!A2,'D:\工作總表測試2\[A.xls]Sheet1'!A2,IF('D:\工作總表測試2\[A.xls]Sheet1'!A2<>'D:\工作總表測試2\[B.xls]Sheet1'!A2,"資料有誤","檢查一下該筆欄位資料!!"))))))
複製代碼
但是這樣的寫法
程式只會判斷其中一個檔案
並不會兩個檔案進行檢查

還是有其他更好的方式去進行資料驗證&整合呢?
感激不盡!! >//<
工作總表測試2.zip (23.61 KB)
Jared

回復 13# GBKEE


感謝大大的協助
陣列索引的使用方式還需要研究研究
先試著修改看看

再次謝謝大大^^
Jared

TOP

本帖最後由 GBKEE 於 2013-8-2 16:55 編輯

回復 12# Jared
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
  4.     '要合併 三個檔案.  -> Ar(1 To 3)
  5.     Application.ScreenUpdating = False
  6.     Application.DisplayAlerts = False
  7.     A = Array("D:\工作總表\小明.xls", "D:\工作總表\小華.xls", "D:\工作總表\小美.xls")   '路徑及檔名請依需求修改
  8.     Rng = "A1:E10"                    '定所有檔案在相同的範圍
  9.     For i = 0 To UBound(A)
  10.         With Workbooks.Open(A(i)).Sheets(1)                    'With 陳述式 在一個單一物件或一個使用者自訂型態上執行一系列的陳述式。
  11.             Ar(i + 1) = .Range(Rng).Value                         '二維陣列:第一維 = 工作表的列,第二維 = 工作表的欗,
  12.             .Parent.Close
  13.         End With
  14.     Next
  15.     ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))   '陣列 重新配置 維數及維數元素之上下限索引值-> "A1:E10" 的大小
  16.     For X = 1 To UBound(Ar)
  17.         For i = 1 To UBound(Ar(1), 2)                       '欄
  18.             For ii = 1 To UBound(Ar(1), 1)                  '列
  19.                 If ii = 1 Or i = 1 Then
  20.                     A(ii, i) = Ar(X)(ii, i)                 '第1列 或 第1欗
  21.                 Else
  22.                     If Ar(X)(ii, i) <> "" Then A(ii, i) = A(ii, i) + 1  '有資料 + 1
  23.                 End If
  24.             Next
  25.         Next
  26.     Next
  27.     Workbooks("旅遊地點統計.xls").Sheets(1).Range(Rng) = A
  28.     Application.ScreenUpdating = True '結束後更新螢幕
  29.     Application.DisplayAlerts = True
  30. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 4# GBKEE

請問大大,現在有一個表單
需要統計三個人安排旅遊的時間和地點
有套用你的VBA程式
但是有地方不曉得該怎麼修改

程式執行的流程如下:
旅遊地點先驗證是否有誤,怕有人修改到 
分別有四個時間點要統計
最後在意見彙整的部分顯示統計合時何地最高票

麻煩大大了,目前為了怎麼修改傷透腦筋>\\<
工作總表.zip (31.61 KB)
Jared

TOP

本帖最後由 Jared 於 2013-8-1 17:08 編輯

回復 8# GBKEE

想請問一下大大有關您協助程式碼的問題
以下的程式是用什麼原理去寫的呢?
有點不太清楚
如果範圍不是A1:C10
而是A1:D10 或是其他範圍
要修改哪個地方呢?
希望大大能幫我解答,感激不盡><

    ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))
    For X = 1 To UBound(Ar(1), 2)
        For i = 1 To UBound(Ar(1), 2)
            For ii = 1 To UBound(Ar(1), 1)
                If ii = 1 Then
                    A(ii, i) = Ar(X)(ii, i)
                Else
                    A(ii, i) = IIf(A(ii, i) <> "" And Ar(X)(ii, i) <> "", "資料有誤", A(ii, i) & Ar(X)(ii, i))
                End If
            Next
        Next
    Next
    Workbooks("總表彙整.xls").Sheets(1).Range(Rng) = A
End Sub
Jared

TOP

回復 8# GBKEE

謝謝GBKEE
程式部分我測試過
甚至驗證機制都有了,真的蠻方便的 :)

但是VBA的方式需要將更新的檔案都打開才能進行讀取的動作
如果檔名都必須在一樣的情況下
就沒辦法這樣做了

我這裡的檔案資料量比較大
是利用同樣檔名不同資料夾
程式是採用函數的方式
但是每次資料更新都需要再重新連結一次位置
使用上就不是那麼方便

我再試看看有沒有其他的辦法好了
再次感謝GBKEE 的協助   :)
Jared

TOP

本帖最後由 GBKEE 於 2013-7-25 10:59 編輯

回復 8# GBKEE


感謝大大!!
我馬上試看看(^^)
Jared

TOP

回復 7# Jared
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
  4.     Rng = "A1:C10"                                          '制定所有檔案在相同的範圍
  5.     Ar(1) = Workbooks("A.XLS").Sheets(1).Range(Rng).Value   '檔案是開啟的
  6.     Ar(2) = Workbooks("B.XLS").Sheets(1).Range(Rng).Value
  7.     Ar(3) = Workbooks("C.XLS").Sheets(1).Range(Rng).Value
  8.     ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))
  9.     For X = 1 To UBound(Ar(1), 2)
  10.         For i = 1 To UBound(Ar(1), 2)
  11.             For ii = 1 To UBound(Ar(1), 1)
  12.                 If ii = 1 Then
  13.                     A(ii, i) = Ar(X)(ii, i)
  14.                 Else
  15.                     A(ii, i) = IIf(A(ii, i) <> "" And Ar(X)(ii, i) <> "", "資料有誤", A(ii, i) & Ar(X)(ii, i))
  16.                 End If
  17.             Next
  18.         Next
  19.     Next
  20.     Workbooks("總表彙整.xls").Sheets(1).Range(Rng) = A
  21. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 6# stillfish00


謝謝大大幫我整理想法
是我表達得不夠簡單,抱歉!

後來我把想法再精簡化
讓程式判斷少一些

大大幫我整理後的想法
我檔案稍微做了一點修改
檔案整合分A(窗口_資料A)、B(處理人員甲)、C(處理人員乙)
處理人員甲&乙接收到資料A
會依照資料A

三檔案儲存格值         >>         整合後的值
---------------------------------------------
相同                               >>         任一值
B檔漏填(空白)            >>         取C檔值
C檔漏填(空白)            >>         取B檔值
不相同                          >>         顯示 "資料有誤"
===========================

當初會做判別程式
主要是因為如果甲人員填錯資料A的對應欄位(資料B、C)
但是函數如果是判別資料有誤
空白它也會判斷資料有出入
所以程式跑起來怪怪的
檔案修改如附檔
工作總表測試2.zip (23.52 KB)
如果要變成VBA寫法,要怎麼修改?謝謝!!
Jared

TOP

本帖最後由 stillfish00 於 2013-7-23 15:31 編輯

回復 5# Jared
這樣說會清楚點,是這樣吧?

兩檔案儲存格值         >>         整合後的值
---------------------------------------------
相同                               >>         任一值
A檔漏填(空白)            >>         取B檔值
B檔漏填(空白)            >>         取A檔值
不相同                          >>         顯示 "資料有誤"


再來就是...檔案確定只有兩個嗎?

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題