录制的中文括号替换为英文括号的宏，为什么开始能用，用几次就不能用了？

zyhui1961 · 发表于 2023-3-5 16:08

本帖最后由 zyhui1961 于 2023-3-5 22:01 编辑

自己录制的在整个工作薄中中文括号替换为英文括号的宏，为什么开始能用，用几次就莫名其妙地(只能在当前活动工作表中运行，而不可以应用于整个工作薄)不能用了？

Sub 大括号替换小写括号()

Cells.Replace What:="（", Replacement:="(", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="）", Replacement:=")", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

End Sub

bqwd36 · 发表于 2023-3-5 16:50

开头sub下面加一句
for i =1 to thisworkbook.sheets.count
然后两句cells前面加一个thisworkbook.sheets(i).
最后sub上面再加一句next i

Yalishanda30 · 发表于 2023-3-5 17:04

Cells.需要修改成目标工作表啊，如果不指定默认是当前活动工作表

zyhui1961 · 发表于 2023-3-5 18:48

bqwd36 发表于 2023-3-5 16:50
开头sub下面加一句
for i =1 to thisworkbook.sheets.count
然后两句cells前面加一个thisworkbook.sheets ...

说了不怕你笑话，我是小学二年级毕业。只是有这方面一点点的爱好，好多东西都是找帮忙，真的不好意思！
还是麻烦你帮我改一下呗，谢谢了！

zyhui1961 · 发表于 2023-3-5 21:34

Yalishanda30 发表于 2023-3-5 17:04
Cells.需要修改成目标工作表啊，如果不指定默认是当前活动工作表

帮忙改一下呗，谢谢了！

taller · 发表于 2023-3-6 03:20

yuwd3 · 发表于 2023-3-6 05:02

zyhui1961 发表于 2023-3-5 18:48
说了不怕你笑话，我是小学二年级毕业。只是有这方面一点点的爱好，好多东西都是找帮忙，真的不好意思！
...

楼主61年的，好厉害

zyhui1961 · 发表于 2023-3-6 08:16

本帖最后由 zyhui1961 于 2023-3-6 08:17 编辑

yuwd3 发表于 2023-3-6 05:02
楼主61年的，好厉害

不好意思，小学二年级毕业，真的不好意思！白吃了几十年干饭！！

好了一切搞定（文档里面的颜色括号里面内容的颜色基本实现自动设置，当然都是靠热心人的帮忙），不胜感激，感谢所有伸出援手的人！！！
特别感谢：剑指E(UID: 4651178)

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

[求助] 录制的中文括号替换为英文括号的宏，为什么开始能用，用几次就不能用了？

评分