ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
分享 收集的各类资料
2014-8-15 19:31
一、表格内插入图片并修改大小 1 、方式一 Dim photo As Picture Set photo = ActiveSheet.Pictures.Insert(ThisWorkbook.Path "\ 学生相片 \" sFile ".jpg") With photo .Name = sFile .ShapeRange.LockAspectRatio = msoFalse ...
4330 次阅读|86 个评论
分享 VBA FileDialog 及Listview 控件的说明
2014-3-5 09:43
语法: expression.FileDialog(fileDialogType) 返回一个 FileDialog 对象,该对象代表文件对话框的实例。 expression 必需。该表达式返回 “ 应用于 ” 列表中的对象之一。 fileDialogType MsoFileDialogType 类型 ...
4065 次阅读|12 个评论
分享 ChDir、ChDrive,Dir等的使用说明
2014-1-24 10:37
一、ChDir 语句 改变当前的目录或文件夹 语法:ChDir path 必要的 path 参数是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器,则 ChDir 在当前的驱动器上改变缺省目录或文件 ...
7774 次阅读|1 个评论 热度 1
分享 关于用单元格内容打开窗体---版主回答一个提问
2014-1-12 11:58
问题: 有,UserForm1,UserForm2,UserForm3...... 求:当单元格F1=UserForm1时,打开窗体UserForm1即(UserForm1.Show),当单元格F1=UserForm2时,打开窗体UserForm2即(UserForm2.Show)......的表达式。 我想当然已为是Range("F1“).Show,结果是错的,请老师帮忙。 版主解答: Private Sub Worksheet_Cha ...
1135 次阅读|0 个评论
分享 find的参数说明及表格非空最大行号实例
2014-1-5 07:50
Find方法的语法 单元格区域.Find (What, , , , , , , , ) (1)单元格区域,必须指定,返回一个Range对象。 (2)参数 What,必需指定。代表所要查找的数据,可以为字符串、整数或者其它任何数据类型的数据。对应于“查找与替换”对话框中,“查找内容”文本框中的内容。 (3) ...
15307 次阅读|1 个评论 热度 1
分享 提取文件夹下不同文件不同表格内容到一个表格汇总(字典使用的一个案例说明)
2013-12-30 13:54
提取文件夹下不同文件不同表格内容到一个表格汇总(字典使用的一个案例说明)
Sub aaa() Set d1 = CreateObject("scripting.dictionary") Set d2 = CreateObject("scripting.dictionary") ..... For Each key In d1 d2(d1(key)) = key Next key End Sub 以上代码的思想来自论坛 amanda7019 Sub Macro1() ...
5217 次阅读|0 个评论
分享 VBA FSO对象模型详解(来自百度文库)
2013-12-30 11:06
一个高手的代码:遍历文件夹下的文件夹 Public Fso As Object Sub getFldList() Set Fso = CreateObject("Scripting.FileSystemObject") Fldnm (CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path ...
18826 次阅读|6 个评论 热度 4
分享 根据汇总表内容,将数据拆分到模板上并打印出来
2013-12-16 08:50
将汇总表里的内容分到模板上,并根据要求保存为文件。 sheets(2)表为汇总表 sheets(1)为模板表。也可以是文件,如果要调取该文件,在打开状态下可以使用workbooks(“文件名”) Sub s111() For j = 2 To Sheets(2).Cells(Rows.Count, 1).End(3).Row ...
691 次阅读|0 个评论
分享 表内局部数据保护
2013-12-2 20:59
1.选择表内所有数据,“设置单元格格式”中,“保护”标签内取消“锁定” 2.讲要保护的数据,“设置单元格格式”中,,“保护”标签内选定“锁定” 3.对数据进行保护,并有针对性地选择相应的操作
569 次阅读|0 个评论
分享 一个过程在将来的特定时间运行(ontime)
2013-11-28 14:47
Sub 时间 () = WorksheetFunction.Text(Now(), "hh:mm:ss") Application.OnTime Now() + TimeValue("00:00:01"), " 时间 " End Sub Sub 终止 () Application.OnTime Now() + TimeValue("00:00:01") ...
1536 次阅读|1 个评论
12下一页
关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2021-9-26 18:37 , Processed in 0.068645 second(s), 4 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

返回顶部