这段VBA代码怎么实现

陈酿

sundf 发表于 2011-12-1 22:11
我把你的附件改了，还是不知道你的是多少，5？
把原来的remark sheet改个名字就可以了，不知道和你的要求 ...

这里的5 是什么 意思 ret = dosheet("Interior competition", "Exterior competition", "Remark", 5)

sundf

陈酿 发表于 2011-12-11 18:40
这里的5 是什么 意思 ret = dosheet("Interior competition", "Exterior competition", "Remark", 5) ...

就是Descolumncount啦，我随便写的sample,你的附件里正好是到5吧

陈酿

sundf 发表于 2011-12-11 21:04
就是Descolumncount啦，我随便写的sample,你的附件里正好是到5吧

5 改成  Descolumncount 运行不通过，貌似是数据类型不匹配。。。。我这里是动态的，是不是加一个赋值就好了

陈酿

sundf 发表于 2011-12-11 21:04
就是Descolumncount啦，我随便写的sample,你的附件里正好是到5吧

通过把 Descolumncount给f,f定义成了Interger 运行通过了，但是结果不对

sundf

Descolumncount是什么类型呀？
上次也是随便写了个，试了下和你添附的东西可以出来同样的结果。具体哪里不对呢？

陈酿

sundf 发表于 2011-12-11 22:42
Descolumncount是什么类型呀？
上次也是随便写了个，试了下和你添附的东西可以出来同样的结果。具体哪里不 ...

计算结果不对，我dim f as interger  然后 f=Descolumncount 替换了5 ，结果两张相乘的结果不对

陈酿

sundf 发表于 2011-12-11 22:42
Descolumncount是什么类型呀？
上次也是随便写了个，试了下和你添附的东西可以出来同样的结果。具体哪里不 ...

1. Sub Remark()
   
2. 
   
3. Dim myRng As Range
   
4. Dim i As Long
   
5. Dim j As Long
   
6. Dim ret
   
7. 
   
8. 
   
9. 
   
10. 
    
11. Worksheets("Exterior competition").Copy after:=Worksheets("Exterior competition")
    
12.     ActiveSheet.Name = "Remark"
    
13.     Worksheets("Remark").Activate
    
14.     ActiveCell.CurrentRegion.Select
    
15.    
    
16.    
    
17. ret = dosheet("Interior competition", "Exterior competition", "Remark", Descolumncount)
    
18. End Sub
    
19. 
    
20. Function dosheet(Sheet1 As String, Sheet2 As String, Sheet3 As String, descount As Integer)
    
21. Dim StartRow, StartCol, EndRow, EndCol, tmpr, tmpc As Integer
    
22. Dim f As Integer
    
23. EndRow = Sheets(Sheet1).Cells.SpecialCells(xlLastCell).Row
    
24. EndCol = Sheets(Sheet1).Cells.SpecialCells(xlLastCell).Column
    
25. 
    
26. 
    
27. StartRow = 2
    
28. StartCol = 2
    
29. 
    
30. For tmpr = StartRow To EndRow
    
31.     For tmpc = StartCol To EndCol
    
32. 'descount-1????
    
33.         If tmpc < Descolumncount Then
    
34.             Sheets(Sheet3).Cells(tmpr, tmpc) = Sheets(Sheet1).Cells(tmpr, tmpc) * Sheets(Sheet2).Cells(tmpr, tmpc)
    
35. Else
    
36. '??COPY
    
37.         Sheets(Sheet3).Cells(tmpr, tmpc) = Sheets(Sheet1).Cells(tmpr, tmpc)
    
38.         End If
    
39.     Next tmpc
    
40. Next tmpr
    
41. End Function
    

复制代码

sundf

太晚了，明天看，你能把你希望的结果和现在的结果告诉我吗？

·StrawberryM

Descolumncount不就是楼主在1楼说的那个 用来标记最后乘到哪一列的一个数吗
怎么后来越说越复杂 搞不懂Descolumncount到底是个啥了……{s:1:011}

陈酿

sundf 发表于 2011-12-12 00:15
太晚了，明天看，你能把你希望的结果和现在的结果告诉我吗？

第一行的两张表的元素相乘，第二行的第一张表式现在的程序运行结果，想要的是第二张表的结果