[已解决]公式放在窗体中运行就报错，这是为什么？？

xlcywj

我想实现在计算结果出现多位小数位时 如17.3666，我只要17.36  即小数点后保留2位，即使小数点后第3位是9也不四舍五入。表格中凑合一个公式，在表格中能正常运行，但能否保证想要的结果，还请老师指正！！！还有最大的问题就是：公式放在窗体中运行就报错，这是为什么？？

最佳答案

月排行榜 / 总排行榜

today0427

2016-9-12 10:33

1. Private Sub TextBox1_Change()
   
2. A = TextBox1
   
3. t3
   
4. End Sub
   
5. 
   
6. Private Sub TextBox2_Change()
   
7. B = TextBox2
   
8. t3
   
9. End Sub
   
10. 
    
11. 
    
12. Sub t3()
    
13.     If A = "" Or B = "" Then
    
14.         Me.TextBox3 = ""
    
15.     Else
    
16.         Me.TextBox3 = Int(A + (B - A) * 0.236) + Mid(A + (B - A) * 0.236, Application.WorksheetFunction.Find(".", A + (B - A) * 0.236), 3)
    
17.    
    
18.     End If
    
19. End Sub
    
20. 
    

复制代码

跳转到最佳答案楼层

砂海

表格中 的函数 在vba中 前面加上 "application."

today0427

把这句改成

1. C = Int(A + (B - A) * 0.236) + Mid(A + (B - A) * 0.236, Application.WorksheetFunction.Find(".", A + (B - A) * 0.236), 3)

复制代码

vba中有mid函数，有int函数，和工作表中的这两个函数用法相同，但是vba中的find函数和工作表中的find用法不一样，所以简便起见，给前面加上Application.WorksheetFunction，直接调用工作表中的find函数就对了，另外你那个textbox2里的B值赋值“B = TextBox1“对不对，是不是应该是B = TextBox2
？你自己检查下

xlcywj

today0427 发表于 2016-9-12 09:44
把这句改成vba中有mid函数，有int函数，和工作表中的这两个函数用法相同，但是vba中的find函数和工作表中 ...

按老师你给的方法修改了，还是报语法错    B取值是 textBOX2 窗体中我打错了

苏子龙

直接用这个函数不行吗？
c = Application.Round(A + (B - A) * 0.236, 2)
另：B=textbox1应该改成textbox2

today0427

1. Private Sub TextBox1_Change()
   
2. A = TextBox1
   
3. t3
   
4. End Sub
   
5. 
   
6. Private Sub TextBox2_Change()
   
7. B = TextBox2
   
8. t3
   
9. End Sub
   
10. 
    
11. 
    
12. Sub t3()
    
13.     If A = "" Or B = "" Then
    
14.         Me.TextBox3 = ""
    
15.     Else
    
16.         Me.TextBox3 = Int(A + (B - A) * 0.236) + Mid(A + (B - A) * 0.236, Application.WorksheetFunction.Find(".", A + (B - A) * 0.236), 3)
    
17.    
    
18.     End If
    
19. End Sub
    
20. 
    

复制代码

小小水皮1

您好，请看下 试不是这样子。不过功能很不完善，也不知道你的具体要求的。，工作表里find函数， 在VBA里是使用Instr这个函数的功能一样。
Private Sub CommandButton1_Click()
Dim a#, b#, c#, str, k#
a = TextBox1.Value
b = TextBox2.Value
    Rng = 0.236
    k = (a + (b - a) * Rng)
    str = InStr(k, ".")
c = Int(k) + Mid(k, str, 3)
TextBox3.Value = c
End Sub