|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
我总感觉 i 这个循环值 在msgbox里面不能正常定义,求大神不吝赐教,本人vba小白。。。
Private Sub CommandButton2_Click()
Dim ORA As Long, ORB As String, ORC As Integer
Dim rng As Range
Dim d As Range
ORA = Sheets("行为").Range("B" & Rows.Count).End(xlUp).Row
Sheets("行为").Cells(ORA, "G").Value = Val(UserForm4.V上网.Text)
arr = Sheet1.Range("c1").CurrentRegion '被查找的姓名
For i = 1 To UBound(arr)
Set rng = Sheet1.UsedRange.Find(arr(i, 3), lookat:=xlPart)
If rng = Sheets("行为").Cells(ORA, "b").Value Then Sheet1.Cells(i, 5).Value = Sheet1.Cells(i, 5).Value - Sheets("行为").Cells(ORA, "G").Value
Next i
MsgBox Sheet1.Cells(i, 5).Value
UserForm4.Hide
End Sub
|
|