作者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