GIS资讯 GIS技术 GIS产品 GIS书籍 GIS下载 GIS知识 GIS论文 GIS考研 GIS人物 GIS企业 GIS招聘 GPS相关 RS 相关 3D 相关 测绘相关 GIS博客 招标信息
您当前的位置:GIS资讯小组资讯中心GIS论文 → 资讯内容
Google
Excel VBA编程的常用代码
作者:佚名  来源:不详  更新时间:2008-1-3 11:25:53

减小字体 增大字体

  


插入超级链接,Ctrl+K
完成单元格输入,Enter
将当前单元格上方单元格中的数值复制到当前单元格或编辑栏,Ctrl+Shift+(双引号)
将当前单元格上方单元格中的公式复制到当前单元格或编辑栏,Ctrl+'(单引号)
在显示单元格值与单元格公式间转换,Ctrl+`(撇号)
输入数组公式,Ctrl+Shift+Enter
键入有效函数名后,显示公式选项板,Ctrl+A
键入有效函数名后,为该函数插入变量名和括号,Ctrl+Shift+A
显示“记忆式键入”列表,Ctrl+下方向键
快捷键与数据格式设置
显示“样式”命令,Alt+'(单引号)
显示“单元格”命令,Ctrl+1
应用常规数字格式,Ctrl+Shift+~
应用带两个小数位的“贷币”格式,Ctrl+Shift+$
应用不带小数位的“百分比”格式,Ctrl+shift+%
应用带两个小数位的“科学记数”数字格式,,Ctrl+shift+^
应用年月日“日期”格式,Ctrl+shift+#
应用小时和分钟“时间”格式,并表明上午或下午,Ctrl+shift+@
应用外边框,Ctrl+shift+&
取消选定单元格区域中的所有边框,Ctrl+shift+_
应用或取消字体加粗格式,Ctrl+B
应用或取消字体倾斜格式,Ctrl+I
应用或取消字体下划线格式,Ctrl+U
应用或取消删除线格式,Ctrl+5
隐藏行,Ctrl+9
取消隐藏行,Ctrl+Shift+(
隐藏列,Ctrl+0
取消隐藏列,Ctrl+Shift+)

使用 Excel 2003 工作表的 VBA 示例  
 

适用范围:
Microsoft Office Excel 2003
摘要:寻找能够为 Excel 工作表增加额外功能的宏。只需稍加练习,您就可以扩展这些程序,使其适合您自己的应用程序。
本页内容
 
引言
 
导出带有逗号和引号分隔符的文本文件
 
计算包含公式、文本或数字的单元格数量
 
使用 Saved 属性确定工作簿是否已发生更
 
合并数据列
 
数组中的总行数和总列数
 
结论
引言
本文介绍几个 Microsoft Visual Basic for Applications (VBA) 宏,您可以使用这些宏为 Microsoft Office Excel 2003 工作簿和工作表增加额外的功能。这些宏将为您的应用程序提供新的功能或增强现有的功能。阅读示例的同时,您应该寻找扩展这些宏的方法,以适合您自己的情况。
 
导出带有逗号和引号分隔符的文本文件
Excel 没有自动将数据导出为文本文件的菜单命令,因此导出的文本文件同时带有逗号和引号分隔符。例如,没有命令能自动创建包含以下内容的文本文件:
"Text1","Text2","Text3"
                       
但是,您可以使用 VBA 宏在 Excel 中创建该功能。这种文件格式是在诸如 Microsoft Office Access 2003 和 Microsoft Office Word 2003 之类的应用程序中导入文本数据时常见的格式。
您可以在如下所示的 VBA 宏中使用 Print 语句,导出同时带有逗号和引号分隔符的文本文件。要使该程序正常运行,必须在运行该程序之前选择包含数据的单元格。
使用以下示例之前,请执行以下步骤:
1. 打开一个新工作簿。
2. 在“工具”菜单中,指向“宏”,然后单击“Visual Basic 编辑器”(或者简单地按下 ALT+F11 组合键)。在“Visual Basic 编辑器”中,单击“插入”菜单,然后单击“模块”。
3. 将以下示例代码键入或粘贴到模块中:
Sub QuoteCommaExport()
                                    Dim DestFile As String
                                    Dim FileNum As Integer
                                    Dim ColumnCount As Integer
                                    Dim RowCount As Integer
                                    ' 提示用户指定目标文件名。
                                    DestFile = InputBox("Enter the destination filename" & _
                                    Chr(10) & "(with complete path and extension):", _
                                    "Quote-Comma Exporter")

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页



[] [返回上一页] [打 印]
资讯评论 (评论内容只代表 GISTM 网友观点,与本站立场无关!)

用户名: * 查看 GISTM 更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         ( 注意“*”必填,请自觉遵守法律法规!) 验证码: 验证码,看不清楚?请点击刷新验证码

推荐文章/热门文章
相关文章/相关下载
关于本站 - 免责声明 - 帮助(?) - 友情连接 - 网站地图 - 网站留言