ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 649|回复: 10

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-3-8 14:07 | 显示全部楼层 |阅读模式
有点异想天开:
203258muhlj0fumj3c6bw2.png

括号连同括号内文字缩小及单元首字空两个字符.zip

10.12 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2023-3-20 14:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册



01021.gif

2023-03-20_142354.png

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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-22 13:57 | 显示全部楼层
本帖最后由 zyhui1961 于 2023-3-22 14:19 编辑

很好,谢谢了!
再问一下:能不能多次执行代码多次更改括号里面的字号?
比如:我现在单元格中字号为N:执行一次代码后,括号内(连同括号)字号更改为A-1。;执行第二次代码后,括号内(连同括号)字号更改为A-2 。

TA的精华主题

TA的得分主题

发表于 2023-3-22 16:17 | 显示全部楼层
本帖最后由 ivccav 于 2023-3-22 16:19 编辑
zyhui1961 发表于 2023-3-22 13:57
很好,谢谢了!
再问一下:能不能多次执行代码多次更改括号里面的字号?
比如:我现在单元格中字号为N ...



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

2023-03-22_161833.png

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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-22 16:24 | 显示全部楼层
本帖最后由 zyhui1961 于 2023-3-23 03:07 编辑

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

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

还有:1.按上面改代码了,首字缩进字符功能消失了!
          2.如果单元格有第两项、第三行(强制换行),第二行、第三行首字符没有缩进。

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

TA的精华主题

TA的得分主题

发表于 2023-3-22 17:05 | 显示全部楼层



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


评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-22 17:40 | 显示全部楼层
本帖最后由 zyhui1961 于 2023-3-22 20:17 编辑
ivccav 发表于 2023-3-22 17:05
你可以多模拟举例,这样才能搞好。特殊情况都说清楚来

象附件描述一样,谢谢!

20230322.zip

10.34 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2023-3-24 21:16 | 显示全部楼层
zyhui1961 发表于 2023-3-22 17:40
象附件描述一样,谢谢!




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

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

1024.gif

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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-25 17:07 | 显示全部楼层
ivccav 发表于 2023-3-24 21:16
这个问题需要考虑的东西太多了,
1.每点击一次就减小一次字号,只能在Range对象里面改,否则赋值 ...

感谢帮助,太完美了。谢谢!真的非常感谢!!!

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-5 11:32 | 显示全部楼层
ivccav 发表于 2023-3-24 21:16
这个问题需要考虑的东西太多了,
1.每点击一次就减小一次字号,只能在Range对象里面改,否则赋值 ...

老师你好!
我又要求助你了:Sheet(你好)工作表,K8单元格字符为"好"触发一个代码,K8单元格为“空"触发另一个代码
谢谢!!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 08:48 , Processed in 0.043306 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表