[求助]VBA问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

<p>想请问各位高手，能否看我的程序码哪里有误吗</p><p>谢谢^^</p><p> </p><p> </p><p>同一sheet有两样资料</p><p>A数据的公司代码、数据 与B数据的公司代码、日资料相对应</p><p>日数据只要比对到月就好(ex 2001/1/21 只要与A数据中2001/01符合就可以)</p><p>当以上条件符合时，</p><p>撷取A数据符合月数据的前三期数据到指定的字段</p><p> </p><p>Sub if董监持股()</p><p>Dim i As Integer</p><p>Dim j As Integer</p><p>Dim code As Integer</p><p>Dim annouce As Date</p><p>For i = 2 To 368</p><p>    j = 3 To 20466</p><p>code = worksheets("sheet1").cells(8, i).value</p><p>annouce = worksheets("sheet1").cells(10, i).value</p><p>before1 = worksheets("sheet1").cells(3, j - 1).value</p><p>before2 = worksheets("sheet1").cells(3, j - 2).value</p><p>before3 = worksheets("sheet1").cells(3, j - 3).value</p><p> if  code= worksheets("sheet1").cells(1,j).value</p><p>     annouce = worksheets("sheet1").cells(2, i).value</p><p> then before1= worksheets("sheet1").cells(11, i).value</p><p>      before2= worksheets("sheet1").cells(12.i).value</p><p>      before2= worksheets("sheet1").cells(13.i).value</p><p>     End With</p><p>     </p><p> End If</p><p> </p><p>End Sub</p>

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：VBA worksheets worksheet Integer sheets

建议你在excel版面提问