yjq0812的专栏

转载 失效模型定义

一些FMEA的定义、

转载 OSSP

一些OSSP资料http://www.sei.cmu.edu/library/assets/mutafelija.pdfhttp://www.abelia.com/docs/OSSP.pdfISO/IEC TR 19759:2015

转载 按照标题拆分子文档

Option ExplicitSub SplitLevel2() Dim docCur As Document Dim docNew As Document Dim rngTitle As Range Dim rngChapter As Range Dim rngTarget As Range Dim lngStart As Long Dim lngEnd As L

原创 match和index返回多个匹配项

SMALL(IF($AB$18:$AB$31=$L18,ROW($AB$18:$AB$31),65536),$N$1:$P$1)INDEX(X:X,N18:P33)

原创 用word模板作为add-in，制作一些快捷操作

1）把安全宏设置为“禁用所有宏，并设置通知”2）新建一个word文档，输入一些宏命令，然后保存为“启用宏的word模板*dotm”3）文档会保存在“C:\Users\xxxx\Documents\自定义 Office 模板”下面。4）新建一个其他的普通word（*.doc）5）（是不是必须？还是说模板文件放在对应目录，就可以直接使用了？）加载项选择word加载项，共用模板及加载项添

转载 选择IE全部内容，被拷贝到excel

Public objIE As InternetExplorerPublic objTag As ObjectPublic objOption As Object#If VBA7 ThenPrivate Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)#ElsePrivate Declare Sub Slee

转载 IE窗体自动

Private Type UUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Declare Function GetWindowText Lib "user32" Alias "GetWindo

转载 测试的度量2

转载 测试的度量

转载 可折叠的标题栏_CSS

function change(){//通过父元素li，找到兄弟元素ulvar oSecondDiv = this.parentNode.getElementsByTagName("div")[0];//CSS交替更换来实现显、隐if(oSecondDiv.className == "myHide1")oSecondDiv.className = "myShow1";elseoSec

转载 可折叠的标题栏

伸缩的菜单<!--body{ background-color:#ffdee0;}#navigation { width:200px; font-family:Arial;}#navigation > ul { list-style-type:none; /* 不显示项目符号 */ margin:0px; padding:0px;}#navigation > u

转载 代码重构

Duplicated Code（重复的代码） 臭味行列中首当其冲的就是Duplicated Code。如果你在一个以上的地点看到相同的程序结构，那么当可肯定：设法将它们合而为一，程序会变得更好。 最单纯的Duplicated Code就是「同一个class内的两个函数含有相同表达式（expression）」。这时候你需要做的就是采用Extract Method提炼出重复的代码，然后

转载 Excel列举文件夹列表，调用cmd遍历

@echo offfor /f "delims=" %%i in ('dir /a-d /b /s /od') do echo %%~ti,%%~dpnxi >>test1.csv///////////////////////////////////////////////////////////////////////////////////////Private Sub Com

转载 VBS创建文件夹

a="e:\test\pran\dispan\get"'创建a的整个路径set fso=createobject("scripting.filesystemobject")str="\"getpath=split(a,str)for i= 1 to ubound(getpath)path=path & str &getpath(i)if not fso.folderex

转载 VBA读取Outlook的签名文件

Sub Mail_Outlook_With_Signature_Plain()' Don't forget to copy the function GetBoiler in the module.' Working in Office 2000-2010Dim OutApp As ObjectDim OutMail As ObjectDim strbody As StringDim

转载 获取文件完整路径并存储（拖放操作）

'======================================================================='VBScript Source File -- 获取文件完整路径并存储（拖放操作）'NAME:获取文件完整路径并存储（拖放操作）'AUTHOR:Null'DATE:2008-08-09'COMMENT:获取文件完整路径并存储（拖放操作）'==

转载 获取详细变更的件数

Type CHANGEDETAIL  strChangeDetailNo As String '变更详细内容的件数  strChangeDetail As String '变更详细内容  strChangeNo As String    '变更番号（大）  strTemp As StringEnd TypeType CNANGEPOINT  strChangePoi

转载 使用VBA解析HTML文档

Sub test()    Dim ie, dmt, bd        Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象        With ie            .Visible = False '显示它            .navigate "E:\temp\divcss.ht

转载 如何用批处理遍历文件夹

http://blog.sina.com.cn/s/blog_6f3da96501011so3.htmlSub Sample1(strPath As String, strName As String)'strPath: path which to be searched'strName: filename which will be created  Set WSH = Cr