tnjk.net
当前位置:首页 >> ExCEl VBA能一次性修改多处单元格数据吗 >>

ExCEl VBA能一次性修改多处单元格数据吗

sheet1.range("A2,B3,C2,D5,H9,F25")=25 这一句就把上面6个单元格全改成25了。条件或规则更复杂也没有问题,只要能把需求描述清楚就能实现。 举例是只说明VBA的强大,只有你想不到的强大,几乎没有做不到的。

VBA 多单元格数据的引用举例说明:引用 A1:A2, C2:C4, E5, F6 四个区域的数据,并输出到 A9:A15 。 1、先定义一个单元格变量Rng;‍ Dim Rng As Range2、用Union() 函数将多个单元格及区域联合起来,并赋值给单元格变量 Rng; Set Rng = Un...

'比如 在范围 A1:D100 '把下面代码拷贝到后台宏,按F5执行就OK public sub test() FOR EACH S IN RANGE("A1:D100") if s = "one" then range(s.address)="1" if s = "Thank you" then range(s.address)="谢谢" if s = "me" then range(s.address...

亲,是这个意思么? 打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。 Sub sc()Dim dSet d = CreateObject("Scr...

方法1:尽量使用VBA原有的属性、方法和Worksheet函数 由于Excel对象多达百多个,对象的属性、方法、事件多不胜数,对于初学者来说可能对它们不全部了解,这就产生了编程者经常编写与Excel对象的属性、方法相同功能的VBA代码段,而这些代码段的运...

数据弄成这样也真是服了你。录制的宏可不行,要用split分割,再计算

假设要判断的值在A1,则代码为: Dim oldvalPrivate Sub Worksheet_Activate() oldval = [a1]End SubPrivate Sub Worksheet_Change(ByVal Target As Range) If oldval [a1] Then oldval = [a1] '在此输入操作代码 End IfEnd Sub

先解锁,修改完了再锁定,都是这样处理的。 sheet1.unprotect 密码处理过程sheet1.protect 密码多看看别人的例子有帮助。

当然可以,我以前写的,你可以参考一下: Private Sub CommandButton1_Click() On Error Resume Next Dim iRow As Integer, myPath As String Dim wdApp As Word.Application, wdDoc As Word.Document, wdRange As Word.Range Dim 收文日期 As S...

如果其他的Excel文件都在同一个目录中, 加个模块,复制下面的代码: '****************************************************************'功能: 查找指定文件夹含子文件夹内所有文件名(含路径)'函数名: FileAllArr'参数1: Filename 需查...

网站首页 | 网站地图
All rights reserved Powered by www.tnjk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com