容易造成系统崩溃的VBA，请版主帮忙调试。 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

可能我的思路上有问题，代码写的有些乱，并且因为时常出现错误，为了调试，加了On Error Resume Next,后果是容易崩溃。

我的目的是键入数字1，更换主图为MA,副图为KDJ，键入2时，更换为其它公式。能用其它的方式解决更好。

Sub SelectFormula()

On Error Resume Next

If Application.IsActivateFrame("Technic") <> 1 Then

Msgbox "不是技术分析页面，无法加载公式组"

Exit Sub

End If

txtInput = inputbox("选择公式组。1、MA KDJ;2、SAR MACD")

If txtInput = "1" Then TxtSelect = "MA KDJ"

If txtInput = "2" Then TxtSelect = "SAR MACD"

TXT=Split(TxtSelect," ")

Set Grid = Technic.GetGridByName("Main")

Set Formula = Grid.GetFormulaByIndex(1)

If Err.Number = 61704 Then

Grid.InsertFormula txt(0),3

Err.Number = 0

End If

If Err.Number = 0 Then

Grid.InsertFormula txt(0),3

Grid.DeleteFormula Formula.name

End If

Set Grid = Nothing

Set Formula = Nothing

Set Grid = Technic.GetGridByName("Window9")

'msgbox Grid.FormulaCount & Grid.Name

Set Formula = Grid.GetFormulaByIndex(0)

If Err.Number = 61704 Then

Error.Clear

Set Formula = Grid.GetFormulaByIndex(1)

application.MsgOut Err.Number

Grid.InsertFormula txt(1),3

Err.Number = 0

End If

If Err.Number = 0 Then

Grid.InsertFormula txt(1),3

'Grid.DeleteFormula Formula.name

End If

End Sub

主题：容易造成系统崩溃的VBA，请版主帮忙调试。