VBA常用技巧代码解析

四大皆空 · 发表于 2010-5-9 11:49

我自己也是零零碎碎地收集了一些，但难得象这样完全及容易查询的，非常感谢楼主。

lbl016 · 发表于 2010-5-9 11:53

请高手帮我加入点击“取消”时不打印的代码（现在如果有时点击错了，我点“取消”时仍然要打印）
Sub 批量打印()
On Error Resume Next
x = InputBox("请输入打印起始序号:( )
y = InputBox("请输入打印结束序号:( )
For i = x To y
Cells(10, 4) = i
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next i
End Sub

huiy0082 · 发表于 2010-5-9 22:04

赞一个，谢谢LZ！

cnppp · 发表于 2010-5-10 09:30

太全面了，多多学习！

715275696 · 发表于 2010-5-10 10:10

谢谢老师,非常感谢

☆Nick☆ · 发表于 2010-5-10 10:24

62楼的
12-3 动态的数据有效性

怎么没反应？？

☆Nick☆ · 发表于 2010-5-10 10:24

在第7页62楼

☆Nick☆ · 发表于 2010-5-10 10:40

原帖由 ☆Nick☆ 于 2010-5-10 10:24 发表
62楼的
12-3 动态的数据有效性

怎么没反应？？

没问题了
搞掂啦

☆Nick☆ · 发表于 2010-5-10 10:47

原帖由 yuanzhuping 于 2009-2-10 15:52 发表
技巧6       替换单元格内字符串
   如果需要替换单元格内指定的字符串，那么使用Range对象的Replace方法，如下面的代码所示。#001  Sub RngReplace()
#002    Range("A1:A5").Replace "通州", "南通"
#0 ...

要改成这样才行
#001  Sub RngReplace()
#002    sheet4.Range("A1:A5").Replace "通州", "南通"
#003  End Sub

就是第2行的range前面指定工作表

如果有人有其他方法，请说出来学习学习

fjy1978 · 发表于 2010-5-10 13:09

这个是我们小菜的福啊

		自动登录	找回密码
密码			免费注册