![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
许双涛
这个作者很懒,什么都没留下…
展开
-
VBA变量与常量
变量与常量1)VBA允许使用未定义的变量,默认是变体变量。2)在模块通用说明部份,加入 Option Explicit 语句可以强迫用户进行变量定义。3)变量定义语句及变量作用域Dim 变量 as 类型 '定义为局部变量,如 Dim xyz as integerPrivate 变量 as 类型 '定义为私有变量,如 Private xyz as byte原创 2016-11-14 13:15:10 · 1283 阅读 · 0 评论 -
excel函数使用示例(INDIRECT,ADDRESS,MATCH)
=INDIRECT(ADDRESS(1,MATCH(TRUE,(B2:H2)原创 2016-11-24 10:14:05 · 4248 阅读 · 0 评论 -
VBA获取硬件序列号
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongSub DisplayMonitorInfo() Dim X As Long, Y As Long X = GetSystemMetrics32(0) ' 宽度转载 2016-11-24 10:16:01 · 3076 阅读 · 0 评论 -
文本txt格式转excel
Option Base 1Sub 打开文本格式文件() Dim myFileName As String Dim myFI(256) As Variant Dim i As Integer myFileName = Application.GetOpenFilename("TXT格式(*.TXT),*.TXT,CSV格式(*.CSV)原创 2016-11-24 15:22:27 · 428 阅读 · 0 评论 -
vba登录网页代码(爬虫)
Private Sub CommandButton1_Click()Range("A2:B65536").ClearContentsDim IE As Object'Dim IE As SHDocVw.InternetExplorerDim element Set IE = CreateObject("InternetExplorer.Application")原创 2016-11-19 08:40:27 · 9075 阅读 · 1 评论 -
webBrowser中操作网页元素全攻略
webBrowser中操作网页元素全攻略1、获取非input控件的值:webBrowser1.Document.All["控件ID"].InnerText;或webBrowser1.Document.GetElementById("控件ID").InnerText;或webBrowser1.Document.GetElementById("控件ID").GetAttri转载 2016-12-29 22:14:25 · 311 阅读 · 0 评论 -
vba窗体控件大小适应
Dim ctl As Control '窗体控件变量Dim pos As New Collection '控件 位置比例参数Dim lng As New Collection '控件 大小比例参数Private Sub UserForm_Initialize()'利用集合记录各个控件与窗体比例的参数For Each ctl In Me.Controlspos.Add原创 2016-11-24 09:49:34 · 4537 阅读 · 0 评论 -
Excel_VBA定时mail发送源码
1> Mail_class Private Jmail_Msg Private s_SmtpServer, s_UserName, s_Password, s_FromMail, s_FromName, s_Charset Private i_Priority Private err_message Private Sub Class_原创 2016-11-23 15:19:48 · 689 阅读 · 0 评论 -
VBA错误语句处理
错误语句处理执行阶段有时会有错误的情况发生,利用On Error语句来处理错误,启动一个错误的处理程序。语法如下:On Error Goto Line ‘当错误发生时,会立刻转移到line行去On Error Resume Next ‘当错误发生时,会立刻转移到发生错误的下一行去On Erro Goto 0原创 2016-11-14 13:16:27 · 1695 阅读 · 0 评论 -
VBA内部函数
内部函数Application.ScreenUpdating = False '屏幕刷新Application.Volatile '自定义函数自动计算在VBA程序语言中有许多内置函数,可以帮助程序代码设计和减少代码的编写工作。一.测试函数IsNumeric(x) ‘是否为数字, 返回Boolean结果,True or FalseIsDate(x)原创 2016-11-14 13:18:49 · 641 阅读 · 0 评论 -
VBA判断语句
1)If…Then…Else语句If condition Then [statements][Else elsestatements]如1:If A>B And C如2:If x>250 Then x=x-100 或者,可以使用块形式的语法:If condition Then[statements][ElseIf condition-n Then[elsei原创 2016-11-14 13:19:33 · 717 阅读 · 0 评论 -
VBA循环语句
循环语句1)For Next语句 以指定次数来重复执行一组语句For counter = start To end [Step step] ' step 缺省值为1[statements][Exit For][statements]Next [counter]如1:For Words = 10 To 1 Step -1 ' 建立 10原创 2016-11-14 13:20:07 · 2006 阅读 · 0 评论 -
VBA调用cmd命令
Option Explicit'CMD命令调用Private Sub CommandButton1_Click()Dim WshShell As ObjectSet WshShell = CreateObject("WScript.Shell")'WshShell.Run "Notepad"'WshShell.Run "Explorer"WshShell.Run原创 2016-11-14 13:29:43 · 10711 阅读 · 0 评论 -
VBA窗体操作
窗体(80) MsgBox “Hello!” '消息框中显示消息Hello(81) Ans=MsgBox(“Continue?”,vbYesNo) '在消息框中点击“是”按钮,则Ans值为vbYes;点击“否”按钮,则Ans值为vbNo。If MsgBox(“Continue?”,vbYesNo)(82) Config=vbYesNo+vbQuestion+vbDefaul原创 2016-11-14 13:31:06 · 3247 阅读 · 0 评论 -
VBA文件夹处理方法
Sub 宏2()' trim()目的:删除文本前后的空格' 宏1 Macro' 卢毅刚 记录的宏 2003-11-28'Application.Goto Reference:="fw" Selection.ClearContents ActiveWindow.SmallScroll Down:=-3 Range("A2").Selecta1 =原创 2016-11-14 13:33:52 · 421 阅读 · 0 评论 -
VBA新图标加载项
1、Application.CommandBars("Worksheet Menu Bar").Enabled = false 76、如何使某一个固定的菜单项无效Application.CommandBars("File").Controls(6).Enabled = False Controls(6)中的6就是所在菜单栏的行数我觉得这样可能更可靠: Dim i As原创 2016-11-14 13:36:34 · 906 阅读 · 0 评论 -
巧用VBA破除工作表保护密码!
步骤如下,1,打开一个有锁定密码的excel2,点击文件,新建一个空白工作簿3,点击新打开excel的工具-》宏-》录制宏,然后马上结束,这样就等到一个空的宏4,点击alt+f11,打开宏编辑器,找到刚才的新宏,然后写如代码{ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios转载 2016-11-18 09:15:58 · 1380 阅读 · 0 评论