愁，睡不着，请大神帮写个代码，见附件

七月安未生

shiruiqiang 发表于 2023-2-13 20:43
----------此次回帖了结---------

我根据论坛里浪哥分享的资料，写了一个，遇到一个问题，“数据15”需要替换成百分比的，按照浪哥分享的代码编辑运行，最后输出的不是百分比。求助大神帮看一下怎么修改，代码在“小结”里

shiruiqiang

七月安未生 发表于 2023-2-15 10:10
我根据论坛里浪哥分享的资料，写了一个，遇到一个问题，“数据15”需要替换成百分比的，按照浪哥分享的代 ...

Str1 = "数据15"
         Str2 = Format(Sheets("Éó¼ÆÏîÄ¿ÎÊÌâͳ¼Æ").Cells(i, 20), "0.00%")
你试试

七月安未生

shiruiqiang 发表于 2023-2-15 10:52
Str1 = "数据15"
         Str2 = Format(Sheets("Éó¼ÆÏîÄ¿&#20 ...

可以了。大神还有一个问题，为了防止填表人在录入数据时合并单元格，我将原始数据单元格开了保护功能。之后发现表2运行代码时出现报错 arr = Sheets(1).[a1].CurrentRegion提示CurrentRegion作用于对象range时失败。这种问题可以怎么解决？工作表保护密码88888888

shiruiqiang

七月安未生 发表于 2023-2-15 16:35
可以了。大神还有一个问题，为了防止填表人在录入数据时合并单元格，我将原始数据单元格开了保护功能。之 ...

说点实际的，你不可能把这张表发下去。只是分表下发到各单位，然后汇总，粘贴到此表。

七月安未生

shiruiqiang 发表于 2023-2-15 18:57
说点实际的，你不可能把这张表发下去。只是分表下发到各单位，然后汇总，粘贴到此表。

是的。还有一个问题，原始数据里会有很多项目，涉及到有时候只需要关注某几个项目的数据。这时候就要筛选然后将需要的项目所有数据复制出来。这里是否可能做一个筛选项目然后直接导出生成新的excel表功能呀，大神。

shiruiqiang

关注某几个项目的数据,除非你把所有的项目固定死，然后做成窗体，选择几个项目的下拉菜单。否则你需要跑2遍 ，那这个时间还不如直接汇总好速度快

yz0116

shiruiqiang 发表于 2023-2-2 09:26
上班的空间，数据逻辑应该无误

提取相相应表格内容到另一个表格的代码-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1654070-1-1.html求大神帮我解决一下

七月安未生

shiruiqiang 发表于 2023-2-15 10:52
Str1 = "数据15"
         Str2 = Format(Sheets("Éó¼ÆÏîÄ¿&#20 ...

大神，我又遇到一个问题了。根据浪神的分享的代码，我在导出的时候发现，如果再次导出的时候新的word会把旧的word替换覆盖了（应该是新生成的word和旧生成的word文件名一样的原因），怎么修改不覆盖，然后让用户选择重新命名？

shiruiqiang

加上：& Format(Now(), "yyyyMMddHHmmss").试试，不包售后

七月安未生

shiruiqiang 发表于 2023-2-27 09:48
加上：& Format(Now(), "yyyyMMddHHmmss").试试，不包售后

可以了，笔芯！