小程序，关于计算目标股价的窗体错误，求大侠给予帮助。

剑气横飞008

各位大侠
你们好，谢谢你们能够浏览本贴，给予帮助。
excel工作簿中做了两个窗体，一个是求收益率的，应该没问题；之后又做了一个求目标股价的窗体。
正常情况下两个是可以验证的，但是做完之后目标股价的那个窗体出现了严重的问题，通过手工计算，和第一个窗体的结果验证时，不正确。
我是没有办法解决了，。求各位大侠给予帮助。
谢谢

费用明细01.rar (39.79 KB, 下载次数: 28)

2011-11-14 15:26 上传

点击文件名下载附件

剑气横飞008

这个程序中在编制第二个过程的时候，由于自己的不小心，将部分文字没有调整对，让各位朋友费心了。因为编写了一下午，头脑有点死板，所以没有纠正对（if函数中部分文字和上面定义中得文字有部分对不上）。自己的错误自己改。
想想，还是不能持续的，长时间的工作。
谢谢热心朋友的关注。
本人觉得这个小程序还是有点小用的，编它纯粹是为练手，做一名新兵，请大侠见谅。如果哪位朋友想借用的话可以适当调整一下使用。

剑气横飞008

其实，是因为有错误想自己把帖子删了，可又不知如何删除，最后只好自己澄清，免得各位朋友找错误时头疼。

KCFONG

I think if your use formula to express the result will easier for you to trace the problem

Private Sub CommandButton1_Click()
   
   Dim 购买总股数 As Double
   Dim 购买时股价 As Double
   Dim 收益率 As Double
   
   
   Dim 请选择股市类型 As Integer
   Dim 计算结果
   
   
   If TextBox1.Value = "" Then
      MsgBox "请在购买总股数中输入购买总股数"
      TextBox1.SetFocus
      Exit Sub
   Else
      购买总股数 = Val(TextBox1.Value)
   End If
   
   If TextBox2.Value = "" Then
      MsgBox "请在购买时股价中输入购买股价"
      TextBox2.SetFocus
      Exit Sub
   Else
      购买时股价 = Val(TextBox2.Value)
   End If
   
    If TextBox3.Value = "" Then
      MsgBox "请在收益率中输入目标收益率"
      TextBox3.SetFocus
      Exit Sub
   Else
      收益率 = Val(TextBox3.Value)
   End If
   
   
   Sheets("目标股价").Select
   Cells(3, 4) = 购买时股价
   Cells(4, 4) = 购买总股数
   Cells(13, 4) = 收益率
   
   
   
   
   If OptionButton1.Value = True Then
      Cells(15, 4) = "沪市"
   Else
      If OptionButton2.Value = True Then
         Cells(15, 4) = "深市"
      End If
      
   End If
   
   
    If OptionButton1.Value = True And 购买总股数 * 购买总估价 > 1667 Then
        计算结果 = "((" & 购买时股价 & " *  " & 购买总股数 & "* 1.003 + 1) * (1 + " & 收益率 & " ) + 1) / (" & 购买总股数 & " * 0.996)"
        '计算结果 = ((购买时股价 * 购买总股数 * 1.003 + 1) * (1 + 收益率) + 1) / (购买总股数 * 0.996)
        Else
         If OptionButton1.Value = True And 购买总股数 * 购买总估价 <= 1667 Then
           计算结果 = "((" & 收益率 & " * ( " & 购买时股价 & " *" & 购买总股数 & " + 6)) + 12) / (0.999 * " & 购买总股数 & " )"
           Else
           
              If OptionButton2.Value = True And 购买总股数 * 购买总估价 > 1667 Then
                  计算结果 = "(( " & 购买时股价 & "* 1.003) * (1 + " & 收益率 & " )) / (" & 购买总股数 & "* 0.996)"
                  Else
                  
                   If OptionButton2.Value = True And 购买总股数 * 购买总估价 <= 1667 Then
                    计算结果 = "((" & 收益率 & "* (" & 购买时股价 & "* " & 购买总股数 & "+ 5)) + 10) / (0.999 * " & 购买总股数 & ")"
                   End If
                 
              End If
          End If
         
     
    End If
         
         
         
    Cells(16, 4).Formula = "=" & 计算结果
   
End Sub