别逗了好么

按下alt+f11,插入 模块写下过程Function SUMColor(rag1 As Range, rag2 As Range)Application.VolatileFor Each i In rag2If i.Interior.ColorIndex = rag1.Interior.ColorIndex ThenSUMColor = SUMCo

Sub NewSheet_Click() Dim filter As String Dim fileToOpen As Variant Dim rowCount As Integer filter = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _ "Text Files(*

Sub 儃僞儞5_Click()    Dim filter As String    Dim fileToOpen As Variant    Dim rowCount As Integer       filter = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _            "Text Files

VBA 读取/写入文本文件  1、Open 语句 打开方式有 Input：以读取方式打开。Output：以写入方式打开。Append：以追加方式，即添加内容到文件末尾打开。Binary：以二进制方式打开。Random：以随机方式打开，如果未指定方式，则以 Random 方式打开文件。 Open pathname For mode As [#]filenumber

@echo offset Profile_path=E:\project\TOPS\trunk\1-P\2-Imp\0-COD\SIM\Profileset sysp_path=E:\project\TOPS\trunk\1-P\2-Imp\0-COD\SIM\syspset Profile_target_path=C:\tops\Profileset sysp_target_pa

一个文件搞定操作系统的所有问题BAT一、查漏补缺——给系统功能添把火　　    我们的操作系统虽然功能强大，但是在某方面的应用上依旧存在欠缺，如：没有定时关机软件。而用bat文件可以解决很多这类问题。1.关机与重启　　我们先做个让电脑在每天指定时间关机的bat，具体方法如下：　　打开附件中的记事本，然后在里边写入，at 22：00 shu

ECHO OFFFOR /L %%J IN (1,1,9) DO (IF "%%J" == "1" (FOR /L %%I IN (1,1,9) DO @MD E:\1000%%J0%%IFOR /L %%I IN (1,1,9) DO @MD E:\1000%%J0%%I\試験前FOR /L %%I IN (1,1,9) DO @MD E:\1000%%J0%%I\試験後

/y 的意思是如果该文件存在的话，不提示直接覆盖

BAT语句结构　　类似于C语言，批处理也有它的语句结构。批处理的语句结构主要有选择结构(if语句)、循环结构(for语句)等。if语句(选择结构)　　if语句实现条件判断，包括字符串比较、存在判断、定义判断等。通过条件判断，if语句即可以实现选择功能。　　1、字符串比较　　if语句仅能够对两个字符(串)是否相同、先后顺序进行判断等。其命令格式为：　　IF [not] s

Sub GenDocfromExcel()'excel控制word,生成新文件，插入图片和文件名，保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'...Range("A1:B

Sub paste()    Dim fs, folder, files    Dim errPath As String    Dim filePath As String    Dim iCnt As Integer    Dim iLine As Long    Dim flg As Boolean    Dim temp        iCnt = Ce

@echo off :Aset /p workPath=Please Input Root Directory：if exist %workPath% ( %workPath:~0,2% cd %workPath% rem "FilePath" echo Roots Dire: %workPath% > DirList.txt rem "startTime set" echo S