将中文“：”符号前面连续的中文汉字，变成黑色。

剑指E · 发表于 2023-3-12 15:16

本帖最后由剑指E 于 2023-3-12 15:23 编辑

zyhui1961 发表于 2023-3-12 15:03
请教一下：下面两个事件能不能同时使用？怎么才能同时使用？
Private Sub Workbook_Sheetchange(ByVal S ...

~~~~~~~~~~~~

cjc209 · 发表于 2023-3-12 15:25

正则表达式变一下或者长度加1就ok了

cjc209 · 发表于 2023-3-12 15:30

zyhui1961 发表于 2023-3-12 14:55
非常好，太感谢了！
再就是能不能把那个中文“：”也带上变成黑色？

看来你是没有正则匹配的基础知识哈

zyhui1961 · 发表于 2023-3-12 16:55

本帖最后由 zyhui1961 于 2023-3-12 17:07 编辑

cjc209 发表于 2023-3-12 15:30
看来你是没有正则匹配的基础知识哈

别人谦虚说自己不小白，我是实实在在说自己是老白！
一个工作薄有200多个工作表，我想要代码只对活动工作表中的活动单元格（这个活动单元格是不固定的，随时选中随时执行代码。）起作用。

zyhui1961 · 发表于 2023-3-12 16:57

tiger1976 发表于 2023-3-12 10:35
Sub lll()

Dim fos As Object

感谢帮忙，谢谢！

zyhui1961 · 发表于 2023-3-12 17:12

剑指E 发表于 2023-3-12 15:16
~~~~~~~~~~~~

这代码挺好，但是我复制到其他文件里不知道为什么不能用？
再就是：一个工作薄有200多个工作表，我想要代码只对活动工作表中的活动单元格（这个活动单元格是不固定的，随时选中随时执行代码。）起作用。

剑指E · 发表于 2023-3-12 17:26

zyhui1961 发表于 2023-3-12 17:12
这代码挺好，但是我复制到其他文件里不知道为什么不能用？
再就是：一个工作薄有200多个工作表，我想要 ...

那你还是上传原文件吧

zyhui1961 · 发表于 2023-3-12 18:04

本帖最后由 zyhui1961 于 2023-3-12 18:50 编辑

剑指E 发表于 2023-3-12 17:26
那你还是上传原文件吧

原来的代码就挺好，但是我将你的代码复制到下面的工作薄怎么不行？

剑指E · 发表于 2023-3-12 18:50

zyhui1961 发表于 2023-3-12 18:04
原来的代码就挺好，但是我将你的代码复制到下面的工作薄怎么不行？

二级释义格式不规范，有的用：号，有的用，号，很难做到理想。

zyhui1961 · 发表于 2023-3-12 18:59

本帖最后由 zyhui1961 于 2023-3-12 19:20 编辑

剑指E 发表于 2023-3-12 18:50
二级释义格式不规范，有的用：号，有的用，号，很难做到理想。

1、不规范我可以将数据搞规范。只是你原来给我做的有一个代码（括号内分层级），我想运行你这个代码后再运行以前的代码，我复制你现在的这个代码进去怎么不能用？是不是事件有冲突？
2、把你这个代码帮我改成选中区域后手动执行：
Sub 冒号前变黑()
......（你的代码）
End Sub

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