关于用VBA代码向新增的SHEET中添加事件遇到的问题

Private Sub CommandButton1_Click()

On Error Resume Next

If Sheets("aaa") Is Nothing Then

Worksheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Name = "aaa"

ActiveWindow.Zoom = 80

Else

Application.DisplayAlerts = False

Sheets("aaa").Delete

Application.DisplayAlerts = True

Worksheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Name = "aaa"

ActiveWindow.Zoom = 80

End If

With ThisWorkbook.VBProject.VBComponents.Item(Worksheets.Count + 1).CodeModule

.InsertLines 1, "Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"

.InsertLines 2, "If Target.Column = 1 And Target.row > 6 And (Mid(Target.Value, 1, 1) = ""F""仿明 Or Mid(Target.Value, 1, 1) = ""B"") Then"

.InsertLines 备备告3, "Call clickAccount(Target.Value, 滚团Target.row)"

.InsertLines 5, "End If"

.InsertLines 6, "Cancel = True"

.InsertLines 7, "End Sub"

End With

End Sub

嗯，银烂慧答案是5

首先i=1

执行第一条语句

a=1+1=2

然后跳出继续i=2,执锋答行第二条语句

a=2(上历嫌面那个a的值)+2=4

跳出继续i=3执行第一条语句

a=4+1=5

msgbox=a

也就是=5了

---