目标单元格：是公式所在的单元格，也是方程所在的单元格，如图中的B1=3*A1^3-100*A1^2+300*A1-300

目标值：即目标单元格的值，想要让单元格的值变成多少？即要让方程的结果等于多少 ，一般方程来说就是 =0

可变单元格：即变量所在，也就是我们所说的”元“，即 'X' ，这个X是可变的，在EXCEL中很直观，就是一个单元格

总体来说，这个操作，就是让EXCEL自动迭代去计算 ，不停的变化A1的值，使得B1的值无限逼近（或等于）目标值

以下为步骤：

1、如图，设置。

http:

Sub 百度搜索()

'Excel VBA 打开百度网页输入关键字并搜索
    Dim KW, Su
    With CreateObject('InternetExplorer.Application')
        .Navigate 'http://www.baidu.com/'
        .Visible = True
        Do Until .readyState = 4
            DoEvents
        Loop
        'Set KW = .document.getElementsByName('wd')
        'KW.Item(0).Value = 'QQ'
        .document.getElementsByName('wd').Item(0).Value =

VBA代码，给VBA添加工程密码

Sub AddVBProjectProtection()
   On Error Resume Next
   Set Obj = Application.VBE.ActiveVBProject    ' 检查是否勾选VBA工程访问权限
   If Err.Number <> 0 Then MsgBox ' 请勾选信任对VBA工程对象模型的访问': Exit Sub
   If Application.VBE.MainWindow.Visible Then Application.VBE.MainWindow.Visible = False
   Dim pw As Long
   pw = '123'
   Application.VBE.CommandBars(1).Controls('工具(T)').Controls('VBAProject 属性(&E)...').Execute
  
   Application.SendKeys '^{TAB}'  '切换到密码页
   Application.SendKeys '{107}'   '勾选查看工程密码
   Application.SendKeys '{TAB}'   '换到输入密码