作者rosemary (原po比较老)
看板Visual_Basic
标题Re: [VBA ] Excel的英文大小写变换
时间Tue Oct 25 10:53:14 2005
※ 引述《walkman (走路男人~)》之铭言：
: 请问一下,我现在有个程式:
: Dim str As string
: str="Hello"
: MsgBox str
: MsgBox len(str)
: MsgBox UCase(str)
: MsgBox LCase(str)
: 我现在只能够看出它的字串长度
: 还有让他全部变大写或全部变小写
: 有没有办法修正这个程式使它大小写互换阿??
: 像是"Hello"经过变换会变成"hELLO"
: 请高手们帮忙了....
: 谢谢
Dim str As String
str = "Hello"
Dim s As String
For i As Integer = 1 To Len(str)
Dim c As String = Mid(str, i, 1)
s = s & IIf(c >= "A" And c <= "Z", LCase(c), UCase(c))
Next i
MsgBox(s)
我是用 VB.Net 写的 应该没有差很多吧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 192.192.5.253
1F：推 fumizuki:VB6 不能在回圈内宣告变数 10/25 11:13
2F：→ fumizuki:VBA 同上，亦不能在宣告变数时给初始值。 10/25 11:14