该楼层疑似违规已被系统折叠隐藏此楼查看此楼
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