[已解决]错误提示：类型不匹配

linbohen

大家看看，这段程序哪里错了。谢谢。

要实现的效果：

从附件《样表》sheet1的数据中筛选出非空格行的数据，生成文本sheet2中b2的格式（种类 数量 斤*价格 元=金额 元……温馨提示：必须在一个单元格内）

同学帮我写了个函数，可出现编译错误，初次接触这个，实在搞不懂。请大家帮忙看看。

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2014-6-26 21:48

linbohen 发表于 2014-6-26 21:36
这是样表

你的 那个计算区域有文本，所以出错
For mycol = 2 To 500   改改这句就可以了

跳转到最佳答案楼层

cbg2008

sheet1和sheet2是保留关键字吧，换一个变量名吧

linbohen

这是样表

我心飞翔410

linbohen 发表于 2014-6-26 21:36
这是样表

你的 那个计算区域有文本，所以出错
For mycol = 2 To 500   改改这句就可以了

ghostjiao

你这个函数问题颇多，你想要什么结果？再写一个吧，这个不怎么好...
在表一中错误的原因是cheng = Sheet1.Cells(mycol, 2).Value * Sheet1.Cells(mycol, 3).Value
你的mycol=1的时候，那是2个文本没法相乘

linbohen

For mycol = 2 To 500  改完后，返回值错误，调试倒没有出错。

linbohen

结合楼上两位老师的指点，修改了程序，目前已能正常运行，再次表示感谢。
程序如下：
--------------------------------------------------------------------------------------
Function mingxi()
'每天的出库明细
Dim Sheet1 As Worksheet, Sheet2 As Worksheet
Dim mycol As Integer
Dim cheng As Double
Set Sheet1 = ThisWorkbook.Worksheets(1)
Set Sheet2 = ThisWorkbook.Worksheets(2)
mingxi = " "
For mycol = 2 To 100
If Sheet1.Cells(mycol, 2).Value <> "" Then
cheng = Sheet1.Cells(mycol, 2).Value * Sheet1.Cells(mycol, 3).Value
mingxi = mingxi & " " & Sheet1.Cells(mycol, 1).Value & Sheet1.Cells(mycol, 2).Value & "斤*" & Sheet1.Cells(mycol, 3).Value & "元=" & CStr(cheng) & "元"
'MsgBox (mingxi)
End If
Next mycol
End Function

--------------------------------------------------------------------------------------

linbohen

若想再扩展下该怎么改呢？是不是要让函数带上参数，以此来实现任意工作表、任意行列的统计？

linbohen

若想再扩展下该怎么改呢？是不是要让函数带上参数，以此来实现任意工作表、任意行列的统计？