Re: [VBA ] 比對資料填值的問題
※ 引述《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
02/11 15:49, 1F
→
02/11 15:51, , 2F
02/11 15:51, 2F
→
02/11 15:51, , 3F
02/11 15:51, 3F
→
02/11 15:51, , 4F
02/11 15:51, 4F
→
02/12 00:16, , 5F
02/12 00:16, 5F
→
02/12 00:17, , 6F
02/12 00:17, 6F
→
02/12 00:18, , 7F
02/12 00:18, 7F
推
02/13 14:10, , 8F
02/13 14:10, 8F
→
02/13 14:11, , 9F
02/13 14:11, 9F
推
02/13 17:10, , 10F
02/13 17:10, 10F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章