left函数未定义_关于子过程或函数未定义的问题 求大神帮忙看看

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

1、FJ?是什么啊

2、find在vba里是查找，并不是像工作表函数那样。可以改成application.find或着instr(FJ,"-")

3、像文本转换为数字最好就是用val函数来转换 if val(TextBox1.Text ) > val(Left(Fj, instr(Fj,"-") - 1))……

4、楼上说了

5、过程上的变量程序运行完了，变量也完结了。

private sava as long,k as long'模块级的变量

Private Sub UserForm_Click()

'Dim i, j, k As Long'写vb不像写C那样，在这里i,j只是定义为22字节的variant

dim i as long,j as long

For i = 1 To Sheets.Count

For j = 1 To Sheet(i).UsedRange.Rows.Count

If val(TextBox1.Text ) > val(Left(Fj, instr(fj,"-")-1) And val(TextBox1.Text) < val(Right(Fj, Len(Fj) - instr(fj,"-"))) And Cells(j, "B") <> "结存" Then

'……以下无法直视只能自己研究

Worksheets(“Sheet(i)”).Activate'这里你想表达什么啊?_?

k = j

save = TextBox1.Text * 1

Else: MsgBox "未查找到您要找的数据", 64

End If

Next j

Next i

End Sub

Private Sub CommandButton1_Click()

ActiveSheet.Cells(k, 7) = save

MsgBox "成功写入", 64

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub