首页 > 教學 > excel vba > Excel VBA 取奇數及偶數相加求合計
2011
11-18

Excel VBA 取奇數及偶數相加求合計

Excel VBA 取奇數及偶數相加求合計 - 第1张  | 彰化一整天blog

Private Sub CommandButton1_Click()
    Dim a As Integer, b As Integer
    a = 0
    b = 0
    t = Range("a1")
    For i = 1 To Len(t)
        s = Mid(t, i, 1)

        If i Mod 2 = 1 Then
           a = a + s
        Else
           b = b + s
        End If
    Next
    Range("b1") = a
    Range("c1") = b

End Sub
同步發表於:Excel VBA 取奇數及偶數相加求合計
最后编辑:
作者:明和 蔡
这个作者貌似有点懒,什么都没有留下。

留下一个回复

你的email不会被公开。