PTT數位生活區 / Visual_Basic

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

看板Visual_Basic作者 (喲)時間13年前 (2012/02/11 09:50), 編輯推噓2(2推 0噓 8→)
留言10則, 2人參與, 最新討論串2/3 (看更多)
※ 引述《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
→
02/11 15:49, , 1F
sheet1 舉例來說 A2-AXXXX會有很多資料 B1-XXX1也會有資料
02/11 15:49, 1F
→
02/11 15:51, , 2F
那要輸出到sheet1的資料是，找出i欄和j列相對應的名稱，在
02/11 15:51, 2F
→
02/11 15:51, , 3F
(i,j)填入1，可是寫完程式後，卻還是沒有反應，也沒有出現
02/11 15:51, 3F
→
02/11 15:51, , 4F
錯誤@@
02/11 15:51, 4F
→
02/12 00:16, , 5F
你沒仔細看我寫什麼,我寫的是從一開始你findy(sheet1)求出
02/12 00:16, 5F
→
02/12 00:17, , 6F
什麼? findx(sheet1)又求出什麼? 輸出位置當作輸入位置,
02/12 00:17, 6F
→
02/12 00:18, , 7F
即使你跟我講最後sheet1是什麼資料格式,我也看不懂.
02/12 00:18, 7F
推
02/13 14:10, , 8F
對不起，可能我表達的不是很好，我在我的PO文裡新增範例，
02/13 14:10, 8F
→
02/13 14:11, , 9F
希望有比較好瞭解
02/13 14:11, 9F
推
02/13 17:10, , 10F
謝謝y大，我把問題解決了，在放陣列的時候設錯了@@
02/13 17:10, 10F
‣ 更多 yauhh 的文章
文章代碼(AID): #1FDSbUwp (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共3篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 yauhh 的文章
文章代碼(AID): #1FDSbUwp (Visual_Basic)