填写一整行文本不改变原有内容

缘之圆

填写一整行文本不改变原有内容
需求介绍：
就实例而论，每次我按住快捷键时会自动填写对应数字到表格里面，但其中有一个表格本身有内容了，我按住快捷键的时候只写我的，不影响原来有内容的表格不变。求大佬支招。

缘之圆

这是源代码，供给大佬快速实验。

黑咖啡

  

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型		快捷键
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
真假	逻辑型

如果真 (参数一 ＝ F1件)
置剪辑板文本 (“新的文本1” ＋ 字符 ( #Tab键 ) ＋ “新的文本2”)
模拟按键 ( #Ctrl键, #V键, )
延迟 (50)
模拟按键 ( #右光标键, , )
模拟按键 ( #右光标键, , )
模拟按键 ( #右光标键, , )
延迟 (50)
置剪辑板文本 (“新的文本3” ＋ 字符 ( #Tab键 ) ＋ “新的文本4”)
模拟按键 ( #Ctrl键, #V键, )

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .子程序 _标签1_反馈事件, 整数型, , 快捷键<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 真假, 逻辑型<br /> <br /> .如果真 (参数一 ＝ F1件)<br /> <br />     置剪辑板文本 (“新的文本1” ＋ 字符 (#Tab键) ＋ “新的文本2”)<br />     模拟按键 (#Ctrl键, #V键, )<br />     延迟 (50)<br /> <br />     模拟按键 (#右光标键, , )<br />     模拟按键 (#右光标键, , )<br />     模拟按键 (#右光标键, , )<br />     延迟 (50)<br /> <br />     置剪辑板文本 (“新的文本3” ＋ 字符 (#Tab键) ＋ “新的文本4”)<br />     模拟按键 (#Ctrl键, #V键, )

那就分多次复制粘贴呗。


补充内容 (2025-7-14 01:06):
第几列保留不变就模拟光标右移几次

缘之圆

黑咖啡 发表于 2025-7-14 01:05
[e=1].版本 2
.支持库 eAPI
.支持库 spec

非常感谢大佬的帮忙，我需求的是，一次性直接填完，因为这只是案例，实际需求是，一气呵成，直接跳过原有文本，一次性写完，因为写的表格多，分工对我写一部分，有些部门写一部份

黑咖啡

缘之圆 发表于 2025-7-14 01:09
非常感谢大佬的帮忙，我需求的是，一次性直接填完，因为这只是案例，实际需求是，一气呵成，直接跳过原有 ...

那你怎么知道第几列要保留，第几列有内容

缘之圆

黑咖啡 发表于 2025-7-14 01:12
那你怎么知道第几列要保留，第几列有内容

不清楚呀 所以 我现在的需求就是  别人写好了的 内容，我写我的同时不能  删除或者改变别人写好的内容

花间一壶酒

填写之前先读取单元格的原内容呗   这不是你纯模拟能搞定的  得去用COM对象

补充内容 (2025-7-14 08:28):
我只能说  你写的这个源码  一点用都没有  除了监视热键  其他的东西  思路方向都不对

缘之圆

花间一壶酒 发表于 2025-7-14 08:26
填写之前先读取单元格的原内容呗   这不是你纯模拟能搞定的  得去用COM对象

补充内容 (2025-7-14 08:28):

公司的系统  源代码怎么读取，  公司系统不是Excel办公，只能模拟输入，没法后台直接写入

缘之圆

花间一壶酒 发表于 2025-7-14 08:26
填写之前先读取单元格的原内容呗   这不是你纯模拟能搞定的  得去用COM对象

补充内容 (2025-7-14 08:28):

公司系统，不是Excel办公文件，只能模拟输入，我这是为了写代码用Excel来替代而已。

影纸

填写前是要选中格子吧，直接ctrl+c可以复制吗？如果可以的话，在按f1时，给个ctrl+c模拟按键，再把剪辑版内容和你要写的内容拼接一下不就行了吗

补充内容 (2025-7-14 11:03):
你这写法就像按键精灵一样，在模拟键鼠操作