不能对多重选择区域执行此操作。请选择单个区域,然后再试
问:随机选中n个文本框,无法批量替换
image.png
答:ALT+F8 ,新建宏名称-->创建-->右键模块-->插入-->用户窗体
image.png image.png
image.png
将文字控件和文本框矿控件拖到右边窗体上
添加文本框change事件
Private Sub TextBox1_Change()
For Each sc In Selection
sc.Value = TextBox1.Value
Next
End Sub
修改模块代码,保存即可
Sub 批量替换()
Load UserForm1 '加载“InputForm”窗体
'加载窗体就是初始化窗体,为窗体分配内存,但不显示窗体。
UserForm1.Show 0 '显示“InputForm”4
End Sub
1605862560878.gif
网友评论