![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
文章平均质量分 77
xiaotao_liu
这个作者很懒,什么都没留下…
展开
-
贷款计算器的VBA实现代码
Dim MonthPrincipal_EP As DoubleDim MonthInterest_EP(360) As DoubleDim MonthPrincipalLeft_EP(360) As DoubleDim MonthInterestSum_EP(360) As DoubleDim MonthPrincipal_EI(360) As DoubleDim MonthInterest原创 2008-02-27 13:46:00 · 6061 阅读 · 0 评论 -
excel公式应用大全
1、ABS函数 函数名称:ABS 主要功能:求出相应数字的绝对值。 使用格式:ABS(number) 参数说明:number代表需要求绝对值的数值或引用的单元格。 应用举例:如果在B2单元格中输入公式:=ABS(A2),则在A2单元格中无论输入正数(如100)还是负数(如-100),B2中均显示出正数(如100)。 特别提醒:如果number参数不是数值,而是一些字符(如A转载 2009-01-13 13:58:00 · 4028 阅读 · 0 评论 -
自动启动或关闭网络连接的VBS脚本
'将下面脚本存成文本文件,然后将文件类型改成VBS,双击即可。Const ssfCONTROLS = 3sConnectionName = "Wireless Network Connection"sEnableVerb = "En&able"sDisableVerb = "Disa&ble"set shellApp = createobject("shell.applicat转载 2013-01-04 15:08:05 · 1984 阅读 · 1 评论 -
VBA类的继承多态实例
打开VB6新建一个工程 '====建立一个类模块,修改名称为:BaseClass '(菜单:工程-添加类模块,修改右边属性中类名称) '先建立基类 Public Info as string '这是类的一个属性 Public Sub baseSub() '继承特性 '写你任何对基类方法的定义 End Sub Private Sub Class_In转载 2013-01-04 15:21:44 · 10208 阅读 · 2 评论 -
vbs类的使用方法
vbs类的使用方法 类的结构: class 类名称 end class 调用方法 set myclass=new 类名称 中间类里面的代码, 类模块的事件过程。Private Sub Class_Initialize()这里写上类实例化的时候执行的代码。end sub Private Sub class_termina转载 2013-01-04 15:35:12 · 2969 阅读 · 0 评论 -
vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用
Class Yongfa365Test '==========声明变量========== Private p1 Private p2, p3, p4, mySex Public MyName 'Public型变量相当于属性,引用类后可以直接调用或设置值 '==========声明属性==========转载 2013-01-04 16:19:51 · 760 阅读 · 0 评论 -
VBS 自动登陆新浪信箱
VBS 自动登陆新浪信箱Set ie = CreateObject("internetexplorer.application")set sh=WScript.CreateObject("WScript.Shell")ie.Visible = Trueie.navigate "http://mail.sina.com.cn/"While ie.busy Or ie.re转载 2013-01-04 16:20:56 · 820 阅读 · 0 评论 -
VBS类使用实例
VBS类使用实例Class TestPublic aPrivate Sub Class_Initialize()end sub Private Sub class_terminate()end subPublic Property Let Value(ByVal vNewValue) a = vNewValue End Property原创 2013-01-04 15:23:38 · 721 阅读 · 0 评论 -
VBS 读取Excel并写文件
VBS 读取Excel并写文件Private Sub CommandButton1_Click()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Dim fSet f = fso.CreateTextFile("a.txt", True)For i = 2 To 40If Ce转载 2013-01-04 16:22:03 · 3204 阅读 · 0 评论