作者：乔山办公网日期：
返回目录：excel表格制作
app.path & "1.xlsx"
疑为
app.path & "\1.xlsx"
用法有三种
1、赋值给变量就要带括号 比如 a = PicInComment (1, 250)
2、call PicInComment (1, 250)
3、PicInComment 1, 250
’没抄看那么百 多，就度说第问一个问题答
For i = 2 To 282
If Cells(i, 5) >= 0.8 Then
Rows(i).Select
Selection.Font.Color = -16776961
End If
Next i
如是有在EXCEL中调用，复可制参照下列在EXCEL中定义的函百数，如果是在VB中调用则度没必要，把宏问写在VB中不答就行了
FUNCTION BAOGO(STR AS STRING)
if str>0 and str<20 then
baogo=100
else
baogo=0
endiF
END FUNCTION