有点异想天开：单元格首字前加空格、括号缩小字符

zyhui1961

有点异想天开：

ivccav

括号连同括号内文字缩小及单元首字空两个字符.rar (22.47 KB, 下载次数: 5)

2023-3-20 14:25 上传

点击文件名下载附件

zyhui1961

ivccav 发表于 2023-3-20 14:25

很好，谢谢了！
再问一下：能不能多次执行代码多次更改括号里面的字号？
比如：我现在单元格中字号为N：执行一次代码后，括号内(连同括号）字号更改为A-1。；执行第二次代码后，括号内(连同括号）字号更改为A-2 。

ivccav

zyhui1961 发表于 2023-3-22 13:57
很好，谢谢了！
再问一下：能不能多次执行代码多次更改括号里面的字号？
比如：我现在单元格中字号为N ...

可以的。可以设定为每点一次减1就行了。



括号连同括号内文字缩小及单元首字空两个字符.zip (22.73 KB, 下载次数: 4)

2023-3-22 16:17 上传

点击文件名下载附件

zyhui1961

ivccav 发表于 2023-3-22 16:17
可以的。

还有是我原来没涉及到的，就是有多层括号的问题。如：

不要象这样（只改变括号里面括号的字号）：
生子当如孙仲谋：((孙权:字仲谋)这是三国时曹操与孙权对阵，见孙权军伍整肃，非常佩服，赞叹孙权治军有方的话。)
应该象下面这样（连同最外面括号一起改变）：
生子当如孙仲谋：((孙权:字仲谋)这是三国时曹操与孙权对阵，见孙权军伍整肃，非常佩服，赞叹孙权治军有方的话。)

还有：1.按上面改代码了，首字缩进字符功能消失了！
          2.如果单元格有第两项、第三行（强制换行），第二行、第三行首字符没有缩进。

如果比较麻烦，就帮我将一个单元格里面有多行（Ait+Enter强制换行），让多行首字符同时缩进就行了。谢谢！

ivccav

你可以多模拟举例，这样才能搞好。特殊情况都说清楚来

zyhui1961

ivccav 发表于 2023-3-22 17:05
你可以多模拟举例，这样才能搞好。特殊情况都说清楚来

象附件描述一样，谢谢！

ivccav

zyhui1961 发表于 2023-3-22 17:40
象附件描述一样，谢谢！

这个问题需要考虑的东西太多了，
1.每点击一次就减小一次字号，只能在Range对象里面改，否则赋值后字体全部变成第一个字符的字体
2.符号的嵌套和配对，考虑了嵌套，但括号不配对（比如左括号数量多于右括号）未考虑
3.分段的情况，我把每段首尾的空格都清空了，段首加了2个中文空格。

第1个问题点花费的时间最多，改为只能替换一次括号并清首尾空格，才实现每次运行都减少字号



20230322.zip (30.07 KB, 下载次数: 9)

2023-3-24 21:16 上传

点击文件名下载附件

zyhui1961

ivccav 发表于 2023-3-24 21:16
这个问题需要考虑的东西太多了，
1.每点击一次就减小一次字号，只能在Range对象里面改，否则赋值 ...

感谢帮助，太完美了。谢谢！真的非常感谢！！！

zyhui1961

ivccav 发表于 2023-3-24 21:16
这个问题需要考虑的东西太多了，
1.每点击一次就减小一次字号，只能在Range对象里面改，否则赋值 ...

老师你好！
我又要求助你了：Sheet(你好)工作表，K8单元格字符为"好"触发一个代码，K8单元格为“空"触发另一个代码
谢谢！！！