日历
联系方式
Msn：syw-syw@163.com Email:ewaysun@126.com
博客信息
  • 创建：2006-11-1
  • 文章：223
  • 评论：933
  • 访问：956162
  •  
我的相册
博客日志

2007-9-29 16:8 | [分享]VBA语句集200句

关键字：VBA Excel

-----------------
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置
(4) On Error GoTo 0 '恢复正常的错误提示
(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
(6) Application.ScreenUpdating=False '关闭屏幕刷新
A……
编辑 | 阅读全文(832) | 回复(5),ewaysun 发表于 2007-9-29 16:8

2007-8-2 13:9 | [分享][Excel VBA]Excel数据库连接

关键字：Excel Vba 数据库连接
Public Conn                            As ADODB.Connection       '声明ADODB.Connection对象变量
  Public  Rdset                   &nb……
编辑 | 阅读全文(986) | 回复(3),ewaysun 发表于 2007-8-2 13:9

2007-7-23 17:7 | [转帖]VB程序设计的常用算法

关键字：VB 算法
算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。
一、计数、求和、求阶乘等简单算法
　　此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。
　　例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。
　　本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的……
编辑 | 阅读全文(237) | 回复(1),ewaysun 发表于 2007-7-23 17:7

2007-3-29 15:33 | [转帖]由C#风潮想起的－给初学编程者的忠告

关键字：总结
我始终认为，对一个初学者来说，IT界的技术风潮是不可以追赶的，而且也没有能力去追赶。我时常看见自己的DDMM们把课本扔了，去卖些价格不菲的诸如C#, VB.Net 这样的大部头，这让我感到非常痛心。而许多搞不清指针是咋回事的BBS站友眉飞色舞的讨论C#里面可以不用指针等等则让我觉得好笑。C#就象当年的ASP一样，“忽如一夜春风来，千树万树梨花开”，结果许多学校的信息学院成了“Web 学院”。96,97级的不少大学生都去做Web 了。当然我没有任何歧视某一行业的意识。我只是觉得如果他们把追赶这些时髦技术的时间多花一点在基础的课程上应该是可以走得更远的。

几个误区
  
初学者对C#风潮的追赶其实也只是学习过程中经常遇到的几个误区之一。我将用一些实际的例子来说明这些现象，你可以按部就班的看看自己是不是属于其中的一种或者几种：

认为计算……
编辑 | 阅读全文(1647) | 回复(0),ewaysun 发表于 2007-3-29 15:33

2007-3-21 15:22 | [分享][Excel VBA]宏的启动；快速输入时间；有效性的自动扩展

关键字：服务管理
AutoExec宏：启动Word XP或加载全局模板触发。
AutoNew宏：生成新文档时触发。
AutoOpen宏：打开已有文档时触发。
AutoClose宏：关闭文档时触发。
AutoExit宏：退出Word XP或卸载全局模板时触发。
前述的自动宏，除“AutoExec”宏必须保存在“Startup”文件夹的 Normal 模板或共用模板中才可自动运行外，其他均可保存于Normal 模板、其他模板或文档中。在文档打开时按Shift键可终止自动宏的运行。
************************************************************
快速输入时间法（此方法仅适用一个单元格的时间快速输入）
Sub Auto_Open()
     Application.OnEntry = &……
编辑 | 阅读全文(3131) | 回复(0),ewaysun 发表于 2007-3-21 15:22

2007-3-14 16:12 | [分享][VBA]Excel工具栏代码

关键字：办公 Excel VBA
1.定义一些全局变量
Dim Obj_Toolbar As CommandBar’代表工具栏的变量
Dim Obj_Menu As CommandBarPopup’代表菜单的变量
Dim Obj_Toolbar_button As CommandBarButton’代表菜单项和按钮的变量
2.编制生成工具栏和菜单的子程序
Sub addbutton()’创建工具栏和菜单并设置属性的子程序
_deletebutton’调用删除工具栏和菜单的子程序
Set Obj_Toolbar = Application.CommandBars.Add("My_Custom_Bar")’新建工具栏，“My_Custom_Bar”代表工具栏的名称
Set Obj_Menu = Obj_Toolbar.Controls.Add(Type:=msoControlPopup, ID:=1……
编辑 | 阅读全文(3312) | 回复(2),ewaysun 发表于 2007-3-14 16:12

2007-1-4 13:39 | [分享]Excel VBA的单元格用法

关键字：Excel VBA
 [ExcelVBA] 还真是个好东西，特别是缺少IT系统支持的情况下，用vba可以实现一些功能，减轻人力负担。
1、选取一个单元格：
Range("A1").select
Range("A" & 1).select
.select
Cells(1).select
Cells(1, 1).select
Cells(1, "A").select
2、选取连续单元格：
Range("a1:b10").select
.select
Range("a1", "b10").select
Range(Cells(1, 1), Cells(10, 2)).select
3、选取不连续单元格：
Range("a1,b2,c3").select
.select
Union(……
编辑 | 阅读全文(6460) | 回复(1),ewaysun 发表于 2007-1-4 13:39
(共 7 条) 上一页 1 下一页