Re: [VBA ] 比對資料填值的問題

[yauhh (喲)]

※ 引述《one164 (阿MON)》之銘言：
: 這裡面總共有八個表
: sheet1是我新增的一個表，目的是希望在比對資料後能找到相應的儲存格填入值
sheet1 是存放輸出值,也就是說,程式一開始時,sheet1應該是空的.

:     *count_c = findx(Sheet1) '新資料表列數
:     *count_d = findy(Sheet1) '新資料表欄數
你先從空的sheet1找列數欄數...

:     a = 0
:     b = 0
:     c = 0
:     *num = 1
:     For i = 1 To count_a
:         For j = 1 To count_b
:             If data_a(i) = data_b(j) Then '如果相等則列印出來
:                 c = c + 1
:                For k = 1 To n
:                    temp = Sheet3.Cells(i, k)
:                    Sheet7.Cells(c, k) = temp
:                   *For L = 1 To count_d
最後從一對看起來不執行的迴圈 (因為 count_d, count_c應該都是 0 )
要把結果統計輸出到sheet1?

:                       *If temp = data_d(L) Then
:                          *For m = 1 To count_c
:                              *If data_a(1) = data_c(m) Then
:                                 *Sheet1.Cells(m,L).Value = num
:                              *End If
:                          *Next
:                       *End If
:                   *Next
:                    change_cell_format Sheet7.Cells(c, k), Sheet3.Cells(i, k)
:                Next
:                Exit For
:             End If
:         Next



--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.112.225.114
→ one164:sheet1 舉例來說 A2-AXXXX會有很多資料 B1-XXX1也會有資料
→ one164:那要輸出到sheet1的資料是，找出i欄和j列相對應的名稱，在
→ one164:(i,j)填入1，可是寫完程式後，卻還是沒有反應，也沒有出現
→ one164:錯誤@@
→ yauhh:你沒仔細看我寫什麼,我寫的是從一開始你findy(sheet1)求出
→ yauhh:什麼? findx(sheet1)又求出什麼? 輸出位置當作輸入位置,
→ yauhh:即使你跟我講最後sheet1是什麼資料格式,我也看不懂.
推 one164:對不起，可能我表達的不是很好，我在我的PO文裡新增範例，
→ one164:希望有比較好瞭解
推 one164:謝謝y大，我把問題解決了，在放陣列的時候設錯了@@