Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Priv ...
分类：
编程语言 时间：
2017-10-13 10:05:24
阅读次数：
297
EXCel鼠标右键不能用解决办法 倒腾vba首要是保证安全，各路大神的代码非常神奇，莫名的就让你的excel嘎嘣了，如出现右键无法使用（确定不是您的鼠标问题），那么以下代码可完全修复设置。操作步骤：打开excel--->按"alt+F11"键打开vba编辑器--->选择"Thisworkbook"-... ...
分类：
其他好文 时间：
2017-10-12 14:58:33
阅读次数：
157
#1 Set赋值 对象变量的赋值须使用Set，例如：Set newbook = Workbooks.Add #2 工作簿(Workbook)的引用方法 Workbooks("A.xls")表示名称为A的excel工作簿，引用前须先打开A工作簿。 ActiveWorkbook 表示打开多个工作簿时的活 ...
分类：
编程语言 时间：
2017-10-08 18:58:59
阅读次数：
161
未实现定时刷新
Sub抓取股票价格()
OnErrorResumeNext
Setregx=CreateObject("vbscript.regexp")‘
regx.Global=True
regx.Pattern="\[""(.*)"",""(.*)"",(\d+),(.*),(.*),(\d{8}).*\]"‘
arr_stock=Range(Cells(2,1),Cells(Cells(Rows.Count,1).End(xlUp).Row,1))‘股票代码数..
分类：
编程语言 时间：
2017-10-07 21:22:47
阅读次数：
324
参考： JavaScript Date 对象 w3c ...
分类：
Web程序 时间：
2017-10-07 18:48:57
阅读次数：
214
VBA从天涯论坛的帖子中提取正文Sub天涯贴子简单抓取()
DimcntAsInteger
arr=Array("评论","举报","楼主","作者","草稿","热贴","论坛","注册","广告","推荐")‘屏蔽词汇
Fory=1To2
Setie=CreateObject("internetexplorer.application")
Withie
.Navigate"http://bbs.tianya.c..
分类：
其他好文 时间：
2017-10-07 14:36:29
阅读次数：
118
最近项目中需要一个导出Excel报告的功能，假期搜了一下，把其中比较主流的列一下，仅供参考。 功能需求： 效果图： 一、ClosedXML 主页：https://github.com/ClosedXML/ClosedXML 需要引用OpenXMLSDK（DocumentFormat.OpenXml. ...
分类：
Windows程序 时间：
2017-10-06 22:27:30
阅读次数：
2220
VBA中dim，static和public，private的区别 转载的文章：出自 红袖的博客 http://blog.sina.com.cn/19850701xx VBA中dim，static和public，private的区别 红袖的博客 http://blog.sina.com.cn/1985 ...
分类：
编程语言 时间：
2017-10-06 17:28:54
阅读次数：
214
goto1.goto行标签:vba跳转语句:过程内跳转并执行语句（示例3)2.application.gotoreference：=“语句或者过程名”一种application方法执行引用的语句(示例1)或跳转到过程名指定的过程中（并不执行该过程）(示例2)3.二者不能用混了，否则会出现语法错误示例1Submm()Application.G..
分类：
其他好文 时间：
2017-10-05 12:15:13
阅读次数：
135
Option Explicit '清空数据 Private Sub CommandButton1_Click() Dim qknum As Integer '选择是或者否 来确认删除数据 '中对话框类型 16+4 ：16指图标类型是停止图标，4指出现的按钮是“是”“否”按钮 If (MsgBox(" ...
分类：
编程语言 时间：
2017-10-05 10:57:05
阅读次数：
254
