把由代码提取拼音首字母的小写编码改为大写字母

yiniuniu · 发表于 2016-6-15 23:37

本帖最后由 yiniuniu 于 2016-6-16 09:24 编辑

把由代码提取拼音首字母的小写编码改为大写字母

小花鹿 · 发表于 2016-6-15 23:51

函数UPPER，VBA，UCASE....................................................................................

wajour · 发表于 2016-6-16 00:26

B2 贴入 =UPPER(PYSZM(A2))

lsc900707 · 发表于 2016-6-16 06:42

这个好办，详见附件

YZC51 · 发表于 2016-6-16 08:08

1、将代码
PYSZM = LCase(PYSZM)
2、修改为
PYSZM = PYSZM
3、OK

yiniuniu · 发表于 2016-6-16 09:25

学习了，谢谢各位！

lsc900707 · 发表于 2016-6-17 17:22

YZC51 发表于 2016-6-16 08:08
1、将代码
PYSZM = LCase(PYSZM)
2、修改为

光这样改的话：1、如果是小写字母还是小写；2、必须把代码中的“a"、"b"、"c"等先变为”A"、"B"、"C"。

YZC51 · 发表于 2016-6-17 23:59

lsc900707 发表于 2016-6-17 17:22
光这样改的话：1、如果是小写字母还是小写；2、必须把代码中的“a"、"b"、"c"等先变为”A"、"B"、"C"。

如果字母也要大修的话，再修改一句即可。
1、将此句 num = Asc(Mid(LCase(strHz), i, 1))
2、修改为 num = Asc(Mid(UCase(strHz), i, 1))
3、OK

YZC51 · 发表于 2016-6-18 00:04

或者
1、将此句 PYSZM = PYSZM
2、修改为 PYSZM = UCase(PYSZM)
3、OK

lsc900707 · 发表于 2016-6-18 06:10

YZC51 发表于 2016-6-18 00:04
或者
1、将此句 PYSZM = PYSZM
2、修改为 PYSZM = UCase(PYSZM)

谢谢，楼主的要求确实如此。

		自动登录	找回密码
密码			免费注册

[已解决] 把由代码提取拼音首字母的小写编码改为大写字母