Option Explicit Private Const OFS_MAXPATHNAME = 128 Private Type OFSTRUCT cBytes As Byte f…
Sub ChartsAndTitlesToPresentation() ' Set a VBE reference to Microsoft PowerPoint Object L…
Sub update() ' =IF(ABS(E10)<0.005,"",IF(E10<0,"负",)&IF(INT(ABS(E10)),TEXT(INT(AB…
<%=不好意思这只是一个教程哦%>
Option Explicit Public Sub CreateAllSheetsInsertScript() On Error GoTo ErrorHandler 'recor…
Option Explicit Function IIF(judgement, a, b) If judgement Then IIF = a Else IIF = b End I…
'/*========================================================================= ' * Intro 把要转…
On Error Resume Next Dim fso,fp,oApp,targetfile,c,zipfile c=2 Set fso=CreateObject("Script…
Attribute VB_Name = "reportcreate20130804" 'All Rights Reserved Deserved by 蓝宝石的傻话 Dim daq…
写法一: <% Sub sendsms(mobile,msg) '如需要发送多个手机号,请自动循环,多个手机号之间用“,”分隔,最后手机号码后不加,号 '或调用我们 Http…
'此代码目的是用Treeview显示满二叉树 '用for循环从上到下从左到右依次填充 '开发环境:.net '新手学习,请多指教! 'QQ 675686066 'email lei…