none
VBA问题 RRS feed

  • 问题

  • 打开工作薄时,总是出现下面这个提示,不知道有什么用,我想正常打开,该如何打开,

    表1

        

    第二,根据下面这个表1,我要计算E3,E4的应得值,我写了下面的VBA循环语句,但总是出错,请学长指点,谢谢.

    2

       
           
       

    Sub Updating()

    Dim x As Integer

    Dim x1

    Dim x2

    Dim y

    For x = 3 To 4

    Range("a" & x) = x

    Range("e" & x).Offset(0, -2) = x1

    Range("e" & x).Offset(0, -1) = x2

    Range("e" & x) = y

    If x <> 0 Then

    y = (x1 * 0.8 + x2 * 0.2) / x

    End If

    Next x

    End Sub

    • 已移动 Carl Cai 2014年2月13日 7:34 (移自VB论坛)更加相关且vba 跟vb.net 差别很大
    2014年2月13日 6:06

答案