火焰文字制作： 最终效果 第一步： 新建图层，并输入文字（这里不做详细解说） 第二步： 右键文字图层 -->栅格化文字 第三步： 合并图层 第四步： 图像 --> 图像旋转 --> 90度(逆时针)(0) 第五步： 滤镜 --> 风格化 --> 风... 第六步： 滤镜 --> 扭曲 --> 波纹. ...
分类：
其他好文 时间：
2017-07-02 22:15:00
阅读次数：
220
Public Sub SendMail() Dim objAccount As Object Dim objApp As Object 'Outlook.Application ' If Not CheckData Then' Exit Sub' End If'' If MsgBox(shtMess ...
分类：
编程语言 时间：
2017-07-01 22:39:57
阅读次数：
397
Excel中用VB脚本处理多表数据格式转换问题Subpldy()
DimaAsInteger
DimbAsInteger
DimKAsInteger
DimLAsInteger
a=InputBox("请输入开始打印序号")
b=InputBox("请输入结束打印序号")
Fori=aTob
L=(((i+3)\4)-1)*7+2
IfiMod4=0Then
K=11
ElseIfiMod4=3Then
K=8
ElseIfiMod4=2Th..
分类：
其他好文 时间：
2017-07-01 13:46:22
阅读次数：
184
‘
‘references:
‘https://www.rondebruin.nl/mac/mac015.htm
‘https://stackoverflow.com/questions/5316459/programmatically-combine-slides-from-multiple-presentations-into-a-single-presen
‘https://msdn.microsoft.com/en-us/library/office/hh710200(v=office.14).asp..
分类：
系统相关 时间：
2017-06-23 10:14:41
阅读次数：
302
转行做HR近2年。最近公司要做工牌，工牌上要打印照片，姓名，工号和部门等信息。一共1000多人，如果手工排版手工打印的话，估计要死人。 于是coding的老毛病又犯了，想写个程序来打印工牌。还是拿最近比较常用vsto来做office插件程序吧。毕竟这个用起来也顺手，因为没有一个hr不会用excel。 ...
分类：
其他好文 时间：
2017-06-22 22:58:08
阅读次数：
805
Sub hardwareinfo() On Error Resume Next''Set fso = CreateObject("Scripting.FileSystemObject")'Set f1 = fso.CreateTextFile("1.csv")strComputer = "."str ...
分类：
编程语言 时间：
2017-06-19 10:04:38
阅读次数：
325
Private Sub CommandButton1_Click() ' If IsDate(TextBox1.Text) = False Then ' MsgBox "请输入日期！" ' Exit Sub ' End If If 类别 = "" Or 维修部件 = "" Or 部门 = "" Or ...
分类：
编程语言 时间：
2017-06-19 10:02:26
阅读次数：
324
一个Windows API Viewer,提供VBA语句的导出功能。提供两万多个API的MSDN链接查询。 ...
分类：
编程语言 时间：
2017-06-18 10:34:36
阅读次数：
156
