求助一个vba中range的问题

tiezi2008 2008-05-20 10:14:21

求助。

小弟写好了的程序。运行都没有问题。但今天买了个新电脑。却无法运行程序。

range("Sheet1!A1").Select 发生1004 错误。

如果把Sheet1改名就可以通过。比如range("Test!A1").Select

这是为什么啊？ office也从新装过了。问题还是一样啊。

...全文

441 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

pen_sky 2008-05-22

打赏
举报

回复

是否设置了这个Range("Sheet1!A1").AutoFilter () ,如何有请删除

pen_sky 2008-05-22

打赏
举报

回复

worksheets("Sheet1").cells(1,1).Select
试验一下这个,是不是你禁止了对SHEET1的操作了

okexcel 2008-05-21

打赏
举报

回复

把你的全部代码发上来！

tiezi2008 2008-05-20

打赏
举报

回复

谢谢楼上。

可是问题一样。另外，最好是不要改动代码，原因很多。主要是因为很多人都在用这个程序。而且不止一个这样的程序。

另外就是，程序太大。相当于一个小型的erp。

我准备从新作系统了，全从装一便试试。

zzyong00 2008-05-20

打赏
举报

回复

worksheets("Sheet1").range("A1").Select
用这种型式试试

求助，如何VBA实现筛选以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！求助，如何VBA实现筛选选择录制宏，手工进行一次筛选，停止录制，然后以录制代码为模版修改修改就可以了。Excel 求助一个用VBA实现的筛选功能一般采用倒序的方式：例如，将D列中为“否”的整行删除： Sub test() For i = Cells(...

str_connect = "ODBC;DRIVER={SQL Server};UID=sa;DATABASE=数据库名称;SERVER=机器ipWD=密码"ls_select = "SELECT * Fromtable1 "With ThisWorkbook.Worksheets("test").QueryTables.Add(Connection:= _str_connect, Destin...

展开全部举例说2113明。例如有表格5261如图：要求将A列姓名4102取出后去1653除重复值，然后输出到C列。版第一步：点击开发权工具-visual basic。选择sheet1，输入代码如下：Sub 姓名去重()Dim jgArr(1 To 100)zz = 0Sheets("sheet1").ActivateSet zd = CreateObject("scripting.dictiona...

我要用VBA通过outlook自动发送邮件，之前发的都没有问题，这次修改了Emailbody, 然后就总提示语法错误，又说缺少结束语语句，求高手帮忙发送的文本格式是这样的，<>代表是获取表中的活动单元格<>您好：您的手机号为:<>，您手机话费报销标准为:<>，本月产生费用为:<>，您*月手机话费超过标准，超额:<>，如超出费用...

费了好大的劲，问了讯飞星火、文心一言都不太行，最后求助chatGPT，找到了正确的VBA代码，贴在这里给大家学习一下，通过这次的word VBA，让我对word的了解又加深了一步。公司要求将表格数据放在word中形成报告，而在word中的表格没有计算功能，非常难用，所以我都是先用EXCEl编辑号数据，再粘贴到word中再调整表格的大小。我根据word中自带的录制宏功能，很方便的将拆分单元格的VBA写出来了，但是默认拆分后的数据1 会在拆分上下单元格的上方，而我想让数字默认在拆分单元格的下方。

2,462

社区成员

10,807

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章