031.关于FileSystemObject的引用
请问各路高手，有人可以为我指点一下filesystemobject引用的详细说明，特别是fileexists方法的实例。
解答：Sub testing()
'先判断文件是否存在，是则删除之
Dim strmyfile As String
strmyfile = "d:\book1.xls"
If filetoFind(strmyfile) Then
Kill strmyfile
End If
End Sub
Function filetoFind(fileName As String) As Boolean
Dim fsobj As Object
Set fsobj = CreateObject("Scripting.FileSystemObject")
If fsobj.fileexists(fileName) Then
filetoFind = True
End If
End Function
在帮助文件中是这样描述的：FileSystemObject 对象
描述：提供对计算机文件系统的访问。
语法：Scripting.FileSystemObject
说明：下面的代码举例说明了如何使用 FileSystemObject 返回一个 TextStream 对象，该对象是可读并可写的：
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close
在上面列出的代码中，CreateObject 函数返回 FileSystemObject (fs)。CreateTextFile 方法接着创建文件作为一个 TextStream 对象(a)，而 WriteLine 方法则向创建的文本文件中写入一行文本。Close 方法刷新缓冲区并关闭文件。
FileExists 方法
描述：如果指定的文件存在，返回 True，若不存在，则返回 False。
语法：object.FileExists(filespec)
FileExists 方法语法有如下几部分：
部分 描述：object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要确定是否存在的文件的名字。如果认为文件不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。
032.excel时间函数2(菜鸟教程)
这一贴说明时间函数，time,hour，minute,second的用法。
time的计算过程：
time(hour,minute,second)，time地返回值为0-0.99999999之间的数值，它的计算方法如下：
hour的范围：0-24
minute的范围：0-59
second的范围：0-59
在满足以上输入范围的时候：time(hour,minute,second)=hour/24+minute/(24*60)+second/（24*60*60）。如：tiem(05，34,29)=0.232280092592593.如何计算的呢？
5/24+34/（24*60）+29/（24*60*60）=0.208333333333333+0.0236111111111111
+0.000335648148148148=0.232280092592593。
在帮助文件里还有hour,minute,second不再范围情况，这时候，如何计算的呢？
1、second/60,除的整数为minute,mod(second,60)为second
2、minute/60，除的整数为hour,mod(minute,60)为minute
3、hour/24，mod(hour,24)为hour
最后再用hour/24+minute/(24*60)+second/（24*60*60）计算。
帮助中的例子：time(0,0,2000)=0.023148如何算的呢？
2000/60=33 mod(2000,60)=20
time(0,0,2000)=time(0,33,20)=0/24+33/(24*60)=20/(24*60*60)=0.023148
呵呵，其实没有什么用，会用这个函数就可以可，如何算的就不必在意了!!!
033.年月日的问题
EXCEL表格中年月有时候输入不对，（早已记录过大量数据，改写麻烦。）比如198001，意思是1980年1月，可是设置单元格式日期只有年月日，没有年月。怎么做？
解答：插入一辅助列，假设198001在E1，F=IF(MID(E1,5,1)="0",LEFT(E1,4)&"年"&RIGHT(E1,1)&"月",LEFT(E1,4)&"年"&RIGHT(E1,2)&"月")
试一下。
又问：198001能否改为1980-1？或者1980年1月改为1980-1？
解答：f1=IF(MID(e1,5,1)="0",LEFT(e1,4)&"-"&RIGHT(e1,1),LEFT(e1,4)&"-"&RIGHT(e1,2))
或者更简单一些：=LEFT(A6,4)&"-"&value(RIGHT(A6,2))（数据在a6单元格）
也可以这样：=date(mid(e1,1,4),mdi(e1,5,2),1)这样会显示为1980-1-1，然后可以随意设置成相应的日期格式。
034.请帮忙解释一个公式
=LEFT(A1,(SEARCHB("?",A1)-1)/2)这是我在站内过去的帖子里看到的一个公式，用于提取前文后数中的文字部分，非常好用。请教这个公式中最后两步的意义是什么？另外，当A1是“1234个”的格式时，当如何提取其中的文字呢？
解答：1、公式的含义是：查找第一个半角字符出现的位置[SEARCHB("?",A1)]，减去1后除以2，就是文字的字符数目，将其提取出来。
2、=RIGHT(A1,LENB(A1)-LEN(A1))
035.关于宏和程序
我现在已经用excel编了一个较完整的程序，并且能够给源程序加密码，实现"工程不可见"，但是我发现在vba编辑环境 里还能看到我的大部分宏，虽然说不能编辑，但能运行，请问如何隐藏起来。
解答：不用模块函数,重写成类或放到workbook中,或在程序中直接将菜单宏隐藏。或者：新建类，然后将模块中的程序拷贝到类，提示：找不到宏。
又问：我现在已经能做到屏蔽调alt+F11键了，虽然不能看到我的宏程序，但是依然可以运行我的宏，请高手做答，如何隐藏起我的宏。
解答：在宏的声明前加Private。
036.请教多条件求和的问题
大家好，我是个新手，想向大家请教指定多条件求和的函数公式。
譬如，有一张工作表有4列标题：品名，数量，日期，签收人。
若我想求，符合条件为：品名为A，日期为Y，签收人为B的数量之和。
该用那个函数公式？
解答：=IF(A2="a",IF(B2="03.10.22",COUNTIF(D:D,D2),"时间无"),"无")
A列品名，B列日期，C列数量，D列签收人用if 嵌套。
或者：数组公式
{=sum((a1:a100=品名)*(c1:c100=日期)(d1:d100=签收人)*(B1:B100))}
也可以：{=SUM((($A$1:$A$100)="a")*(($B$1:$B$100)="03.10.22"))}
037.请教关于星期的计算？
如何通过输入一个日期：2003-10-20即可得到该天在本年度的第几个星期？
解答：使用 WEEKNUM 函数。
如：=WEEKNUM(A1)
=WEEKNUM(TODAY())
或者：日期在a1
=INT((A1-DATE(YEAR(A1),1,0)+WEEKDAY(DATE(YEAR(A1),1,0),1)+7-WEEKDAY(A1,1))/7)
也可以用VBA：
'under the iso standard, a week always begins on a monday, and ends on a sunday.
'the first week of a year is that week which contains the first thursday of the year,
'or, equivalently, contains jan-4.
'
public function isoweeknum(anydate as date, _
optional whichformat as variant) as integer
'
' whichformat: missing or <> 2 then returns week number,
' = 2 then yyww
'
dim thisyear as integer
dim previousyearstart as date
dim thisyearstart as date
dim nextyearstart as date
dim yearnum as integer
thisyear = year(anydate)
thisyearstart = yearstart(thisyear)
previousyearstart = yearstart(thisyear - 1)
nextyearstart = yearstart(thisyear + 1)
select case anydate
case is >= nextyearstart
isoweeknum = (anydate - nextyearstart) \ 7 + 1
yearnum = year(anydate) + 1
case is < thisyearstart
isoweeknum = (anydate - previousyearstart) \ 7 + 1
yearnum = year(anydate) - 1
case else
isoweeknum = (anydate - thisyearstart) \ 7 + 1
yearnum = year(anydate)
end select
if ismissing(whichformat) then
exit function
end if
if whichformat = 2 then
isoweeknum = cint(format(right(yearnum, 2), "00") & _
format(isoweeknum, "00"))
end if
end function
public function yearstart(whichyear as integer) as date
dim weekday as integer
dim newyear as date
newyear = dateserial(whichyear, 1, 1)
weekday = (newyear - 2) mod 7
if weekday < 4 then
yearstart = newyear - weekday
else
yearstart = newyear - weekday + 7
end if
end function
038.请教日期的转换问题
我的程序里有这样一段代码：
Dim str As Date
str=now
Sheet1.Cells(1, "A") = str
运行后在单元格里显示
2003/11/13 15:19:45
但我想让它显示成如下的格式：
２００３年１１月１３日（小时，分，秒去掉）
我用year（str)想单独取得年的值，但显示1905/06/25 0:00:00
请问有什么好的方法可以实现这种转换吗？
解答：
Dim str As Date
str=now
Sheet1.Cells(1, "A") = format(str,"yyyy年mm月dd日")
039.如何用vba实现删除最右边的字符
1月、2月、3月...........10月、11月、12月
请问如何用vba实现把“月”删除 只提取：1、2、3.......10、11、12。
解答：Sub abc()
Dim a As Integer
Dim b As String
Dim c As String
c = ""
For a = 1 To Len(b)
c = c & IIf(Mid(b, a, 1) <> "月", Mid(b, a, 1), "")
Next
MsgBox c
End Sub
或者：
A1= 1月、2月、3月、4月、5月、6月、7月、8月、9月、10月、11月、12月
[A1] = Application.WorksheetFunction.Substitute([A1], "月", "")
040.请问如何定义相对定位的名称
我想定义一个各个工作表（一个工作薄内）使用的名称。该名称为相对定位，
如我在sheet1表的B2中该名称是 sheet1 表的A2，我在sheet2表的B2中时该名称是sheet2表的A2单元格，可我在定义名称时它总是加上工作表名。
解答：=offset(indirect(address(row(),column(),)),,-1,,)
