小编K. *_* L.的帖子

我正在寻找VBA脚本的一些帮助.我一直试图弄清楚如何使用mod函数.

这是我到目前为止所做的:

Function AddOddNumbersWithMod(nr)
    Dim i, sum
    sum = 0
    For i = (IF 1 MOD 2 = 0) to nr step 1
        sum = sum + i <-- (calculate all the odd numbers before nr)
    Next i
End Function

任何建议将不胜感激.

我被这个 VBA 代码困住了。任何帮助将不胜感激。我正在尝试将 2 个单词的第一个字母从小写更改为大写。另外，我应该如何在代码中考虑这两个词之间的空格？

我一直无法执行代码，因为我不断收到此编译错误：“参数不是可选的”。

Function Properword(Text)
Dim rText
rText = Len(rText)
If rText(Mid(1, 1)) = LCase(Str) Then
    rText = UCase(Str)
    If rText(Mid(6, 1)) = LCase(Str) Then
    rText = UCase
End If

结束函数

干杯!