EXCELVBA实现分类加总比较计数问题计算成功笔数

1. EXCELVBA实现分类加总比较计数问题计算成功笔数

　　望采纳哦！
　　Sub 收益率()
　　Dim a As Integer, b As Integer, 成功笔数 As Integer, 失败笔数 As Integer, 买入 As Long, 卖出等 As Long, 结算金额 As Long, 交易笔数 As Integer, temp As Long, temp2 As Long
　　a = Cells(65536, 4).End(xlUp).Row
　　For b = 2 To a
　　temp = Cells(b, 4).Value
　　temp2 = Cells(b, 7).Value
　　结算金额 = 结算金额 + temp2
　　If Cells(b, 3).Text = "买入" Then
　　买入 = 买入 + temp
　　Else
　　卖出等 = 卖出等 + temp
　　End If
　　If 买入 - 卖出等 = 0 Then
　　If 结算金额 > 0 Then
　　成功笔数 = 成功笔数 + 1
　　Else
　　失败笔数 = 失败笔数 + 1
　　End If
　　买入 = 0
　　卖出等 = 0
　　结算金额 = 0
　　End If
　　Next
　　交易笔数 = 成功笔数 + 失败笔数
　　Cells(2, 11) = 成功笔数
　　Cells(3, 11) = 失败笔数
　　Cells(4, 11) = 交易笔数
　　End Sub

2. EXCEL自动计算错误怎么解决？

1、首先打开excel软件，对单列单元格进行求和计算，如图所示，两列同等值。

2、然后在函数输入栏，对同列数值进行求和计算，如图所示。

3、两列值求和值结果，如图在列下方显示，值不一致。

4、接着在工具栏【格式】选项下面，选择【单元格】选项按钮。

5、在弹出的对话框中，选择【数值】选项按钮，把该列不对的值全部点击为【数值】选项，转换为数字模式。

6、接着，在重新计算值，如图所示，该列值为正确值。

3. 求高手指点：如何在excel中自动计算股票交易中的手续费，详情看图并帮忙解决下列问题：

佣金:=MAX(E2*F2*3/1000,5)
过户费:=IF(LEFT(C2)="6",MAX(E2*F2,1),0)
印花税:=IF(B2="卖",MAX(E2*F2,1),0)
手续费:=MAX(E2*F2*3/1000,5)+=IF(LEFT(C2)="6",MAX(E2*F2,1),0)+IF(B2="卖",MAX(E2*F2,1),0)
这三个求和就是,希望能帮到你~~

4. 如何计算成功率

成功率=成功数/总数*100%
比如一共操作了8只股票，有7只成功，1只失败，那么成功率为：
7/8*100%=87.5%
成功率是87.5%，不是62.5%。

成功率，读音chéng gōng lǜ，汉语词语，指获得成功的概率、比例。
获得成功的概率、比例。
何满子 《文学呈臆编·没有人啊没有人》：“那末，他偏离这中心多少，他的成功率就削减多少。”

5. EXCEL如何用VBA自动获取每个股票近几天的涨幅

　　一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
　　涨幅就是指目前这只股票的上涨幅度。
　　涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
　　例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
　　比如:一支股票的涨幅是：10%、-5%等 。

6. excel 运行VBA效率变低了 原来excel运行VBA程序，很快就执行完毕，现在运行相同的程序，效率变得很慢

数据变多，循环退出不及时是造成VBA运行速度变慢的关键。
如果VBA得运行时间随着数据量的增大，呈几何级的上升，那么肯定是循环写的不好，没有及时的退出循环。
比如，运行100行数据需要30秒，而200行需要3分钟，那么肯定是循环导致的。
好的循环，应该会有多种情况的出现。而其中或许只有1种情况是继续循环的，其它的都是退出循环，那么无疑，比一个劲的循环，效率会提高很多。

7. excel vba》别人写的代码，但是运行出错了，求检查！

    '每个txt读取的行数限制，改成后面注释的值    rs = 60000 'Rows.Count - 2 注释里面写的有啊，你是改的不对，上面那句改成：
rs = Rows.Count - 2

8. VBA在excel里面编程的时候，出现了 “运行时错误6” ，溢出，恳请 大神们赐教

Dim n As Integer, sum As Double, f() As Double, i As Integer
 
→　as开始以及后面的全去掉会有用吗？
    Dim n , sum , f() , i