'Sheet1中先在第3列加入一个空列,格式参照右侧,参照左侧用xlFormatFromLeftOrAbove
Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow
'将Sheet2中的第3列复制到Sheet1中第3列
Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(3)
'如果要进行行的复制,将Columns变为Rows
'如果要多列复制,可以参考下面的代码
Sheet1.Columns("C:D").Insert , CopyOrigin:=xlFormatFromRightOrBelow
Sheet2.Columns("C:D").Copy Destination:=Sheet1.Columns("C:D")
'Sheet1中先在第3列加入一个空列,格式参照右侧,参照左侧用xlFormatFromLeftOrAboveSheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow'将Sheet2中的第3列复制到Sheet1中第3列Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(...
以前用
Excel
2003做了些宏,在网上还有不少粉丝,因一些功能在
Excel
2010中无法使用,故重新整理,欢迎指正;
本
Excel
中的宏在
Excel
2010中测试表现出色;
运
行
宏前,要保证
EXCEL
没有禁用宏。
Michael Ho QQ: 9900060
-----------------------
本
Excel
有以下功能:
插入图片1
1.点击执
行
后,会出现文件夹选择窗,请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件);
2.宏会自动
复制
Sheet
2到新工作簿,并插入你所选文件夹中的全部JPG图片到B
列
,对应的图片名自动填到C
列
;
3.图片的大小会自动适应
Sheet
2的B3单元格,因此可以在点击执
行
前调整
Sheet
2的B3单元格的大小来控制插入图片的大小。
--------
插入图片2
1.点击执
行
后,会出现文件夹选择窗,请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件);
2.宏会自动
复制
Sheet
3到新工作簿,并插入你所选文件夹中的全部JPG图片制作图册,对应的图片名自动填到图片下方;
--------
插入图片3
如果用户自己的
Excel
文件中有一
列
是型号,该宏可以插入指定文件夹里以型号命名的JPG图片到另一
列
;
1.打开本
Excel
文件,不要关闭;
2.再另外打开你自己需要操作的另一个
Excel
文件,并保持你要操作的工作表做为当前活动工作表;
3.在你的文件中按Ctrl+I (或在你的文件中手动执
行
宏,然后选择本
EXCEL
文件中的宏InsertPic3);
4.然后会出现文件夹选择窗,请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件);
5.在弹出的对话框中指定型号在第几
列
,图片要插入到第几
列
,以及从哪一
行
开始;
6.图片的大小会自动适应你设定的第一
行
要插入图片的单元格,因此提前调整那个单元格的大小可以控制插入图片的大小。
-------------
删除活动工作表中所有图片 Ctrl+d
删除活动工作表里所有的JPG图片,(不一定是本工作簿中的工作表);
1.打开本
Excel
文件,不要关闭;
2.再另外打开你自己需要操作的另一个
Excel
文件,并保持你要操作的工作表做为当前活动工作表;
3.在你的文件中按Ctrl+d (或在你的文件中手动执
行
宏,然后选择本
EXCEL
文件中的宏DelPic);
-------------
导出活动工作表中被选中的一张JPG图片 Ctrl+e
导出活动工作表中被选中的一张JPG图片,(不一定是本工作簿中的工作表);
1.打开本
Excel
文件,不要关闭;
2.再另外打开你自己需要操作的另一个
Excel
文件,并保持你要操作的工作表做为当前活动工作表;
3.请选中一张要导出的图片;
4.在你的文件中按Ctrl+e (或在你的文件中手动执
行
宏,然后选择本
EXCEL
文件中的宏OutputOnePic);
5.在弹出的对话框中指定图片要保存的名字;
1.不管图片在
Excel
中是否被缩放过,导出的图片是按图片的原始尺寸进
行
保存。
2.在桌面上会自动新建一个"OutputPic"的文件夹,导出的图片将会存在那个文夹里;
3.如果文件夹中已有相同名字的文件,则后面导出的文件会自动加上(v1), (v2), (v3)...
-------------
导出活动工作表中所有JPG图片 Ctrl+f
导出活动工作表中所有JPG图片,并且图片名自动使用指定
列
中的图片名;
1.打开本
Excel
文件,不要关闭;
2.再另外打开你自己需要操作的另一个
Excel
文件,并保持你要操作的工作表做为当前活动工作表;
3.在你的文件中按Ctrl+f (或在你的文件中手动执
行
宏,然后选择本
EXCEL
文件中的宏OutputAllPic);
4.在弹出的对话框中指定图片所在
列
,图片名所在的
列
;
1.不管图片在
Excel
中是否被缩放过,导出的图片是按图片的原始尺寸进
行
保存;
2.在桌面上会自动新建一个"OutputPic"的文件夹,所有导出的图片将会存在那个文夹里;
3.如果文件夹中已有相同名字的文件,则后面导出的文件会自动加上(v1), (v2), (v3)...
----------------
对指定文件夹中的JPG图片进
行
重命名 Ctrl+r
利用活动工作表中的所有图片的旧名与新名的对照,对指定文件夹中JPG图片进
行
重命名;
1.打开本
Excel
文件,不要关闭;
2.再另外打开你自己需要操作的另一个
Excel
文件,并保持你要操作的工作表做为当前活动工作表;
3.在你的文件中按Ctrl+r (或在你的文件中手动执
行
宏,然后选择本
EXCEL
文件中的宏RenamePic);
4.在弹出的对话框中指定图片旧名所在
列
和图片新名所在的
列
;
1.可以结合插入图片的宏,将所有图片的旧名输入到
Excel
中,再在另一
列
中填上新图片名,然后使用该宏。
2.如果顺利运
行
,会在原来那个文件夹下面新建一个叫“New”的子文件夹,所有重命好名的图片会自动放入子文件夹里;
3.如果文件夹中已有相同名字的文件,则后面的文件会覆盖原来的文件。
使用方法:
1、将需要拆分的
EXCEL
文件放在一个单独的文件夹,打开这个
EXCEL
文件,并关闭其他打开的
EXCEL
文件;
2、
excel
表格保留一
行
标题
行
,并把第一
列
数据填写为拆分项(文件拆分时将按第一
列
的内容进
行
归类合并为一个文件),整个表格不要合并单元格;
3、在打开的
EXCEL
工作表名称上点右键选择查看代码;
4、选择菜单栏:插入-模块,将以下代码
复制
到右边的代码框中,点击菜单:运
行
-运
行
子过程/用户窗体,直到弹出处理完毕对话框;
5、在文件夹中将生成拆分好的文件,可关闭这个
EXCEL
文件,选择不保存。
%2、打开此工作薄。
%3、%在
EXCEl
界面按Alt+F11打开
VBA
编辑器,插入新的模块(插入/模块),
% 或者在任意一个
sheet
名称上点右键,选择“查看代码”即能够进入
VBA
编辑器
%4、
复制
下面的内容到里面(不用保存),按F5运
行
即可。
Do While r <=
Sheet
2.Rows.Count
'Range("K1").EntireColumn.Cells(i, 1).Value = Range("F2").EntireColumn.Cells(r, 1).Value
Range("L1").EntireColumn.Cells(i, 1).V
'换
行
符为:空格+_
Work
sheet
s(Array("C:\Users\gui\Desktop\工作\
VBA
学习\数据\
复制
粘贴测试\test.xlsx",x_
"C:\...
好的,下面是一个基本的
VBA
代码示例,用于实现在 ComboBox 中选择选项后,自动跳转到指定的工作表。在这个示例中,我们假设 ComboBox 中的选项与工作表的名称一致。
首先,在
Excel
中插入一个 ComboBox 控件。您可以在“开发工具”选项卡的“插入”部分找到该控件。然后,将以下代码
复制
到工作表的代码模块中:
```
VBA
Private Sub ComboBox1_Change()
Dim Selected
Sheet
Name As String
Selected
Sheet
Name = ComboBox1.Value
' 判断所选工作表是否存在
If
Sheet
Exists(Selected
Sheet
Name) Then
' 跳转到所选工作表
Work
sheet
s(Selected
Sheet
Name).Activate
MsgBox "工作表 " & Selected
Sheet
Name & " 不存在!"
End If
End Sub
' 判断指定名称的工作表是否存在
Function
Sheet
Exists(
Sheet
Name As String) As Boolean
Sheet
Exists = False
For Each
Sheet
In ThisWorkbook.
Sheet
s
If
Sheet
.Name =
Sheet
Name Then
Sheet
Exists = True
Exit Function
End If
Next
Sheet
End Function
这个示例代码中,我们使用 ComboBox 的 Change 事件来处理选项的选择。在该事件中,我们首先获取所选选项的名称,然后使用
Sheet
Exists 函数来判断该名称的工作表是否存在。如果存在,则使用 Work
sheet
s(Selected
Sheet
Name).Activate 语句来跳转到该工作表;否则,显示一个消息框来提示用户。
请注意,我们还需要定义一个
Sheet
Exists 函数来判断指定名称的工作表是否存在。在这个函数中,我们使用 For Each 循环遍历所有工作表,判断工作表名称是否与指定名称相同。如果找到相同名称的工作表,则返回 True;否则,返回 False。
m0_52318341:
EXCEL-VBA(WORD):将EXCEL中的文字替换到Word中的文字
飘渺梧桐孤鸿影: