作者yauhh (喲)
看板Visual_Basic
標題Re: [VBA ] 比對資料填值的問題
時間Sat Feb 11 09:50:20 2012
※ 引述《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
1F：→ one164:sheet1 舉例來說 A2-AXXXX會有很多資料 B1-XXX1也會有資料 02/11 15:49
2F：→ one164:那要輸出到sheet1的資料是，找出i欄和j列相對應的名稱，在 02/11 15:51
3F：→ one164:(i,j)填入1，可是寫完程式後，卻還是沒有反應，也沒有出現 02/11 15:51
4F：→ one164:錯誤@@ 02/11 15:51
5F：→ yauhh:你沒仔細看我寫什麼,我寫的是從一開始你findy(sheet1)求出 02/12 00:16
6F：→ yauhh:什麼? findx(sheet1)又求出什麼? 輸出位置當作輸入位置, 02/12 00:17
7F：→ yauhh:即使你跟我講最後sheet1是什麼資料格式,我也看不懂. 02/12 00:18
8F：推 one164:對不起，可能我表達的不是很好，我在我的PO文裡新增範例， 02/13 14:10
9F：→ one164:希望有比較好瞭解 02/13 14:11
10F：推 one164:謝謝y大，我把問題解決了，在放陣列的時候設錯了@@ 02/13 17:10